|
|
@@ -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
|
|
|
|
peter