From f10fae66df3eac37f6e2b9808c48e0075921374f Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 19 Sep 2021 14:11:51 +0200 Subject: [PATCH] pastojs: error on linklib options --- packages/pastojs/src/pas2jscompiler.pp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/packages/pastojs/src/pas2jscompiler.pp b/packages/pastojs/src/pas2jscompiler.pp index 90018254e2..939e456e9c 100644 --- a/packages/pastojs/src/pas2jscompiler.pp +++ b/packages/pastojs/src/pas2jscompiler.pp @@ -2406,6 +2406,9 @@ Var begin Handled:=true; + if aLibOptions<>'' then + ParamFatal('[20210919141030] linklib options not supported'); + Imp:=CreateImportStatement; Imp.NameSpaceImport:=aLibAlias; LibModuleName:=aLibName; @@ -2420,10 +2423,10 @@ begin dmImp.Name:='$libimports'; dmImp.MExpr:=pePas; dmAlias:=TJSDotMemberExpression.Create(0,0,''); - dmAlias.Name:=alibAlias; + dmAlias.Name:=TJSString(alibAlias); dmAlias.MExpr:=dmImp; peAlias:=TJSPrimaryExpressionIdent.Create(0,0,''); - peAlias.Name:=aLibAlias; + peAlias.Name:=TJSString(aLibAlias); // Put all together PasLib:=TJSSimpleAssignStatement.Create(0,0,''); PasLib.LHS:=dmAlias;