From 6c4ebea3415127d7b6e8253b5832b3e3249f6cb7 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 27 Oct 2017 23:02:10 +0000
Subject: [PATCH] fixes for 64 bit constructor (and some ifdef) // only fpc 3.0
 and up

git-svn-id: trunk@56220 -
---
 components/PascalScript/Source/x64.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/PascalScript/Source/x64.inc b/components/PascalScript/Source/x64.inc
index 72a8b430ba..27a714b9b2 100644
--- a/components/PascalScript/Source/x64.inc
+++ b/components/PascalScript/Source/x64.inc
@@ -661,7 +661,7 @@ begin
   FillChar(Registers, Sizeof(REgisters), 0);
     _RAX := 0;
     RegUsage := 0;
-    {$IFDEF FPC} // FIX FOR FPC constructor calls
+    {$IF DEFINED (fpc) and (fpc_version >= 3)} // FIX FOR FPC constructor calls
     if IsConstructor then begin
       if not GetPtr(rp(Params[0])) then exit; // this goes first
       DisposePPSVariantIFC(Params[0]);