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

pastojs: error on linklib options

Browse Source
This commit is contained in:
mattias 2021-09-19 14:11:51 +02:00
parent d14c13fc72
commit f10fae66df
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/pastojs/src/pas2jscompiler.pp
View File

@ -2406,6 +2406,9 @@ Var
begin begin
Handled:=true; Handled:=true;
if aLibOptions<>'' then
ParamFatal('[20210919141030] linklib options not supported');
Imp:=CreateImportStatement; Imp:=CreateImportStatement;
Imp.NameSpaceImport:=aLibAlias; Imp.NameSpaceImport:=aLibAlias;
LibModuleName:=aLibName; LibModuleName:=aLibName;
@ -2420,10 +2423,10 @@ begin
dmImp.Name:='$libimports'; dmImp.Name:='$libimports';
dmImp.MExpr:=pePas; dmImp.MExpr:=pePas;
dmAlias:=TJSDotMemberExpression.Create(0,0,''); dmAlias:=TJSDotMemberExpression.Create(0,0,'');
dmAlias.Name:=alibAlias; dmAlias.Name:=TJSString(alibAlias);
dmAlias.MExpr:=dmImp; dmAlias.MExpr:=dmImp;
peAlias:=TJSPrimaryExpressionIdent.Create(0,0,''); peAlias:=TJSPrimaryExpressionIdent.Create(0,0,'');
peAlias.Name:=aLibAlias; peAlias.Name:=TJSString(aLibAlias);
// Put all together // Put all together
PasLib:=TJSSimpleAssignStatement.Create(0,0,''); PasLib:=TJSSimpleAssignStatement.Create(0,0,'');
PasLib.LHS:=dmAlias; PasLib.LHS:=dmAlias;