Browse Source

* fixed longint/cardinal comparison in int_str

Jonas Maebe 21 years ago
parent
commit
2b28a58c6d
1 changed files with 5 additions and 2 deletions
  1. 5 2
      rtl/inc/generic.inc

+ 5 - 2
rtl/inc/generic.inc

@@ -954,7 +954,7 @@ var
      negative := false;
      negative := false;
      s:='';
      s:='';
      { Workaround: }
      { Workaround: }
-     if l=$80000000 then
+     if l=longint($80000000) then
        begin
        begin
          s:='-2147483648';
          s:='-2147483648';
          exit;
          exit;
@@ -1014,7 +1014,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.61  2003-09-03 14:09:37  florian
+  Revision 1.62  2003-12-06 13:25:30  jonas
+    * fixed longint/cardinal comparison in int_str
+
+  Revision 1.61  2003/09/03 14:09:37  florian
     * arm fixes to the common rtl code
     * arm fixes to the common rtl code
     * some generic math code fixed
     * some generic math code fixed
     * ...
     * ...