paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 11:00:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes bootstrapping with 2.2.4

Browse Source 
git-svn-id: trunk@14442 -
This commit is contained in:
florian 2009-12-14 18:51:57 +00:00
parent 32e7daeee9
commit cc0d946f16
1 changed files with 4 additions and 4 deletions

8
rtl/win/syswin.inc
View File

@ -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;