Ver código fonte

* range error

git-svn-id: trunk@3891 -
peter 19 anos atrás
pai
commit
9998099a05
1 arquivos alterados com 2 adições e 2 exclusões
  1. 2 2
      compiler/systems/t_win.pas

+ 2 - 2
compiler/systems/t_win.pas

@@ -381,12 +381,12 @@ implementation
               if target_info.system=system_x86_64_win64 then
                 begin
                   objdata.writebytes(emptyint,sizeof(emptyint));
-                  emptyint:=$80000000;
+                  emptyint:=longint($80000000);
                   objdata.writebytes(emptyint,sizeof(emptyint));
                 end
               else
                 begin
-                  emptyint:=emptyint or $80000000;
+                  emptyint:=emptyint or longint($80000000);
                   objdata.writebytes(emptyint,sizeof(emptyint));
                 end;
               emptyint:=0;