From c0db65da11e0f45dfd32858bcb4de9b8b19eca5a Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 9 Nov 2002 15:36:50 +0000
Subject: [PATCH]   * align all constants correctly (default of 4 size for real
 type constants)

---
 compiler/ncgcon.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/compiler/ncgcon.pas b/compiler/ncgcon.pas
index dc3eca0353..be6b703558 100644
--- a/compiler/ncgcon.pas
+++ b/compiler/ncgcon.pas
@@ -65,7 +65,7 @@ implementation
     uses
       globtype,widestr,systems,
       verbose,globals,
-      symconst,symdef,aasmbase,aasmtai,defbase,
+      symconst,symdef,aasmbase,aasmtai,aasmcpu,defbase,
       cpuinfo,cpubase,
       cginfo,cgbase,tgobj,rgobj
 {$ifdef delphi}
@@ -129,6 +129,7 @@ implementation
                   lab_real:=lastlabel;
                   if (cs_create_smart in aktmoduleswitches) then
                    Consts.concat(Tai_cut.Create);
+                  consts.concat(tai_align.create(const_align(4)));
                   Consts.concat(Tai_label.Create(lastlabel));
                   case realait of
                     ait_real_32bit :
@@ -305,6 +306,7 @@ implementation
                    lab_str:=lastlabel;
                    if (cs_create_smart in aktmoduleswitches) then
                     Consts.concat(Tai_cut.Create);
+                   consts.concat(tai_align.create(const_align(4)));
                    Consts.concat(Tai_label.Create(lastlabel));
                    { generate an ansi string ? }
                    case st_type of
@@ -466,6 +468,7 @@ implementation
                  lab_set:=lastlabel;
                  if (cs_create_smart in aktmoduleswitches) then
                   Consts.concat(Tai_cut.Create);
+                 consts.concat(tai_align.create(const_align(4)));
                  Consts.concat(Tai_label.Create(lastlabel));
                  if tsetdef(resulttype.def).settype=smallset then
                   begin
@@ -506,6 +509,7 @@ implementation
         location_reset(location,LOC_CREFERENCE,OS_NO);
         { label for GUID }
         objectlibrary.getdatalabel(tmplabel);
+        consts.concat(tai_align.create(const_align(16)));
         consts.concat(Tai_label.Create(tmplabel));
         consts.concat(Tai_const.Create_32bit(value.D1));
         consts.concat(Tai_const.Create_16bit(value.D2));
@@ -527,7 +531,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.21  2002-10-06 21:01:50  peter
+  Revision 1.22  2002-11-09 15:36:50  carl
+    * align all constants correctly (default of 4 size for real type constants)
+
+  Revision 1.21  2002/10/06 21:01:50  peter
     * use tconstexpruint instead of qword
 
   Revision 1.20  2002/10/05 12:43:25  carl