فهرست منبع

* fixes bootstrapping with 2.2.4

git-svn-id: trunk@14442 -
florian 15 سال پیش
والد
کامیت
cc0d946f16
1فایلهای تغییر یافته به همراه4 افزوده شده و 4 حذف شده
  1. 4 4
      rtl/win/syswin.inc

+ 4 - 4
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;