* disable some function using ansistrings if the ansistring feature is turned off

git-svn-id: trunk@30630 -

rtl/inc/system.inc

@@ -1311,6 +1311,7 @@ End;
 
 
 {$ifdef FPC_HAS_FEATURE_HEAP}
+{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
 function ArrayStringToPPchar(const S:Array of AnsiString;reserveentries:Longint):ppchar; // const ?
 // Extra allocate reserveentries pchar's at the beginning (default param=0 after 1.0.x ?)
 // Note: for internal use by skilled programmers only
@@ -1345,6 +1346,7 @@ Function StringToPPChar(Var S:AnsiString;ReserveEntries:integer):ppchar;
 begin
   StringToPPChar:=StringToPPChar(PChar(S),ReserveEntries);
 end;
+{$endif FPC_HAS_FEATURE_ANSISTRINGS}
 
 
 Function StringToPPChar(S: PChar;ReserveEntries:integer):ppchar;