* 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.

git-svn-id: trunk@17787 -

compiler/ncgcon.pas

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