Explorar el Código

* Fixed ansi rtl compilation.

git-svn-id: branches/unicodertl@12194 -
yury hace 17 años
padre
commit
0588bc3ce5
Se han modificado 1 ficheros con 8 adiciones y 0 borrados
  1. 8 0
      rtl/win32/system.pp

+ 8 - 0
rtl/win32/system.pp

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