paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 15:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bug found by Kovacs Attila Zoltan corrected

Browse Source
This commit is contained in:
pierre 2000-05-04 12:59:10 +00:00
parent 3930cc5818
commit 40f1da8f8e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pstatmnt.pas
View File

@ -430,7 +430,7 @@ unit pstatmnt;
pwithsymtable(withsymtable)^.direct_with:=true; pwithsymtable(withsymtable)^.direct_with:=true;
{symtab^.withnode:=p; not yet allocated !! } {symtab^.withnode:=p; not yet allocated !! }
pwithsymtable(withsymtable)^.withrefnode:=p; pwithsymtable(withsymtable)^.withrefnode:=p;
withsymtable^.defowner:=obj; withsymtable^.defowner:=precorddef(p^.resulttype);
symtablestack:=withsymtable; symtablestack:=withsymtable;
end; end;
end; end;
@ -1381,7 +1381,10 @@ unit pstatmnt;
end. end.
{ {
$Log$ $Log$
Revision 1.129 2000-04-29 12:50:14 peter Revision 1.130 2000-05-04 12:59:10 pierre
* bug found by Kovacs Attila Zoltan corrected
Revision 1.129 2000/04/29 12:50:14 peter
* support asm block without assembler directive for -Sd * support asm block without assembler directive for -Sd
Revision 1.128 2000/04/24 11:11:50 peter Revision 1.128 2000/04/24 11:11:50 peter