Explorar o código

Avoid invalid typecast in tarmunaryminusnode.pass_1 method

git-svn-id: trunk@44726 -
pierre %!s(int64=5) %!d(string=hai) anos
pai
achega
73b563b367
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/arm/narmmat.pas

+ 1 - 1
compiler/arm/narmmat.pas

@@ -368,7 +368,7 @@ implementation
           end;
 
         if (FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) or
-          (tfloatdef(resultdef).floattype=s32real) then
+          is_single(resultdef) then
           exit(inherited pass_1);
 
         result:=nil;