paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 06:49:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* allow access to parent locals when the currnet localst has no

Browse Source 
varsyms
This commit is contained in:
peter 2003-10-08 19:39:58 +00:00
parent 95f132db3d
commit 9647af4066
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/rautils.pas
View File

@ -218,7 +218,7 @@ uses
defutil,systems,verbose,globals,
symtable,paramgr,
aasmcpu,
tgobj,procinfo;
procinfo;
{*************************************************************************
TExprParse
@ -769,6 +769,24 @@ end;
Function TOperand.SetupVar(const s:string;GetOffset : boolean): Boolean;
function symtable_has_varsyms(st:tsymtable):boolean;
var
sym : tsym;
begin
result:=false;
sym:=tsym(st.symindex.first);
while assigned(sym) do
begin
if sym.typ=varsym then
begin
result:=true;
exit;
end;
sym:=tsym(sym.indexnext);
end;
end;
{ search and sets up the correct fields in the Instr record }
{ for the NON-constant identifier passed to the routine. }
{ if not found returns FALSE. }
@ -820,7 +838,8 @@ Begin
if assigned(current_procinfo.parent) and
(tvarsym(sym).owner<>current_procinfo.procdef.localst) and
(tvarsym(sym).owner<>current_procinfo.procdef.parast) and
(current_procinfo.procdef.localst.symtablelevel>normal_function_level) then
(current_procinfo.procdef.localst.symtablelevel>normal_function_level) and
symtable_has_varsyms(current_procinfo.procdef.localst) then
message1(asmr_e_local_para_unreachable,s);
opr.localsym:=tvarsym(sym);
opr.localsymofs:=0;
@ -1502,7 +1521,11 @@ end;
end.
{
$Log$
Revision 1.69 2003-10-01 20:34:49 peter
Revision 1.70 2003-10-08 19:39:58 peter
* allow access to parent locals when the currnet localst has no
varsyms
Revision 1.69 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose