瀏覽代碼

* make the jmp_buf record packed, just in case

carl 23 年之前
父節點
當前提交
af2000b0f7
共有 1 個文件被更改,包括 5 次插入2 次删除
  1. 5 2
      rtl/m68k/setjumph.inc

+ 5 - 2
rtl/m68k/setjumph.inc

@@ -19,7 +19,7 @@
 
 
 Type
 Type
   // CARL, CHANGE THESE TO THE NEEDED VALUES !  (MVC)
   // CARL, CHANGE THESE TO THE NEEDED VALUES !  (MVC)
-  jmp_buf = record
+  jmp_buf = packed record
     ebx,esi,edi : Longint;
     ebx,esi,edi : Longint;
     bp,sp,pc : Pointer;
     bp,sp,pc : Pointer;
     end;
     end;
@@ -28,7 +28,10 @@ Type
 Function Setjmp (Var S : Jmp_buf) : longint;
 Function Setjmp (Var S : Jmp_buf) : longint;
 Procedure longjmp (Var S : Jmp_buf; value : longint);
 Procedure longjmp (Var S : Jmp_buf; value : longint);
   $Log$
   $Log$
-  Revision 1.3  2002-09-07 16:01:20  peter
+  Revision 1.4  2002-10-20 11:53:14  carl
+    * make the jmp_buf record packed, just in case
+
+  Revision 1.3  2002/09/07 16:01:20  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
 }
 }