paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +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;
{symtab^.withnode:=p; not yet allocated !! }
pwithsymtable(withsymtable)^.withrefnode:=p;
withsymtable^.defowner:=obj;
withsymtable^.defowner:=precorddef(p^.resulttype);
symtablestack:=withsymtable;
end;
end;
@ -1381,7 +1381,10 @@ unit pstatmnt;
end.
{
$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
Revision 1.128 2000/04/24 11:11:50 peter