From 8acb6d67e690e24557540747fdbfc6182975c975 Mon Sep 17 00:00:00 2001
From: dkolmck <dkolmck@91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07>
Date: Fri, 20 Jan 2017 03:43:56 +0000
Subject: [PATCH] * Fpc fixes

git-svn-id: https://svn.code.sf.net/p/kolmck/code@156 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
---
 KOLDEF.inc | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/KOLDEF.inc b/KOLDEF.inc
index beb1568..44d61e5 100644
--- a/KOLDEF.inc
+++ b/KOLDEF.inc
@@ -360,6 +360,8 @@
 {$ENDIF}
 
 {$IFDEF FPC}
+  {$MODE DELPHI}
+  {$ASMMODE INTEL}
   {$DEFINE PAS_ONLY}
   {$DEFINE USE_OLD_FLAGS} //size of set type in fpc is 4 bytes
   {------------------------------------
@@ -449,24 +451,26 @@
 
 //{$DEFINE TEST_VERSION}
 {$IFNDEF _D6orHigher}
- {$DEFINE PARANOIA} //seems not needed from D6 !!! Inprise fixed this, finally...
+  {$DEFINE PARANOIA} //seems not needed from D6 !!! Inprise fixed this, finally...
 {$ENDIF}
 
 
 {$IFNDEF USE_OLD_FLAGS}
-         {$DEFINE USE_FLAGS}
-{$ELSE}  {$UNDEF  USE_FLAGS}
+  {$DEFINE USE_FLAGS}
+{$ELSE}
+  {$UNDEF  USE_FLAGS}
 {$ENDIF}
 
 {$IFnDEF EVENTS_STATIC}
-         {$DEFINE EVENTS_DYNAMIC}
+  {$DEFINE EVENTS_DYNAMIC}
 {$ENDIF}
+
 {$IFnDEF CMDACTIONS_RECORD}
-         {$DEFINE COMMANDACTIONS_OBJ}
-         {$DEFINE PACK_COMMANDACTIONS}
-         {$IFDEF  NOT_PACK_COMMANDACTIONS}
-                  {$UNDEF PACK_COMMANDACTIONS}
-         {$ENDIF}
+  {$DEFINE COMMANDACTIONS_OBJ}
+  {$DEFINE PACK_COMMANDACTIONS}
+  {$IFDEF  NOT_PACK_COMMANDACTIONS}
+    {$UNDEF PACK_COMMANDACTIONS}
+  {$ENDIF}
 {$ENDIF}
 
 {$DEFINE KOL3XX}