浏览代码

* make the record packed (just in case)

carl 23 年之前
父节点
当前提交
876fca9e8f
共有 2 个文件被更改,包括 10 次插入4 次删除
  1. 5 2
      rtl/i386/setjumph.inc
  2. 5 2
      rtl/powerpc/setjumph.inc

+ 5 - 2
rtl/i386/setjumph.inc

@@ -15,7 +15,7 @@
  **********************************************************************}
  **********************************************************************}
 
 
 Type
 Type
-  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;
@@ -26,7 +26,10 @@ Procedure longjmp (Var S : Jmp_buf; value : longint);
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2002-09-07 16:01:19  peter
+  Revision 1.4  2002-09-15 10:04:31  carl
+    * make the record packed (just in case)
+
+  Revision 1.3  2002/09/07 16:01:19  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
 }
 }

+ 5 - 2
rtl/powerpc/setjumph.inc

@@ -16,7 +16,7 @@
  **********************************************************************}
  **********************************************************************}
 
 
 type
 type
-   jmp_buf = record
+   jmp_buf = packed record
     {$warning FIXME!!!!}
     {$warning FIXME!!!!}
    end;
    end;
    pjmp_buf = ^jmp_buf;
    pjmp_buf = ^jmp_buf;
@@ -26,7 +26,10 @@ procedure longjmp(var S : jmp_buf;value : longint);
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.4  2002-08-10 17:14:36  jonas
+  Revision 1.5  2002-09-15 10:03:04  carl
+    * make the record packed (just in case)
+
+  Revision 1.4  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