Explorar el Código

Avoid invalid typecast in tarmunaryminusnode.pass_1 method

git-svn-id: trunk@44726 -
pierre hace 5 años
padre
commit
73b563b367
Se han modificado 1 ficheros con 1 adiciones y 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;