paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Float constants must be pooled using their the actual type, not the mapped type of assembler instruction. Otherwise e.g. extended may be mixed up with cextended, because both are mapped to ait_real_80bit.

Browse Source 
git-svn-id: trunk@17787 -
This commit is contained in:
sergei 2011-06-22 02:57:07 +00:00
parent 354eae1e6b
commit 3dba3a0219
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgcon.pas
View File

@ -116,7 +116,7 @@ implementation
type
tfloatkey = record
value: bestreal;
aitype: taitype;
typ: tfloattype;
swapped: boolean;
end;
@ -145,7 +145,7 @@ implementation
{ there may be gap between record fields, zero it out }
fillchar(key,sizeof(key),0);
key.value:=value_real;
key.aitype:=realait;
key.typ:=tfloatdef(resultdef).floattype;
{$ifdef ARM}
key.swapped:=hiloswapped;
{$endif ARM}