pastojs: less hints

packages/fcl-passrc/src/pasresolver.pp

@@ -22552,8 +22552,10 @@ function TPasResolver.CreateReference(DeclEl, RefEl: TPasElement;
   Access: TResolvedRefAccess; FindData: PPRFindData): TResolvedReference;
 
   procedure RaiseAlreadySet;
+  {$IFDEF VerbosePasResolver}
   var
     FormerDeclEl: TPasElement;
+  {$ENDIF}
   begin
     {$IFDEF VerbosePasResolver}
     writeln('RaiseAlreadySet RefEl=',GetObjName(RefEl),' DeclEl=',GetObjName(DeclEl));

packages/pastojs/src/pas2jslogger.pp

@@ -472,7 +472,7 @@ begin
     jstObject: Result:='{:OBJECT:}';
     jstReference: Result:='{:REFERENCE:}';
     JSTCompletion: Result:='{:COMPLETION:}';
-    else Result:='{:Unknown ValueType '+IntToStr(ord(Element.ValueType))+':}';
+    else Result:='{:Unknown ValueType '+IntToStr(ord(Element.ValueType))+':}'{%H-};
     end;
   end;
   Result:=StringOfChar(' ',Indent)+Result;
@@ -1038,7 +1038,7 @@ begin
   mtHint: Result:='Hint';
   mtInfo: Result:='Info';
   mtDebug: Result:='Debug';
-  else Result:='Verbose';
+  else Result:='Verbose'{%H-};
   end;
 end;