Przeglądaj źródła

* actually the important part of r12120 containing the compiler change

git-svn-id: trunk@12121 -
florian 16 lat temu
rodzic
commit
a0939ad9d6
1 zmienionych plików z 3 dodań i 4 usunięć
  1. 3 4
      compiler/ncnv.pas

+ 3 - 4
compiler/ncnv.pas

@@ -2498,14 +2498,13 @@ implementation
             (left.resultdef.size=resultdef.size) and
             (left.expectloc in [LOC_REFERENCE,LOC_CREFERENCE,LOC_CREGISTER]) then
            exit;
-         { when converting 64bit int to C-ctyle boolean, first convert to a 32bit int and then   }
+         { when converting 64bit int to C-ctyle boolean, first convert to an int32 and then }
          { convert to a boolean (only necessary for 32bit processors) }
          if (left.resultdef.size > sizeof(aint)) and (left.resultdef.size<>resultdef.size)
             and is_cbool(resultdef) then
            begin
-             result := ctypeconvnode.create_internal(left,s32inttype);
-             left := nil;
-             firstpass(result);
+             left:=ctypeconvnode.create_internal(left,s32inttype);
+             firstpass(left);
              exit;
            end;
          expectloc:=LOC_REGISTER;