From 9998099a05bb5471eda2679317cdf4da372b6594 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 19 Jun 2006 06:33:29 +0000
Subject: [PATCH]   * range error

git-svn-id: trunk@3891 -
---
 compiler/systems/t_win.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/systems/t_win.pas b/compiler/systems/t_win.pas
index 4ed500eab0..d8b4b32653 100644
--- a/compiler/systems/t_win.pas
+++ b/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;