Browse Source

* Fixed ansi rtl compilation.

git-svn-id: branches/unicodertl@12194 -
yury 17 years ago
parent
commit
0588bc3ce5
1 changed files with 8 additions and 0 deletions
  1. 8 0
      rtl/win32/system.pp

+ 8 - 0
rtl/win32/system.pp

@@ -292,6 +292,7 @@ begin
     paramstr:='';
 end;
 
+{$ifdef FPC_RTLSTRING_UTF16}
 function argv: PPAnsiChar;
 var
   s: AnsiString;
@@ -314,6 +315,13 @@ begin
   end;
   Result:=FAnsiArgv;
 end;
+{$else}
+function argv: PPAnsiChar;
+begin
+  setup_arguments;
+  Result:=Fargv;
+end;
+{$endif FPC_RTLSTRING_UTF16}
 
 procedure randomize;
 begin