mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 01:39:27 +02:00
* missing calls to InitWideStringManager added
git-svn-id: trunk@1071 -
This commit is contained in:
parent
caecabf7ba
commit
eb26e1aa39
@ -766,5 +766,8 @@ begin
|
||||
errno := 0;
|
||||
{ Setup command line arguments }
|
||||
argc:=GetParamCount(args);
|
||||
initvariantmanager;
|
||||
InitVariantManager;
|
||||
{$ifdef HASWIDESTRING}
|
||||
InitWideStringManager;
|
||||
{$endif HASWIDESTRING}
|
||||
end.
|
||||
|
@ -567,7 +567,11 @@ begin
|
||||
|
||||
InitSystemThreads;
|
||||
|
||||
initvariantmanager;
|
||||
InitVariantManager;
|
||||
|
||||
{$ifdef HASWIDESTRING}
|
||||
InitWideStringManager;
|
||||
{$endif HASWIDESTRING}
|
||||
|
||||
if os_Mode in [osDOS,osDPMI] then
|
||||
DosEnvInit;
|
||||
|
@ -753,7 +753,11 @@ begin
|
||||
DefaultFileType := '';
|
||||
|
||||
InitSystemThreads;
|
||||
initvariantmanager;
|
||||
InitVariantManager;
|
||||
|
||||
{$ifdef HASWIDESTRING}
|
||||
InitWideStringManager;
|
||||
{$endif HASWIDESTRING}
|
||||
|
||||
{$IFDEF EXTDUMPGROW}
|
||||
{ Int_HeapSize := high (cardinal);}
|
||||
|
Loading…
Reference in New Issue
Block a user