From 4917058b599aa00a750cf84b49528be29071b35b Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 2 May 2004 00:31:03 +0000
Subject: [PATCH]   * fixed compile with 1.0.x

---
 rtl/inc/generic.inc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/rtl/inc/generic.inc b/rtl/inc/generic.inc
index 00eada96ed..ab72c9b022 100644
--- a/rtl/inc/generic.inc
+++ b/rtl/inc/generic.inc
@@ -1161,7 +1161,11 @@ var
      negative := false;
      s:='';
      { Workaround: }
+{$ifdef ver1_0}
+     if (l shr 32=$80000000) and ((l and $ffffffff)=0) then
+{$else}
      if l=int64($8000000000000000) then
+{$endif}     
        begin
          s:='-9223372036854775808';
          exit;
@@ -1221,7 +1225,10 @@ end;
 
 {
   $Log$
-  Revision 1.76  2004-05-01 23:55:18  peter
+  Revision 1.77  2004-05-02 00:31:03  peter
+    * fixed compile with 1.0.x
+
+  Revision 1.76  2004/05/01 23:55:18  peter
     * replace strlenint with sizeint
 
   Revision 1.75  2004/05/01 20:52:50  peter