From cc0d946f1675b9ec843d1f00972a9253f52bc426 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 14 Dec 2009 18:51:57 +0000
Subject: [PATCH] * fixes bootstrapping with 2.2.4

git-svn-id: trunk@14442 -
---
 rtl/win/syswin.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/win/syswin.inc b/rtl/win/syswin.inc
index ba8e53b19b..d4d241a2f4 100644
--- a/rtl/win/syswin.inc
+++ b/rtl/win/syswin.inc
@@ -271,10 +271,10 @@ type
     tables : packed array [1..32767] of PWStrInitEntry;
   end;
 
-{$ifndef VER2_4}
+{$if not(defined(VER2_2) or defined(VER2_4))}
 var
   WStrInitTablesTable: TWStrInitTablesTable; external name 'FPC_WIDEINITTABLES';
-{$endif VER2_4}
+{$endif}
 
 { there is a similiar procedure in sysutils which inits the fields which
   are only relevant for the sysutils units }
@@ -283,7 +283,7 @@ procedure InitWin32Widestrings;
     i: longint;
     ptable: PWStrInitEntry;
   begin
-{$ifndef VER2_4}
+{$if not(defined(VER2_2) or defined(VER2_4))}
     { assign initial values to global Widestring typed consts }
     for i:=1 to WStrInitTablesTable.count do
       begin
@@ -294,7 +294,7 @@ procedure InitWin32Widestrings;
             Inc(ptable);
           end;
       end;
-{$endif VER2_4}
+{$endif}
 
     { Widestring }
     widestringmanager.Wide2AnsiMoveProc:=@Win32Wide2AnsiMove;