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

pastojs: fixed mark impl scope ref of VarRecs

Browse Source 
git-svn-id: trunk@41350 -
This commit is contained in:
Mattias Gaertner 2019-02-16 23:26:40 +00:00
parent 73e1846222
commit 3ecfa10417
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/pastojs/src/pas2jsuseanalyzer.pp
View File

@ -48,6 +48,8 @@ procedure TPas2JSAnalyzer.UseExpr(El: TPasExpr);
i: Integer;
ArgType: TPasType;
ModScope: TPas2JSModuleScope;
aMod: TPasModule;
SystemVarRecs: TPasFunction;
begin
if Args=nil then exit;
for i:=0 to Args.Count-1 do
@ -58,10 +60,13 @@ procedure TPas2JSAnalyzer.UseExpr(El: TPasExpr);
and (TPasArrayType(ArgType).ElType=nil) then
begin
// array of const
ModScope:=NoNil(Resolver.RootElement.CustomData) as TPas2JSModuleScope;
if ModScope.SystemVarRecs=nil then
aMod:=El.GetModule;
ModScope:=NoNil(aMod.CustomData) as TPas2JSModuleScope;
SystemVarRecs:=ModScope.SystemVarRecs;
if SystemVarRecs=nil then
RaiseNotSupported(20190216104347,El);
UseProcedure(ModScope.SystemVarRecs);
MarkImplScopeRef(El,SystemVarRecs,psraRead);
UseProcedure(SystemVarRecs);
break;
end;
end;