|
@@ -2144,7 +2144,7 @@ implementation
|
|
|
constint,
|
|
constint,
|
|
|
constpointer,
|
|
constpointer,
|
|
|
constord,
|
|
constord,
|
|
|
- constchar : st := 'i'+tostr(value);
|
|
|
|
|
|
|
+ constchar : st := 'i'+int64tostr(value);
|
|
|
constreal : begin
|
|
constreal : begin
|
|
|
system.str(pbestreal(TPointerOrd(value))^,st);
|
|
system.str(pbestreal(TPointerOrd(value))^,st);
|
|
|
st := 'r'+st;
|
|
st := 'r'+st;
|
|
@@ -2471,7 +2471,10 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$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
|
|
* fixes so no more range errors with improved range checking code
|
|
|
|
|
|
|
|
Revision 1.4 2000/11/08 23:15:17 florian
|
|
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
|
|
Revision 1.1 2000/10/31 22:02:52 peter
|
|
|
* symtable splitted, no real code changes
|
|
* symtable splitted, no real code changes
|
|
|
|
|
|
|
|
-}
|
|
|
|
|
|
|
+}
|
pierre