git-svn-id: trunk@1071 -
@@ -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;
+
if os_Mode in [osDOS,osDPMI] then
DosEnvInit;
@@ -753,7 +753,11 @@ begin
DefaultFileType := '';
{$IFDEF EXTDUMPGROW}
{ Int_HeapSize := high (cardinal);}