EditorMacroScript: clean up hints

git-svn-id: trunk@58528 -

components/macroscript/emscriptclasses.pas

@@ -4,7 +4,7 @@ unit EMScriptClasses;
 }
 
 {$mode objfpc}{$H+}
-
+{$WARN 4055 off : Conversion between ordinals and pointers is not portable} // PtrInt is ok
 interface
 
 {$IFDEF darwin}

components/macroscript/emscriptmacro.pas

@@ -296,10 +296,10 @@ begin
     Compile;
     if IsInvalid then exit;
 
-    Compiler.GetOutput({%H-}s);
+    Compiler.GetOutput(s{%H-});
     if not Exec.LoadData(s) then // Load the data from the Data string.
       exit;
-    Compiler.GetDebugOutput({%H-}s2);
+    Compiler.GetDebugOutput(s2{%H-});
     Exec.LoadDebugData(s2);
 
     Exec.SynEdit := aEditor as TCustomSynEdit;

components/macroscript/emsideoptions.pas

@@ -1,7 +1,8 @@
 unit EMSIdeOptions;
 
 {$mode objfpc}{$H+}
-
+{$WARN 5024 off : Parameter "$1" not used}
+{$WARN 6018 off : unreachable code}
 interface
 
 uses

components/macroscript/emsselftest.pas

@@ -9,9 +9,9 @@ interface
 {$ENDIF}
 
 uses
-  Classes, SysUtils, SynEdit, SynEditTypes, SynEditKeyCmds, LazLoggerBase,
+  Classes, SysUtils, SynEdit, LazLoggerBase,
   IDECommands, EMScriptClasses, EMScriptMacro, Clipbrd, Dialogs, Controls,
-  uPSCompiler, uPSRuntime, uPSUtils, uPSDebugger, uPSR_std, uPSC_std;
+  uPSCompiler, uPSRuntime, uPSUtils;
 
 type
 
@@ -56,7 +56,7 @@ type TPoint2 = record x,y,a,b,c: Longint; end;
 {%region RegisterSelfTests}
 
 var
-  TestResultA: integer;
+  {%H-}TestResultA: integer;
   TestResultInt1, TestResultInt2: integer;
   TestInputInt1, TestInputInt2: integer;
   TestResultBool1, TestResultBool2: boolean;

components/macroscript/registerems.pas

@@ -27,7 +27,7 @@ begin
   RegisterIDEOptionsGroup(OptionsGroup, TEMSConfig);
   RegisterIDEOptionsEditor(OptionsGroup, TEMSIdeOptionsFrame, 1);
 
-  if not EMSSupported then exit;
+  if not EMSSupported then {%H-}exit;
 
   conf := GetEMSConf;
   try