浏览代码

+ public and alias directive added to *jmp

florian 23 年之前
父节点
当前提交
d78a124122
共有 1 个文件被更改,包括 7 次插入4 次删除
  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
-}
+}