From 627cf28b334cb77abe5d2f2af5cb8a59defa6383 Mon Sep 17 00:00:00 2001
From: Martin <User4martin@users.noreply.github.com>
Date: Thu, 26 Oct 2017 16:59:39 +0100
Subject: [PATCH] Update test for 64 bit / fpc: No PS methods (#166)

---
 dunit/CompilerTestFunctions.pas | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/dunit/CompilerTestFunctions.pas b/dunit/CompilerTestFunctions.pas
index 796d3a2..d8240bc 100644
--- a/dunit/CompilerTestFunctions.pas
+++ b/dunit/CompilerTestFunctions.pas
@@ -1,6 +1,15 @@
 
 unit CompilerTestFunctions;
 
+{$IFDEF fpc}
+  {$IFnDEF cpu86}         // Has MyAllMethodsHandler
+    {$define empty_methods_handler}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFnDEF empty_methods_handler}
+{$ENDIF}
+
 interface
 
 uses Classes,
@@ -28,7 +37,9 @@ type
     published
         procedure CallProcedure;
         procedure CallMethod;
+{$IFnDEF empty_methods_handler}
         procedure CallScriptFunctionAsMethod;
+{$ENDIF}
         procedure WideStringFunctions;
         procedure CheckConsts;
     end;
@@ -154,6 +165,7 @@ begin
     CheckEquals('Test+hello', vResultS, last_script);
 end;
 
+{$IFnDEF empty_methods_handler}
 type
   TTestMethod = function (s: string): string of object;
 
@@ -166,6 +178,7 @@ begin
   Check(@Meth <> nil, 'Unable to find function');
   CheckEquals('Test Results: INDATA', Meth('INDATA'));
 end;
+{$ENDIF}
 
 
 procedure TCompilerTestFunctions.CheckConsts;