From ad93588fa11f34d253d0ebd5aa2b87f1b5910773 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 3 Jul 2010 13:06:40 +0000
Subject: [PATCH]   * use 32 bit int->string conversions for non-64 bit
 constants on 32 bit     platforms

git-svn-id: trunk@15517 -
---
 compiler/aggas.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/compiler/aggas.pas b/compiler/aggas.pas
index fe102ec46a..ffbb44649e 100644
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@@ -865,7 +865,12 @@ implementation
                                  s:=s+tostr_with_plus(tai_const(hp).value);
                              end
                            else
+{$ifdef cpu64bitaddr}
                              s:=tostr(tai_const(hp).value);
+{$else cpu64bitaddr}
+                             { 64 bit constants are already handled above in this case }
+                             s:=tostr(longint(tai_const(hp).value));
+{$endif cpu64bitaddr}
                            AsmWrite(s);
                            inc(l,length(s));
                            { Values with symbols are written on a single line to improve