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

* don't pack softfpu helper records and added dummy for proper alignment, generates much better code on CPUs like arm

Browse Source 
git-svn-id: trunk@20398 -
This commit is contained in:
florian 2012-02-22 20:13:38 +00:00
parent 6278c2473e
commit f0f64a573b
1 changed files with 51 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
rtl/inc/softfpu.pp
View File

@ -129,24 +129,40 @@ TYPE
sbits64 = int64;
{$ifdef ENDIAN_LITTLE}
float64 = packed record
low: bits32;
high: bits32;
float64 = record
case byte of
1: (low,high : bits32);
// force the record to be aligned like a double
// else *_to_double will fail for cpus like sparc
// and avoid expensive unpacking/packing operations
2: (dummy : double);
end;
int64rec = packed record
low: bits32;
high: bits32;
int64rec = record
case byte of
1: (low,high : bits32);
// force the record to be aligned like a double
// else *_to_double will fail for cpus like sparc
// and avoid expensive unpacking/packing operations
2: (dummy : int64);
end;
floatx80 = packed record
low : qword;
high : word;
floatx80 = record
case byte of
1: (low : qword;high : word);
// force the record to be aligned like a double
// else *_to_double will fail for cpus like sparc
// and avoid expensive unpacking/packing operations
2: (dummy : extended);
end;
float128 = packed record
low : qword;
high : qword;
float128 = record
case byte of
1: (low,high : qword);
// force the record to be aligned like a double
// else *_to_double will fail for cpus like sparc
// and avoid expensive unpacking/packing operations
2: (dummy : qword);
end;
{$else}
float64 = record
@ -157,18 +173,31 @@ TYPE
2: (dummy : double);
end;
int64rec = packed record
high,low : bits32;
int64rec = 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
// and avoid expensive unpacking/packing operations
2: (dummy : int64);
end;
floatx80 = record
case byte of
1: (high : word;low : qword);
// force the record to be aligned like a double
// else *_to_double will fail for cpus like sparc
// and avoid expensive unpacking/packing operations
2: (dummy : qword);
end;
floatx80 = packed record
high : word;
low : qword;
end;
float128 = packed record
high : qword;
low : qword;
float128 = record
case byte of
1: (high : qword;low : qword);
// force the record to be aligned like a double
// else *_to_double will fail for cpus like sparc
// and avoid expensive unpacking/packing operations
2: (dummy : qword);
end;
{$endif}