Browse Source

+ public and alias directive added to *jmp

florian 23 years ago
parent
commit
d78a124122
1 changed files with 7 additions and 4 deletions
  1. 7 4
      rtl/powerpc/setjump.inc

+ 7 - 4
rtl/powerpc/setjump.inc

@@ -16,19 +16,22 @@
  **********************************************************************}
  **********************************************************************}
 
 
 { the necessary code can be copied from the linux kernel sources }
 { the necessary code can be copied from the linux kernel sources }
-function setjmp(var S : jmp_buf) : longint;assembler;
+function setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP'];
   asm
   asm
     {$warning FIXME!!!!}
     {$warning FIXME!!!!}
   end;
   end;
 
 
-procedure longjmp(var S : jmp_buf;value : longint);assembler;
+procedure longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP'];
   asm
   asm
     {$warning FIXME!!!!}
     {$warning FIXME!!!!}
   end;
   end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2002-08-10 17:14:36  jonas
+  Revision 1.4  2002-08-31 14:27:40  florian
+    + public and alias directive added to *jmp
+
+  Revision 1.3  2002/08/10 17:14:36  jonas
     * various fixes, mostly changing the names of the modifies registers to
     * various fixes, mostly changing the names of the modifies registers to
       upper case since that seems to be required by the compiler
       upper case since that seems to be required by the compiler
 
 
@@ -39,4 +42,4 @@ procedure longjmp(var S : jmp_buf;value : longint);assembler;
   Revision 1.1  2002/07/28 20:43:49  florian
   Revision 1.1  2002/07/28 20:43:49  florian
     * several fixes for linux/powerpc
     * several fixes for linux/powerpc
     * several fixes to MT
     * several fixes to MT
-}
+}