Browse Source

* make the record packed (just in case)

carl 23 years ago
parent
commit
876fca9e8f
2 changed files with 10 additions and 4 deletions
  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