paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ansistring support in extdebug code

Browse Source
This commit is contained in:
pierre 1998-11-23 17:49:03 +00:00
parent 75086759b1
commit c93531b63f
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/pass_1.pas
View File

@ -296,7 +296,15 @@ implementation
if p^.firstpasscount>0 then if p^.firstpasscount>0 then
begin begin
move(p^,str1[1],sizeof(ttree)); move(p^,str1[1],sizeof(ttree));
{$ifndef TP}
{$ifopt H+}
SetLength(str1,sizeof(ttree));
{$else}
str1[0]:=char(sizeof(ttree)); str1[0]:=char(sizeof(ttree));
{$endif}
{$else}
str1[0]:=char(sizeof(ttree));
{$endif}
new(oldp); new(oldp);
oldp^:=p^; oldp^:=p^;
not_first:=true; not_first:=true;
@ -324,7 +332,15 @@ implementation
begin begin
{ dirty trick to compare two ttree's (PM) } { dirty trick to compare two ttree's (PM) }
move(p^,str2[1],sizeof(ttree)); move(p^,str2[1],sizeof(ttree));
{$ifndef TP}
{$ifopt H+}
SetLength(str2,sizeof(ttree));
{$else}
str2[0]:=char(sizeof(ttree)); str2[0]:=char(sizeof(ttree));
{$endif}
{$else}
str2[0]:=char(sizeof(ttree));
{$endif}
if str1<>str2 then if str1<>str2 then
begin begin
comment(v_debug,'tree changed after first counting pass ' comment(v_debug,'tree changed after first counting pass '
@ -350,7 +366,10 @@ implementation
end. end.
{ {
$Log$ $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 * fixed variant warning with was sometimes said with sets
Revision 1.96 1998/10/06 20:49:07 peter Revision 1.96 1998/10/06 20:49:07 peter