mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 23:19:24 +02:00
* fix to align float64 correctly
git-svn-id: trunk@19791 -
This commit is contained in:
parent
c7f846ebd5
commit
41636711e4
@ -147,8 +147,12 @@ TYPE
|
||||
high : qword;
|
||||
end;
|
||||
{$else}
|
||||
float64 = packed record
|
||||
high,low : bits32;
|
||||
float64 = record
|
||||
case byte of
|
||||
1: (high,low : bits32);
|
||||
// force the record to be aligned like a double
|
||||
// else *_to_double will fail for cpus like sparc
|
||||
2: (dummy : double);
|
||||
end;
|
||||
|
||||
int64rec = packed record
|
||||
|
Loading…
Reference in New Issue
Block a user