Selaa lähdekoodia

* range error

git-svn-id: trunk@3891 -
peter 19 vuotta sitten
vanhempi
commit
9998099a05
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  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;