paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 11:30:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

* make the record packed (just in case)

Browse Source
This commit is contained in:
carl 2002-09-15 10:03:04 +00:00
parent e1ee6be79e
commit 876fca9e8f
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/i386/setjumph.inc
View File

@ -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
}

7
rtl/powerpc/setjumph.inc
View File

@ -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