Browse Source

* range error

git-svn-id: trunk@3891 -
peter 19 years ago
parent
commit
9998099a05
1 changed files with 2 additions and 2 deletions
  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
               if target_info.system=system_x86_64_win64 then
                 begin
                 begin
                   objdata.writebytes(emptyint,sizeof(emptyint));
                   objdata.writebytes(emptyint,sizeof(emptyint));
-                  emptyint:=$80000000;
+                  emptyint:=longint($80000000);
                   objdata.writebytes(emptyint,sizeof(emptyint));
                   objdata.writebytes(emptyint,sizeof(emptyint));
                 end
                 end
               else
               else
                 begin
                 begin
-                  emptyint:=emptyint or $80000000;
+                  emptyint:=emptyint or longint($80000000);
                   objdata.writebytes(emptyint,sizeof(emptyint));
                   objdata.writebytes(emptyint,sizeof(emptyint));
                 end;
                 end;
               emptyint:=0;
               emptyint:=0;