* Remove pchar overload for Assign(). It is confusing for overload choosing.

git-svn-id: branches/unicodertl@12181 -

rtl/inc/file.inc

@@ -30,15 +30,6 @@ Begin
 End;
 
 
-Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;p:PRtlChar);
-{
-  Assign Name to file f so it can be used with the file routines
-}
-begin
-  Assign(f,RtlString(p));
-end;
-
-
 Procedure Rewrite(var f:File;l:Longint);[IOCheck];
 {
   Create file f with recordsize of l

rtl/inc/systemh.inc

@@ -803,7 +803,6 @@ function  lowercase(const s : ansistring) : ansistring;
 
 {$ifdef FPC_HAS_FEATURE_FILEIO}
 Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;const Name:RtlString);
-Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;p:PRtlChar);
 Procedure Rewrite(var f:File;l:Longint);
 Procedure Rewrite(var f:File);
 Procedure Reset(var f:File;l:Longint);
@@ -838,7 +837,6 @@ Procedure Truncate (var F:File);
 
 {$ifdef FPC_HAS_FEATURE_FILEIO}
 Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;const Name:RtlString);
-Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;p:PRtlChar);
 Procedure Reset(var f : TypedFile);   [INTERNPROC: fpc_in_Reset_TypedFile];
 Procedure Rewrite(var f : TypedFile); [INTERNPROC: fpc_in_Rewrite_TypedFile];
 {$endif FPC_HAS_FEATURE_FILEIO}
@@ -849,7 +847,6 @@ Procedure Rewrite(var f : TypedFile); [INTERNPROC: fpc_in_Rewrite_TypedFile];
 
 {$ifdef FPC_HAS_FEATURE_TEXTIO}
 Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;const s:RtlString);
-Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;p:PRtlChar);
 Procedure Close(var t:Text);
 Procedure Rewrite(var t:Text);
 Procedure Reset(var t:Text);

rtl/inc/text.inc

@@ -93,12 +93,6 @@ Begin
 End;
 
 
-Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;p:PRtlChar);
-begin
-  Assign(t,RtlString(p));
-end;
-
-
 Procedure Close(var t : Text);[IOCheck];
 Begin
   if InOutRes<>0 then

rtl/inc/typefile.inc

@@ -27,15 +27,6 @@ Begin
 End;
 
 
-Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;p:PRtlChar);
-{
-  Assign Name to file f so it can be used with the file routines
-}
-begin
-  Assign(f,RtlString(p));
-end;
-
-
 Procedure fpc_reset_typed(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias:'FPC_RESET_TYPED']; compilerproc;
 Begin
   If InOutRes <> 0 then