paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:49:09 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win/syswin.inc
View File

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