From a514c02e9b0f49201e72cce866df89d1ce1d3a09 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 10 Mar 1999 13:24:23 +0000
Subject: [PATCH]  * array of const type to definition field

---
 compiler/tcld.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/tcld.pas b/compiler/tcld.pas
index f1e5e400ed..f1028a0462 100644
--- a/compiler/tcld.pas
+++ b/compiler/tcld.pas
@@ -431,7 +431,8 @@ implementation
             end;
          end;
         calcregisters(p,0,0,0);
-        p^.resulttype:=new(parraydef,init(0,len-1,pd));
+        p^.resulttype:=new(parraydef,init(0,len-1,s32bitdef));
+        parraydef(p^.resulttype)^.definition:=pd;
         parraydef(p^.resulttype)^.IsConstructor:=true;
         parraydef(p^.resulttype)^.IsVariant:=varia;
         p^.location.loc:=LOC_REFERENCE;
@@ -452,7 +453,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.16  1999-02-22 02:15:52  peter
+  Revision 1.17  1999-03-10 13:24:23  pierre
+   * array of const type to definition field
+
+  Revision 1.16  1999/02/22 02:15:52  peter
     * updates for ag386bin
 
   Revision 1.15  1999/02/15 13:13:19  pierre