From c93531b63f8b6cc3b9e7e2e827235bf3e870c885 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 23 Nov 1998 17:49:03 +0000
Subject: [PATCH]  * ansistring support in extdebug code

---
 compiler/pass_1.pas | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/compiler/pass_1.pas b/compiler/pass_1.pas
index a42668b2f8..632f900a76 100644
--- a/compiler/pass_1.pas
+++ b/compiler/pass_1.pas
@@ -296,7 +296,15 @@ implementation
          if p^.firstpasscount>0 then
            begin
               move(p^,str1[1],sizeof(ttree));
+       {$ifndef TP}
+         {$ifopt H+}
+           SetLength(str1,sizeof(ttree));
+         {$else}
               str1[0]:=char(sizeof(ttree));
+         {$endif}
+       {$else}
+              str1[0]:=char(sizeof(ttree));
+       {$endif}
               new(oldp);
               oldp^:=p^;
               not_first:=true;
@@ -324,7 +332,15 @@ implementation
            begin
               { dirty trick to compare two ttree's (PM) }
               move(p^,str2[1],sizeof(ttree));
+       {$ifndef TP}
+         {$ifopt H+}
+           SetLength(str2,sizeof(ttree));
+         {$else}
               str2[0]:=char(sizeof(ttree));
+         {$endif}
+       {$else}
+              str2[0]:=char(sizeof(ttree));
+       {$endif}
               if str1<>str2 then
                 begin
                    comment(v_debug,'tree changed after first counting pass '
@@ -350,7 +366,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.97  1998-11-05 14:26:47  peter
+  Revision 1.98  1998-11-23 17:49:03  pierre
+   * ansistring support in extdebug code
+
+  Revision 1.97  1998/11/05 14:26:47  peter
     * fixed variant warning with was sometimes said with sets
 
   Revision 1.96  1998/10/06 20:49:07  peter