From 5e608c325bbbc50fbec88c773a5cd4dd6d38bca9 Mon Sep 17 00:00:00 2001
From: carlokok <carlokok@5c9d2617-0215-0410-a2ee-e80e04d1c6d8>
Date: Wed, 10 Sep 2008 07:31:01 +0000
Subject: [PATCH] Workaround for < d6

git-svn-id: http://code.remobjects.com/svn/pascalscript@71 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
---
 Source/uPSRuntime.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Source/uPSRuntime.pas b/Source/uPSRuntime.pas
index 40f6893..188232c 100644
--- a/Source/uPSRuntime.pas
+++ b/Source/uPSRuntime.pas
@@ -9051,6 +9051,7 @@ end;
 {$ifndef FPC}
   {$include x86.inc}
 {$else}
+{$IFDEF Delphi6UP}
   {$if defined(cpu86)}
     {$include x86.inc}
   {$elseif defined(cpupowerpc)}
@@ -9058,6 +9059,9 @@ end;
   {$else}
     {$fatal Pascal Script is not supported for your architecture at the moment!}
   {$ifend}
+{$ELSE}
+{$include x86.inc}
+{$ENDIF}
 {$endif}
 
 type