From 7a19d55904fea1f5ff101a5a7817931a129bc187 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 15 Jul 2018 01:19:27 +0000
Subject: [PATCH] EditorMacroScript: clean up hints

git-svn-id: trunk@58528 -
---
 components/macroscript/emscriptclasses.pas | 2 +-
 components/macroscript/emscriptmacro.pas   | 4 ++--
 components/macroscript/emsideoptions.pas   | 3 ++-
 components/macroscript/emsselftest.pas     | 6 +++---
 components/macroscript/registerems.pas     | 2 +-
 5 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/components/macroscript/emscriptclasses.pas b/components/macroscript/emscriptclasses.pas
index 15dc53d2e0..f71040edc3 100644
--- a/components/macroscript/emscriptclasses.pas
+++ b/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}
diff --git a/components/macroscript/emscriptmacro.pas b/components/macroscript/emscriptmacro.pas
index d9157f4f2d..26eab57fa6 100644
--- a/components/macroscript/emscriptmacro.pas
+++ b/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;
diff --git a/components/macroscript/emsideoptions.pas b/components/macroscript/emsideoptions.pas
index 7a012c8695..e38c7a469f 100644
--- a/components/macroscript/emsideoptions.pas
+++ b/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
diff --git a/components/macroscript/emsselftest.pas b/components/macroscript/emsselftest.pas
index 9f14395568..86d7255f97 100644
--- a/components/macroscript/emsselftest.pas
+++ b/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;
diff --git a/components/macroscript/registerems.pas b/components/macroscript/registerems.pas
index efab5b4fe3..9576fbec48 100644
--- a/components/macroscript/registerems.pas
+++ b/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