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
-  jmp_buf = record
+  jmp_buf = packed record
     ebx,esi,edi : Longint;
     bp,sp,pc : Pointer;
     end;
@@ -26,7 +26,10 @@ Procedure longjmp (Var S : Jmp_buf; value : longint);
 
 {
   $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
 
 }

+ 5 - 2
rtl/powerpc/setjumph.inc

@@ -16,7 +16,7 @@
  **********************************************************************}
 
 type
-   jmp_buf = record
+   jmp_buf = packed record
     {$warning FIXME!!!!}
    end;
    pjmp_buf = ^jmp_buf;
@@ -26,7 +26,10 @@ procedure longjmp(var S : jmp_buf;value : longint);
 
 {
   $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
       upper case since that seems to be required by the compiler