Browse Source

+ use int64tostr function for integer consts

pierre 25 years ago
parent
commit
631a4cd660
1 changed files with 6 additions and 3 deletions
  1. 6 3
      compiler/symsym.pas

+ 6 - 3
compiler/symsym.pas

@@ -2144,7 +2144,7 @@ implementation
             constint,
             constpointer,
             constord,
-            constchar : st := 'i'+tostr(value);
+            constchar : st := 'i'+int64tostr(value);
             constreal : begin
                         system.str(pbestreal(TPointerOrd(value))^,st);
                         st := 'r'+st;
@@ -2471,7 +2471,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.5  2000-11-13 14:44:35  jonas
+  Revision 1.6  2000-11-28 00:25:17  pierre
+   + use int64tostr function for integer consts
+
+  Revision 1.5  2000/11/13 14:44:35  jonas
     * fixes so no more range errors with improved range checking code
 
   Revision 1.4  2000/11/08 23:15:17  florian
@@ -2487,4 +2490,4 @@ end.
   Revision 1.1  2000/10/31 22:02:52  peter
     * symtable splitted, no real code changes
 
-}
+}