From e72f528acf228e0aa1c82cf7e1b70105809b56da Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 12 Aug 2001 22:09:40 +0000
Subject: [PATCH]   * write also dynamicarray flag to ppu

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

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index bbee8f8ae2..7c94729586 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -2558,9 +2558,9 @@ implementation
          lowrange:=ppufile.getlongint;
          highrange:=ppufile.getlongint;
          IsArrayOfConst:=boolean(ppufile.getbyte);
+         IsDynamicArray:=boolean(ppufile.getbyte);
          IsVariant:=false;
          IsConstructor:=false;
-         IsDynamicArray:=false;
          rangenr:=0;
       end;
 
@@ -2617,6 +2617,7 @@ implementation
          ppufile.putlongint(lowrange);
          ppufile.putlongint(highrange);
          ppufile.putbyte(byte(IsArrayOfConst));
+         ppufile.putbyte(byte(IsDynamicArray));
          ppufile.writeentry(ibarraydef);
       end;
 
@@ -5545,7 +5546,10 @@ Const local_symtable_index : longint = $8001;
 end.
 {
   $Log$
-  Revision 1.41  2001-08-12 20:04:33  peter
+  Revision 1.42  2001-08-12 22:09:40  peter
+    * write also dynamicarray flag to ppu
+
+  Revision 1.41  2001/08/12 20:04:33  peter
     * fpu_used=0 when simplify_ppu is used
     * small crc updating fixes for tprocdef