|
@@ -1327,7 +1327,7 @@ implementation
|
|
|
Factor
|
|
Factor
|
|
|
****************************************************************************}
|
|
****************************************************************************}
|
|
|
|
|
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
function is_member_read(sym: tsym; st: tsymtable; var p1: tnode;
|
|
function is_member_read(sym: tsym; st: tsymtable; var p1: tnode;
|
|
|
out memberparentdef: tdef): boolean;
|
|
out memberparentdef: tdef): boolean;
|
|
|
var
|
|
var
|
|
@@ -1337,7 +1337,7 @@ implementation
|
|
|
memberparentdef:=nil;
|
|
memberparentdef:=nil;
|
|
|
|
|
|
|
|
case st.symtabletype of
|
|
case st.symtabletype of
|
|
|
- ObjectSymtable:
|
|
|
|
|
|
|
+ ObjectSymtable:
|
|
|
begin
|
|
begin
|
|
|
memberparentdef:=tdef(st.defowner);
|
|
memberparentdef:=tdef(st.defowner);
|
|
|
exit;
|
|
exit;
|
|
@@ -1672,7 +1672,7 @@ implementation
|
|
|
{ no procsyms in records (yet) }
|
|
{ no procsyms in records (yet) }
|
|
|
internalerror(2007012006);
|
|
internalerror(2007012006);
|
|
|
end
|
|
end
|
|
|
- else
|
|
|
|
|
|
|
+ else
|
|
|
{ regular procedure/function call }
|
|
{ regular procedure/function call }
|
|
|
do_proc_call(srsym,srsymtable,nil,
|
|
do_proc_call(srsym,srsymtable,nil,
|
|
|
(getaddr and not(token in [_CARET,_POINT])),
|
|
(getaddr and not(token in [_CARET,_POINT])),
|
|
@@ -1955,7 +1955,7 @@ implementation
|
|
|
else
|
|
else
|
|
|
begin
|
|
begin
|
|
|
{ The property symbol is referenced indirect }
|
|
{ The property symbol is referenced indirect }
|
|
|
- inc(protsym.refs);
|
|
|
|
|
|
|
+ protsym.IncRefCount;
|
|
|
handle_propertysym(protsym,protsym.owner,p1);
|
|
handle_propertysym(protsym,protsym.owner,p1);
|
|
|
end;
|
|
end;
|
|
|
end
|
|
end
|
pierre