paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* sparc needs alignment on 8 bytes to allow doubles

Browse Source
This commit is contained in:
peter 2004-05-31 12:18:16 +00:00
parent 265b97da28
commit b3eb8fb2af
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/heap.inc
View File

@ -101,6 +101,10 @@ type
theaprecord = record theaprecord = record
{ this should overlap with tfreerecord } { this should overlap with tfreerecord }
size : ptrint; size : ptrint;
{$ifdef cpusparc}
{ sparc needs alignment on 8 for double }
_dummy : ptrint;
{$endif cpusparc}
end; { 4/8 bytes } end; { 4/8 bytes }
tfreelists = array[0..maxblock] of pfreerecord; tfreelists = array[0..maxblock] of pfreerecord;
@ -1340,7 +1344,10 @@ end;
{ {
$Log$ $Log$
Revision 1.29 2004-04-26 16:20:54 peter Revision 1.30 2004-05-31 12:18:16 peter
* sparc needs alignment on 8 bytes to allow doubles
Revision 1.29 2004/04/26 16:20:54 peter
* 64bit fixes * 64bit fixes
Revision 1.28 2004/03/15 21:48:26 peter Revision 1.28 2004/03/15 21:48:26 peter