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

* fixed with and procsym

Browse Source
This commit is contained in:
peter 1999-05-16 17:04:39 +00:00
parent ad3061e7c1
commit d60283c76d
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

@ -65,7 +65,8 @@ implementation
begin
{$ifndef NODIRECTWITH}
if (p^.symtable^.symtabletype=withsymtable) and
(pwithsymtable(p^.symtable)^.direct_with) then
(pwithsymtable(p^.symtable)^.direct_with) and
(p^.symtableentry^.typ=varsym) then
begin
p1:=getcopy(ptree(pwithsymtable(p^.symtable)^.withrefnode));
p1:=gensubscriptnode(pvarsym(p^.symtableentry),p1);
@ -451,7 +452,10 @@ implementation
end.
{
$Log$
Revision 1.27 1999-05-12 00:20:02 peter
Revision 1.28 1999-05-16 17:04:39 peter
* fixed with and procsym
Revision 1.27 1999/05/12 00:20:02 peter
* removed R_DEFAULT_SEG
* uniform float names