Explorar o código

* range error

git-svn-id: trunk@3891 -
peter %!s(int64=19) %!d(string=hai) anos
pai
achega
9998099a05
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  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;