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

* missing calls to InitWideStringManager added

Browse Source 
git-svn-id: trunk@1071 -
This commit is contained in:
Tomas Hajny 2005-09-10 09:40:26 +00:00
parent caecabf7ba
commit eb26e1aa39
3 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/atari/system.pas
View File

@ -766,5 +766,8 @@ begin
errno := 0; errno := 0;
{ Setup command line arguments } { Setup command line arguments }
argc:=GetParamCount(args); argc:=GetParamCount(args);
initvariantmanager; InitVariantManager;
{$ifdef HASWIDESTRING}
InitWideStringManager;
{$endif HASWIDESTRING}
end. end.

6
rtl/emx/system.pas
View File

@ -567,7 +567,11 @@ begin
InitSystemThreads; InitSystemThreads;
initvariantmanager; InitVariantManager;
{$ifdef HASWIDESTRING}
InitWideStringManager;
{$endif HASWIDESTRING}
if os_Mode in [osDOS,osDPMI] then if os_Mode in [osDOS,osDPMI] then
DosEnvInit; DosEnvInit;

6
rtl/os2/system.pas
View File

@ -753,7 +753,11 @@ begin
DefaultFileType := ''; DefaultFileType := '';
InitSystemThreads; InitSystemThreads;
initvariantmanager; InitVariantManager;
{$ifdef HASWIDESTRING}
InitWideStringManager;
{$endif HASWIDESTRING}
{$IFDEF EXTDUMPGROW} {$IFDEF EXTDUMPGROW}
{ Int_HeapSize := high (cardinal);} { Int_HeapSize := high (cardinal);}