paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed shortrefglobals for proc without args, issue #38043

Browse Source 
git-svn-id: trunk@47335 -
This commit is contained in:
Mattias Gaertner 2020-11-07 11:04:43 +00:00
parent 280c0d90f7
commit a2af4429f9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/pastojs/src/fppas2js.pp
View File

@ -9828,6 +9828,8 @@ var
CreateProcedureCall(Call,nil,ProcType,AContext); CreateProcedureCall(Call,nil,ProcType,AContext);
if ApplyParam<>nil then if ApplyParam<>nil then
begin begin
if Call.Args=nil then
Call.Args:=TJSArguments(CreateElement(TJSArguments,ProcType));
Call.InsertArg(0,ApplyParam); Call.InsertArg(0,ApplyParam);
ApplyParam:=nil; ApplyParam:=nil;
if AContext is TDotContext then if AContext is TDotContext then