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

* fixed bug #249

Browse Source
This commit is contained in:
peter 1999-06-01 19:26:39 +00:00
parent 469745aae7
commit f711d885f6
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/tcld.pas
View File

@ -60,7 +60,8 @@ implementation
begin begin
if (p^.symtable^.symtabletype=withsymtable) and if (p^.symtable^.symtabletype=withsymtable) and
(pwithsymtable(p^.symtable)^.direct_with) then (pwithsymtable(p^.symtable)^.direct_with) and
(p^.symtableentry^.typ=varsym) then
begin begin
p1:=getcopy(ptree(pwithsymtable(p^.symtable)^.withrefnode)); p1:=getcopy(ptree(pwithsymtable(p^.symtable)^.withrefnode));
p1:=gensubscriptnode(pvarsym(p^.symtableentry),p1); p1:=gensubscriptnode(pvarsym(p^.symtableentry),p1);
@ -453,7 +454,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.33 1999-05-27 19:45:21 peter Revision 1.34 1999-06-01 19:26:39 peter
* fixed bug 249
Revision 1.33 1999/05/27 19:45:21 peter
* removed oldasm * removed oldasm
* plabel -> pasmlabel * plabel -> pasmlabel
* -a switches to source writing automaticly * -a switches to source writing automaticly