pastojs: less hints

packages/pastojs/src/fppas2js.pp

@@ -14894,7 +14894,7 @@ function TPasToJSConverter.ConvertBuiltIn_InsertArray(El: TParamsExpr;
 // ->  AnArray=rtl.arrayInsert(item,AnArray,position);
 //   for array of COM interface: rtl.arrayInsert(item,AnArray,position,"R");
 var
-  Call, SubCall: TJSCallExpression;
+  Call: TJSCallExpression;
   AssignSt: TJSSimpleAssignStatement;
   aResolver: TPas2JSResolver;
   Param: TPasExpr;
@@ -19823,7 +19823,6 @@ var
   VarType: TPasType;
   AssignSt: TJSSimpleAssignStatement;
   C: TClass;
-  ElClass: TPasClassType;
   Call: TJSCallExpression;
 begin
   // add instance members
@@ -22115,22 +22114,12 @@ end;
 procedure TPasToJSConverter.AddInterfaceReleases(FuncContext: TFunctionContext;
   PosEl: TPasElement);
 // add the interface release object $ir
-var
-  aResolver: TPas2JSResolver;
-
-  function IsArray(aType: TPasType): boolean;
-  begin
-    aType:=aResolver.ResolveAliasType(aType);
-    Result:=aType is TPasArrayType;
-  end;
-
 var
   i: Integer;
   P: TPasElement;
   Call: TJSCallExpression;
   VarSt: TJSVariableStatement;
 begin
-  aResolver:=FuncContext.Resolver;
   if FuncContext.IntfExprReleaseCount>0 then
     begin
     // add in front of try..finally "var $ir = rtl.createIntfRefs();"

packages/pastojs/src/pas2jscompiler.pp

@@ -2443,6 +2443,7 @@ Var
   LibModuleName : String;
 begin
   Handled:=true;
+  if Sender=nil then ;
   if aLibOptions<>'' then
     ParamFatal('[20210919141030] linklib options not supported');
 
@@ -3046,8 +3047,8 @@ begin
         Exc:=Exception(TObject(obj));
         {$ifdef NodeJS}
         {AllowWriteln}
-        if Exc.NodeJSError<>nil then
-          writeln(Exc.NodeJSError.stack);
+        if Exc.JSError<>nil then
+          writeln(Exc.JSError.stack);
         {AllowWriteln-}
         {$endif}
         Log.Log(mtFatal,Msg+': ('+Exc.ClassName+') '+Exc.Message);

packages/pastojs/src/pas2jsfileutils.pp

@@ -816,7 +816,6 @@ begin
   if Position<=length(List) then inc(Position); // skip Delimiter
 end;
 
-
 procedure IncreaseChangeStamp(var Stamp: TChangeStamp);
 begin
   if Stamp<High(TChangeStamp) then

packages/pastojs/src/pas2jsfscompiler.pp

@@ -158,6 +158,7 @@ var
 begin
   CurFile:=FileCache.FindFile(aFilename);
   Result:=(CurFile=nil) or (not CurFile.AllowSrcMap);
+  if Sender=nil then ;
 end;
 
 procedure TPas2jsFSCompiler.SetWorkingDir(const aDir: String);

packages/pastojs/src/pas2jslogger.pp

@@ -50,9 +50,6 @@ uses
   {$IFDEF NodeJS}
   Node.FS,
   {$ENDIF}
-  {$IFDEF HASFILESYSTEM}
-  Pas2jsFileUtils,
-  {$ENDIF}
   {$ENDIF}
   pas2jsutils,
   Types, Classes, SysUtils,
@@ -1006,9 +1003,9 @@ procedure TPas2jsLogger.LogExceptionBackTrace(E: Exception);
 {$IFDEF Pas2js}
 begin
   {$IFDEF NodeJS}
-  if (E<>nil) and (E.NodeJSError<>nil) then
+  if (E<>nil) and (E.JSError<>nil) then
     {AllowWriteln}
-    writeln(E.NodeJSError.Stack);
+    writeln(E.JSError.Stack);
     {AllowWriteln-}
   {$ENDIF}
 end;