freetype1/pascal/lib/ttcalc4.inc

   1 (*******************************************************************
   2  *
   3  *  TTCalc4.Inc                                                 1.2
   4  *
   5  *    Arithmetic and Vectorial Computations (inline assembly)
   6  *    This version is used for i386 FreePascal
   7  *
   8  *  Copyright 1996 David Turner, Robert Wilhelm and Werner Lemberg
   9  *
  10  *  This file is part of the FreeType project, and may only be used
  11  *  modified and distributed under the terms of the FreeType project
  12  *  license, LICENSE.TXT. By continuing to use, modify or distribute
  13  *  this file you indicate that you have read the license and
  14  *  understand and accept it fully.
  15  *
  16  *  NOTES : All vector operations were moved to the interpreter
  17  *
  18  ******************************************************************)
  19
  20 (**********************************************************)
  21 (*                                                        *)
  22 (* The following routines are inline assembly, they are   *)
  23 (* thus processor and bitness specific. Replace them      *)
  24 (* with your own if you want to port the TrueType Engine  *)
  25
  26 (**********************************************************)
  27 (* 64 Bit Addition                                        *)
  28
  29 procedure Add64( var X, Y, Z : Int64 ); assembler;
  30 asm
  31   push %ebx
  32   push %edx
  33
  34   mov  X,%ebx
  35   mov  (%ebx)  ,%eax
  36   mov  4(%ebx) ,%edx
  37
  38   mov  Y,%ebx
  39   add  (%ebx)  ,%eax
  40   adc  4(%ebx) ,%edx
  41
  42   mov  Z,%ebx
  43   mov  %eax, (%ebx)
  44   mov  %edx, 4(%ebx)
  45
  46   pop  %edx
  47   pop  %ebx
  48 end;
  49
  50
  51 (**********************************************************)
  52 (* 64 Bit Substraction                                    *)
  53
  54 procedure Sub64( var X, Y, Z : Int64 ); assembler;
  55 asm
  56   push %ebx
  57   push %edx
  58
  59   mov  X,%ebx
  60   mov  (%ebx)  ,%eax
  61   mov  4(%ebx) ,%edx
  62
  63   mov  Y,%ebx
  64   sub  (%ebx)  ,%eax
  65   sbb  4(%ebx) ,%edx
  66
  67   mov  Z,%ebx
  68   mov  %eax, (%ebx)
  69   mov  %edx, 4(%ebx)
  70
  71   pop  %edx
  72   pop  %ebx
  73 end;
  74
  75
  76 (**********************************************************)
  77 (* Multiply two Int32 to an Int64                         *)
  78
  79 procedure MulTo64( X, Y : Int32; var Z : Int64 ); assembler;
  80 asm
  81   push  %ebx
  82   push  %edx
  83
  84   mov   X,%eax
  85   imull Y
  86
  87   mov   Z,%ebx
  88   mov   %eax, (%ebx)
  89   mov   %edx, 4(%ebx)
  90
  91   pop   %edx
  92   pop   %ebx
  93 end;
  94
  95
  96 (**********************************************************)
  97 (* Divide an Int64 by an Int32                            *)
  98
  99 function Div64by32( var X : Int64; Y : Int32 ) : Int32; assembler;
 100 asm
 101   push  %ebx
 102   push  %edx
 103
 104   mov  X,%ebx
 105   mov  (%ebx)  ,%eax
 106   mov  4(%ebx) ,%edx
 107   idivl Y
 108
 109   pop  %edx
 110   pop  %ebx
 111 end;
 112
 113
 114 procedure DivMod64by32( var X : Int64; Y : Int32; var Q, R : Int32 );
 115           assembler;
 116 asm
 117   push  %ebx
 118   push  %edx
 119
 120   mov  X,%ebx
 121   mov  (%ebx)  ,%eax
 122   mov  4(%ebx) ,%edx
 123   idivl Y
 124
 125   mov  Q, %ebx
 126   mov  %eax, (%ebx)
 127
 128   mov  R, %ebx
 129   mov  %edx, (%ebx)
 130
 131   pop  %edx
 132   pop  %ebx
 133 end;
 134