From c56385ecc03eceaa86ed08dace2c371feca37754 Mon Sep 17 00:00:00 2001
From: evgeny-k <git@evgenysoft.com>
Date: Fri, 22 Apr 2016 12:39:06 +0300
Subject: [PATCH] fix for delphi7

---
 Source/x86.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/x86.inc b/Source/x86.inc
index 6c402a37..7d7a4a48 100644
--- a/Source/x86.inc
+++ b/Source/x86.inc
@@ -594,7 +594,7 @@ begin
                   tbtu32(res.dta^) := RealCall_Register(Address, EDX, EAX, ECX,
                   @Stack[Length(Stack) - 3], Length(Stack) div 4, 4, nil)
                 else
-             {$ENDIF}
+             {$IFEND}
                   tbtu32(res.dta^) := RealCall_Register(Address, EAX, EDX, ECX,
                   @Stack[Length(Stack) - 3], Length(Stack) div 4, 4, nil);
               end;