* moved int64 asm code to int64p.inc

  * save ebx,esi

rtl/i386/i386.inc

@@ -31,54 +31,54 @@ asm
         movl    dest,%edi
         movl    source,%esi
         movl    %edi,%eax
-        movl    count,%ebx
+        movl    count,%edx
 { check for zero or negative count }
-        cmpl    $0,%ebx
+        cmpl    $0,%edx
         jle     .LMoveEnd
 { Check for back or forward }
         sub     %esi,%eax
         jz      .LMoveEnd               { Do nothing when source=dest }
         jc      .LFMove                 { Do forward, dest<source }
-        cmp     %ebx,%eax
+        cmp     %edx,%eax
         jb      .LBMove                 { Dest is in range of move, do backward }
 { Forward Copy }
 .LFMove:
         cld
-        cmpl    $15,%ebx
+        cmpl    $15,%edx
         jl      .LFMove1
         movl    %edi,%ecx       { Align on 32bits }
         negl    %ecx
         andl    $3,%ecx
-        subl    %ecx,%ebx
+        subl    %ecx,%edx
         rep
         movsb
-        movl    %ebx,%ecx
-        andl    $3,%ebx
+        movl    %edx,%ecx
+        andl    $3,%edx
         shrl    $2,%ecx
         rep
         movsl
 .LFMove1:
-        movl    %ebx,%ecx
+        movl    %edx,%ecx
         rep
         movsb
         jmp .LMoveEnd
 { Backward Copy }
 .LBMove:
         std
-        addl    %ebx,%esi
-        addl    %ebx,%edi
+        addl    %edx,%esi
+        addl    %edx,%edi
         movl    %edi,%ecx
         decl    %esi
         decl    %edi
-        cmpl    $15,%ebx
+        cmpl    $15,%edx
         jl      .LBMove1
         negl    %ecx            { Align on 32bits }
         andl    $3,%ecx
-        subl    %ecx,%ebx
+        subl    %ecx,%edx
         rep
         movsb
-        movl    %ebx,%ecx
-        andl    $3,%ebx
+        movl    %edx,%ecx
+        andl    $3,%edx
         shrl    $2,%ecx
         subl    $3,%esi
         subl    $3,%edi
@@ -87,7 +87,7 @@ asm
         addl    $3,%esi
         addl    $3,%edi
 .LBMove1:
-        movl    %ebx,%ecx
+        movl    %edx,%ecx
         rep
         movsb
         cld
@@ -113,10 +113,10 @@ asm
         cmpl    $7,%ecx
         jl      .LFill1
         movb    %al,%ah
-        movl    %eax,%ebx
+        movl    %eax,%edx
         shll    $16,%eax
+        movw    %dx,%ax
         movl    %ecx,%edx
-        movw    %bx,%ax
         movl    %edi,%ecx       { Align on 32bits }
         negl    %ecx
         andl    $3,%ecx
@@ -1313,7 +1313,11 @@ end;
 
 {
   $Log$
-  Revision 1.46  2003-09-08 18:21:37  peter
+  Revision 1.47  2003-09-14 11:34:13  peter
+    * moved int64 asm code to int64p.inc
+    * save ebx,esi
+
+  Revision 1.46  2003/09/08 18:21:37  peter
     * save edi,esi,ebx
 
   Revision 1.45  2003/06/01 14:50:17  jonas

rtl/i386/int64p.inc

@@ -0,0 +1,233 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    This file contains some helper routines for int64 and qword
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+{$Q- no overflow checking }
+{$R- no range checking }
+
+{$define FPC_SYSTEM_HAS_DIV_QWORD}
+    function fpc_div_qword(n,z : qword) : qword;assembler;[public,alias: 'FPC_DIV_QWORD']; {$ifdef hascompilerproc} compilerproc; {$endif}
+      var
+         shift,lzz,lzn : longint;
+	 saveebx,saveedi : longint;
+      asm
+            movl %ebx,saveebx
+            movl %edi,saveedi
+            { the following piece of code is taken from the     }
+            { AMD Athlon Processor x86 Code Optimization manual }
+            movl n+4,%ecx
+            movl n,%ebx
+	    movl %ecx,%eax
+	    orl %ebx,%eax
+	    jnz .Lnodivzero
+	    pushl %ebp
+	    pushl $200
+	    call HandleErrorFrame
+	    jmp .Lexit
+.Lnodivzero:
+            movl z+4,%edx
+            movl z,%eax
+            testl %ecx,%ecx
+            jnz .Lqworddivbigdivisor
+            cmpl %ebx,%edx
+            jae .Lqworddivtwo_divs
+            divl %ebx
+            movl %ecx,%edx
+	    jmp .Lexit
+
+         .Lqworddivtwo_divs:
+            movl %eax,%ecx
+            movl %edx,%eax
+            xorl %edx,%edx
+            divl %ebx
+            xchgl %ecx,%eax
+            divl %ebx
+            movl %ecx,%edx
+	    jmp .Lexit
+
+         .Lqworddivbigdivisor:
+            movl %ecx,%edi
+            shrl $1,%edx
+            rcrl $1,%eax
+            rorl $1,%edi
+            rcrl $1,%ebx
+            bsrl %ecx,%ecx
+            shrdl %cl,%edi,%ebx
+            shrdl %cl,%edx,%eax
+            shrl %cl,%edx
+            roll $1,%edi
+            divl %ebx
+            movl z,%ebx
+            movl %eax,%ecx
+            imull %eax,%edi
+            mull n
+            addl %edi,%edx
+            subl %eax,%ebx
+            movl %ecx,%eax
+            movl z+4,%ecx
+            sbbl %edx,%ecx
+            sbbl $0,%eax
+            xorl %edx,%edx
+.Lexit:
+            movl saveebx,%ebx
+            movl saveedi,%edi
+      end;
+
+
+(*
+  This does not work correctly
+
+{$define FPC_SYSTEM_HAS_MOD_QWORD}
+    function fpc_mod_qword(n,z : qword) : qword;[public,alias: 'FPC_MOD_QWORD']; {$ifdef hascompilerproc} compilerproc; {$endif}
+      var
+         shift,lzz,lzn : longint;
+	 saveebx,saveedi : longint;
+      asm
+            movl %ebx,saveebx
+            movl %edi,saveedi
+            { the following piece of code is taken from the     }
+            { AMD Athlon Processor x86 Code Optimization manual }
+            movl n+4,%ecx
+            movl n,%ebx
+	    movl %ecx,%eax
+	    orl %ebx,%eax
+	    jnz .Lnodivzero
+	    pushl %ebp
+	    pushl $200
+	    call HandleErrorFrame
+	    jmp .Lexit
+            movl z+4,%edx
+            movl z,%eax
+            testl %ecx,%ecx
+            jnz .Lqwordmodr_big_divisior
+            cmpl %ebx,%edx
+            jae .Lqwordmodr_two_divs
+            divl %ebx
+            movl %edx,%eax
+            movl %ecx,%edx
+	    jmp .Lexit
+
+         .Lqwordmodr_two_divs:
+            movl %eax,%ecx
+            movl %edx,%eax
+            xorl %edx,%edx
+            divl %ebx
+            movl %ecx,%eax
+            divl %ebx
+            movl %edx,%eax
+            xorl %edx,%edx
+	    jmp .Lexit
+
+         .Lqwordmodr_big_divisior:
+            movl %ecx,%edi
+            shrl $1,%edx
+            rcrl $1,%eax
+            rorl $1,%edi
+            rcrl $1,%ebx
+            bsrl %ecx,%ecx
+            shrdl %cl,%edi,%ebx
+            shrdl %cl,%edx,%eax
+            shrl %cl,%edx
+            rorl $1,%edi
+            divl %ebx
+            movl z,%ebx
+            movl %eax,%ecx
+            imull %eax,%edi
+            mull n
+            addl %edi,%edx
+            subl %eax,%ebx
+            movl z+4,%ecx
+            movl n,%eax
+            sbbl %edx,%ecx
+            sbbl %edx,%edx
+            andl %edx,%eax
+            andl n+4,%edx
+            addl %ebx,%eax
+            adcl %ecx,%edx
+.Lexit:
+            movl saveebx,%ebx
+            movl saveedi,%edi
+      end;
+*)
+
+
+{$define FPC_SYSTEM_HAS_MUL_QWORD}
+    { multiplies two qwords
+      the longbool for checkoverflow avoids a misaligned stack
+    }
+    function fpc_mul_qword(f1,f2 : qword;checkoverflow : longbool) : qword;[public,alias: 'FPC_MUL_QWORD']; {$ifdef hascompilerproc} compilerproc; {$endif}
+
+      var
+         _f1,bitpos : qword;
+         l : longint;
+         r : qword;
+
+      begin
+         if not(checkoverflow) then
+           begin
+              { the following piece of code is taken from the     }
+              { AMD Athlon Processor x86 Code Optimization manual }
+              asm
+                 movl f1+4,%edx
+                 movl f2+4,%ecx
+                 orl %ecx,%edx
+                 movl f2,%edx
+                 movl f1,%eax
+                 jnz .Lqwordmultwomul
+                 mull %edx
+                 jmp .Lqwordmulready
+              .Lqwordmultwomul:
+                 imul f1+4,%edx
+                 imul %eax,%ecx
+                 addl %edx,%ecx
+                 mull f2
+                 add %ecx,%edx
+              .Lqwordmulready:
+                 movl %eax,r
+                 movl %edx,r+4
+              end [ 'eax','edx','ecx' ];
+              fpc_mul_qword:=r;
+           end
+         else
+           begin
+              fpc_mul_qword:=0;
+              bitpos:=1;
+
+              // store f1 for overflow checking
+              _f1:=f1;
+
+              for l:=0 to 63 do
+                begin
+                   if (f2 and bitpos)<>0 then
+                     fpc_mul_qword:=fpc_mul_qword+f1;
+
+                   f1:=f1 shl 1;
+                   bitpos:=bitpos shl 1;
+                end;
+
+              { if one of the operands is greater than the result an }
+              { overflow occurs                                      }
+              if checkoverflow and (_f1 <> 0) and (f2 <>0) and
+                 ((_f1>fpc_mul_qword) or (f2>fpc_mul_qword)) then
+                HandleErrorFrame(215,get_frame);
+           end;
+      end;
+
+{
+  $Log$
+  Revision 1.1  2003-09-14 11:34:13  peter
+    * moved int64 asm code to int64p.inc
+    * save ebx,esi
+
+}

rtl/inc/int64.inc

@@ -96,71 +96,17 @@
          count_leading_zeros:=r;
       end;
 
+
+{$ifndef FPC_SYSTEM_HAS_DIV_QWORD}
     function fpc_div_qword(n,z : qword) : qword;[public,alias: 'FPC_DIV_QWORD']; {$ifdef hascompilerproc} compilerproc; {$endif}
 
       var
          shift,lzz,lzn : longint;
-         { one : qword; }
 
       begin
          fpc_div_qword:=0;
          if n=0 then
            HandleErrorFrame(200,get_frame);
-{$ifdef i386}
-         { the following piece of code is taken from the     }
-         { AMD Athlon Processor x86 Code Optimization manual }
-         asm
-            movl n+4,%ecx
-            movl n,%ebx
-            movl z+4,%edx
-            movl z,%eax
-            testl %ecx,%ecx
-            jnz .Lqworddivbigdivisor
-            cmpl %ebx,%edx
-            jae .Lqworddivtwo_divs
-            divl %ebx
-            movl %ecx,%edx
-            leave
-            ret $16
-
-         .Lqworddivtwo_divs:
-            movl %eax,%ecx
-            movl %edx,%eax
-            xorl %edx,%edx
-            divl %ebx
-            xchgl %ecx,%eax
-            divl %ebx
-            movl %ecx,%edx
-            leave
-            ret $16
-
-         .Lqworddivbigdivisor:
-            movl %ecx,%edi
-            shrl $1,%edx
-            rcrl $1,%eax
-            rorl $1,%edi
-            rcrl $1,%ebx
-            bsrl %ecx,%ecx
-            shrdl %cl,%edi,%ebx
-            shrdl %cl,%edx,%eax
-            shrl %cl,%edx
-            roll $1,%edi
-            divl %ebx
-            movl z,%ebx
-            movl %eax,%ecx
-            imull %eax,%edi
-            mull n
-            addl %edi,%edx
-            subl %eax,%ebx
-            movl %ecx,%eax
-            movl z+4,%ecx
-            sbbl %edx,%ecx
-            sbbl $0,%eax
-            xorl %edx,%edx
-            leave
-            ret $16
-         end;
-{$else i386}
          lzz:=count_leading_zeros(z);
          lzn:=count_leading_zeros(n);
          { if the denominator contains less zeros }
@@ -179,9 +125,11 @@
            dec(shift);
            n:=n shr 1;
          until shift<0;
-{$endif i386}
       end;
+{$endif FPC_SYSTEM_HAS_DIV_QWORD}
+
 
+{$ifndef FPC_SYSTEM_HAS_MOD_QWORD}
     function fpc_mod_qword(n,z : qword) : qword;[public,alias: 'FPC_MOD_QWORD']; {$ifdef hascompilerproc} compilerproc; {$endif}
 
       var
@@ -191,66 +139,6 @@
          fpc_mod_qword:=0;
          if n=0 then
            HandleErrorFrame(200,get_frame);
-{$ifdef i386_not_working_correct}
-         { the following piece of code is taken from the     }
-         { AMD Athlon Processor x86 Code Optimization manual }
-         asm
-            movl n+4,%ecx
-            movl n,%ebx
-            movl z+4,%edx
-            movl z,%eax
-            testl %ecx,%ecx
-            jnz .Lqwordmodr_big_divisior
-            cmpl %ebx,%edx
-            jae .Lqwordmodr_two_divs
-            divl %ebx
-            movl %edx,%eax
-            movl %ecx,%edx
-            leave
-            ret $16
-
-         .Lqwordmodr_two_divs:
-            movl %eax,%ecx
-            movl %edx,%eax
-            xorl %edx,%edx
-            divl %ebx
-            movl %ecx,%eax
-            divl %ebx
-            movl %edx,%eax
-            xorl %edx,%edx
-            leave
-            ret $16
-
-         .Lqwordmodr_big_divisior:
-            movl %ecx,%edi
-            shrl $1,%edx
-            rcrl $1,%eax
-            rorl $1,%edi
-            rcrl $1,%ebx
-            bsrl %ecx,%ecx
-            shrdl %cl,%edi,%ebx
-            shrdl %cl,%edx,%eax
-            shrl %cl,%edx
-            rorl $1,%edi
-            divl %ebx
-            movl z,%ebx
-            movl %eax,%ecx
-            imull %eax,%edi
-            mull n
-            addl %edi,%edx
-            subl %eax,%ebx
-            movl z+4,%ecx
-            movl n,%eax
-            sbbl %edx,%ecx
-            sbbl %edx,%edx
-            andl %edx,%eax
-            andl n+4,%edx
-            addl %ebx,%eax
-            adcl %ecx,%edx
-            leave
-            ret $16
-         end;
-{$else i386}
          lzz:=count_leading_zeros(z);
          lzn:=count_leading_zeros(n);
          { if the denominator contains less zeros }
@@ -270,9 +158,11 @@
            n:=n shr 1;
          until shift<0;
          fpc_mod_qword:=z;
-{$endif i386}
       end;
+{$endif FPC_SYSTEM_HAS_MOD_QWORD}
 
+
+{$ifndef FPC_SYSTEM_HAS_DIV_INT64}
     function fpc_div_int64(n,z : int64) : int64;[public,alias: 'FPC_DIV_INT64']; {$ifdef hascompilerproc} compilerproc; {$endif}
 
       var
@@ -307,7 +197,10 @@
                 fpc_div_int64:=q1 div q2;
            end;
       end;
+{$endif FPC_SYSTEM_HAS_DIV_INT64}
+
 
+{$ifndef FPC_SYSTEM_HAS_MOD_INT64}
     function fpc_mod_int64(n,z : int64) : int64;[public,alias: 'FPC_MOD_INT64']; {$ifdef hascompilerproc} compilerproc; {$endif}
 
       var
@@ -340,7 +233,10 @@
          else
            fpc_mod_int64:=r;
       end;
+{$endif FPC_SYSTEM_HAS_MOD_INT64}
 
+
+{$ifndef FPC_SYSTEM_HAS_MUL_QWORD}
     { multiplies two qwords
       the longbool for checkoverflow avoids a misaligned stack
     }
@@ -350,40 +246,7 @@
          _f1,bitpos : qword;
          l : longint;
 
-{$ifdef i386}
-         r : qword;
-{$endif i386}
-
       begin
-{$ifdef i386}
-         if not(checkoverflow) then
-           begin
-              { the following piece of code is taken from the     }
-              { AMD Athlon Processor x86 Code Optimization manual }
-              asm
-                 movl f1+4,%edx
-                 movl f2+4,%ecx
-                 orl %ecx,%edx
-                 movl f2,%edx
-                 movl f1,%eax
-                 jnz .Lqwordmultwomul
-                 mull %edx
-                 jmp .Lqwordmulready
-              .Lqwordmultwomul:
-                 imul f1+4,%edx
-                 imul %eax,%ecx
-                 addl %edx,%ecx
-                 mull f2
-                 add %ecx,%edx
-              .Lqwordmulready:
-                 movl %eax,r
-                 movl %edx,r+4
-              end;
-              fpc_mul_qword:=r;
-           end
-         else
-{$endif i386}
-           begin
               fpc_mul_qword:=0;
               bitpos:=1;
 
@@ -404,9 +267,11 @@
               if checkoverflow and (_f1 <> 0) and (f2 <>0) and
                  ((_f1>fpc_mul_qword) or (f2>fpc_mul_qword)) then
                 HandleErrorFrame(215,get_frame);
-           end;
       end;
+{$endif FPC_SYSTEM_HAS_MUL_QWORD}
+
 
+{$ifndef FPC_SYSTEM_HAS_MUL_INT64}
     function fpc_mul_int64(f1,f2 : int64;checkoverflow : longbool) : int64;[public,alias: 'FPC_MUL_INT64']; {$ifdef hascompilerproc} compilerproc; {$endif}
 
       var
@@ -448,6 +313,8 @@
                 fpc_mul_int64:=q3;
            end;
       end;
+{$endif FPC_SYSTEM_HAS_MUL_INT64}
+
 
     procedure qword_str(value : qword;var s : string);
 
@@ -463,6 +330,7 @@
          s:=hs;
       end;
 
+
     procedure int64_str(value : int64;var s : string);
 
       var
@@ -480,6 +348,7 @@
            qword_str(qword(value),s);
       end;
 
+
   procedure fpc_shortstr_qword(v : qword;len : longint;var s : shortstring);[public,alias:'FPC_SHORTSTR_QWORD']; {$ifdef hascompilerproc} compilerproc; {$endif}
 
     begin
@@ -641,7 +510,11 @@
 
 {
   $Log$
-  Revision 1.21  2003-09-03 14:09:37  florian
+  Revision 1.22  2003-09-14 11:34:13  peter
+    * moved int64 asm code to int64p.inc
+    * save ebx,esi
+
+  Revision 1.21  2003/09/03 14:09:37  florian
     * arm fixes to the common rtl code
     * some generic math code fixed
     * ...

rtl/inc/system.inc

@@ -245,6 +245,7 @@ end;
 {$i sstrings.inc}
 
 { requires sstrings.inc for initval }
+{$I int64p.inc}
 {$I int64.inc}
 
 {Requires int64.inc, since that contains the VAL functions for int64 and qword}
@@ -767,7 +768,11 @@ end;
 
 {
   $Log$
-  Revision 1.42  2003-09-03 14:09:37  florian
+  Revision 1.43  2003-09-14 11:34:13  peter
+    * moved int64 asm code to int64p.inc
+    * save ebx,esi
+
+  Revision 1.42  2003/09/03 14:09:37  florian
     * arm fixes to the common rtl code
     * some generic math code fixed
     * ...

rtl/linux/i386/syscall.inc

@@ -19,7 +19,7 @@
 
 {$ASMMODE ATT}
 
-function FpSysCall(sysnr:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL0'];
+function FpSysCall(sysnr:TSysParam):TSysResult; assembler;{$ifndef VER1_0}oldfpccall;{$endif}[public,alias:'FPC_SYSCALL0'];
 
 asm
 { load the registers... }
@@ -49,7 +49,7 @@ asm
 .LSyscOK:
 end;
 
-function FpSysCall(sysnr,param1 : TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL1'];
+function FpSysCall(sysnr,param1 : TSysParam):TSysResult; assembler;{$ifndef VER1_0}oldfpccall;{$endif}[public,alias:'FPC_SYSCALL1'];
 
 asm
 { load the registers... }
@@ -80,7 +80,7 @@ asm
 .LSyscOK:
 end;
 
-function FpSysCall(sysnr,param1,param2 : TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL2'];
+function FpSysCall(sysnr,param1,param2 : TSysParam):TSysResult; assembler;{$ifndef VER1_0}oldfpccall;{$endif}[public,alias:'FPC_SYSCALL2'];
 
 asm
 { load the registers... }
@@ -112,7 +112,7 @@ asm
 .LSyscOK:
 end;
 
-function FpSysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL3'];
+function FpSysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; assembler;{$ifndef VER1_0}oldfpccall;{$endif}[public,alias:'FPC_SYSCALL3'];
 
 asm
 { load the registers... }
@@ -145,7 +145,7 @@ asm
 .LSyscOK:
 end;
 
-function FpSysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL4'];
+function FpSysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; assembler;{$ifndef VER1_0}oldfpccall;{$endif}[public,alias:'FPC_SYSCALL4'];
 
 asm
 { load the registers... }
@@ -179,7 +179,7 @@ asm
 .LSyscOK:
 end;
 
-function FpSysCall(sysnr,param1,param2,param3,param4,param5 : TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL5'];
+function FpSysCall(sysnr,param1,param2,param3,param4,param5 : TSysParam):TSysResult; assembler;{$ifndef VER1_0}oldfpccall;{$endif}[public,alias:'FPC_SYSCALL5'];
 
 asm
 { load the registers... }
@@ -216,7 +216,7 @@ end;
 
 {$ifdef notsupported}
 { Only 5 params are pushed, so it'll not work as expected (PFV) }
-function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6 : TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL6'];
+function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6 : TSysParam):TSysResult; assembler;{$ifndef VER1_0}oldfpccall;{$endif}[public,alias:'FPC_SYSCALL6'];
 
 asm
 { load the registers... }
@@ -261,7 +261,7 @@ end;
                      --- Main:The System Call Self ---
 *****************************************************************************}
 
-Procedure FpSysCall( callnr:TSysParam;var regs : SysCallregs );assembler;
+Procedure FpSysCall( callnr:TSysParam;var regs : SysCallregs );assembler;{$ifndef VER1_0}oldfpccall;{$endif}
 {
   This function puts the registers in place, does the call, and then
   copies back the registers as they are after the SysCall.
@@ -341,7 +341,11 @@ end;
 
 {
   $Log$
-  Revision 1.7  2002-12-24 19:45:59  peter
+  Revision 1.8  2003-09-14 11:34:13  peter
+    * moved int64 asm code to int64p.inc
+    * save ebx,esi
+
+  Revision 1.7  2002/12/24 19:45:59  peter
     * only set errno when syscall fails
 
   Revision 1.6  2002/12/23 21:17:53  peter

rtl/linux/i386/syscallh.inc

@@ -34,19 +34,23 @@ Type
 
   TSysParam  = Longint;
 
-function Do_SysCall(sysnr:TSysParam):TSysResult;  external name 'FPC_SYSCALL0';
-function Do_SysCall(sysnr,param1:TSysParam):TSysResult; external name 'FPC_SYSCALL1';
-function Do_SysCall(sysnr,param1,param2:TSysParam):TSysResult;  external name 'FPC_SYSCALL2';
-function Do_SysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; external name 'FPC_SYSCALL3';
-function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; external name 'FPC_SYSCALL4';
-function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult;  external name 'FPC_SYSCALL5';
+function Do_SysCall(sysnr:TSysParam):TSysResult;{$ifndef VER1_0}oldfpccall;{$endif}external name 'FPC_SYSCALL0';
+function Do_SysCall(sysnr,param1:TSysParam):TSysResult;{$ifndef VER1_0}oldfpccall;{$endif}external name 'FPC_SYSCALL1';
+function Do_SysCall(sysnr,param1,param2:TSysParam):TSysResult; {$ifndef VER1_0}oldfpccall;{$endif}external name 'FPC_SYSCALL2';
+function Do_SysCall(sysnr,param1,param2,param3:TSysParam):TSysResult;{$ifndef VER1_0}oldfpccall;{$endif}external name 'FPC_SYSCALL3';
+function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult;{$ifndef VER1_0}oldfpccall;{$endif}external name 'FPC_SYSCALL4';
+function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; {$ifndef VER1_0}oldfpccall;{$endif}external name 'FPC_SYSCALL5';
 {$ifdef notsupported}
-function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult;  external name 'FPC_SYSCALL6';
+function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; {$ifndef VER1_0}oldfpccall;{$endif}external name 'FPC_SYSCALL6';
 {$endif notsupported}
 
 {
   $Log$
-  Revision 1.4  2003-07-06 21:26:10  peter
+  Revision 1.5  2003-09-14 11:34:13  peter
+    * moved int64 asm code to int64p.inc
+    * save ebx,esi
+
+  Revision 1.4  2003/07/06 21:26:10  peter
     * syscall6 alias fixed
 
   Revision 1.3  2002/12/18 20:41:33  peter

rtl/powerpc/int64p.inc

@@ -0,0 +1,23 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    This file contains some helper routines for int64 and qword
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{
+  $Log$
+  Revision 1.1  2003-09-14 11:34:13  peter
+    * moved int64 asm code to int64p.inc
+    * save ebx,esi
+
+}

rtl/sparc/int64p.inc

@@ -0,0 +1,23 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    This file contains some helper routines for int64 and qword
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{
+  $Log$
+  Revision 1.1  2003-09-14 11:34:13  peter
+    * moved int64 asm code to int64p.inc
+    * save ebx,esi
+
+}