* Removed versions of Assign and Erase with char parameter, since they raise problems with overload choosing.

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

rtl/inc/file.inc

@@ -39,15 +39,6 @@ begin
 end;
 
 
-Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;c:RtlChar);
-{
-  Assign Name to file f so it can be used with the file routines
-}
-begin
-  Assign(f,RtlString(c));
-end;
-
-
 Procedure Rewrite(var f:File;l:Longint);[IOCheck];
 {
   Create file f with recordsize of l
@@ -414,15 +405,3 @@ Begin
   Rename(f,PRtlChar(s));
 End;
 
-
-Procedure Rename(var f : File;c : RtlChar);[IOCheck];
-var
-  p : array[0..1] Of RtlChar;
-Begin
-  If InOutRes <> 0 then
-   exit;
-  p[0]:=c;
-  p[1]:=#0;
-  Rename(f,@p);
-End;
-

rtl/inc/systemh.inc

@@ -804,7 +804,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 Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;c:RtlChar);
 Procedure Rewrite(var f:File;l:Longint);
 Procedure Rewrite(var f:File);
 Procedure Reset(var f:File;l:Longint);
@@ -829,7 +828,6 @@ Function  EOF(var f:File):Boolean;
 Procedure Erase(var f:File);
 Procedure Rename(var f:File;const s:RtlString);
 Procedure Rename(var f:File;p:PRtlChar);
-Procedure Rename(var f:File;c:RtlChar);
 Procedure Truncate (var F:File);
 {$endif FPC_HAS_FEATURE_FILEIO}
 
@@ -841,7 +839,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 Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;c:RtlChar);
 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}
@@ -853,7 +850,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 Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;c:RtlChar);
 Procedure Close(var t:Text);
 Procedure Rewrite(var t:Text);
 Procedure Reset(var t:Text);
@@ -862,7 +858,6 @@ Procedure Flush(var t:Text);
 Procedure Erase(var t:Text);
 Procedure Rename(var t:Text;const s:RtlString);
 Procedure Rename(var t:Text;p:PRtlChar);
-Procedure Rename(var t:Text;c:RtlChar);
 Function  EOF(var t:Text):Boolean;
 Function  EOF:Boolean;
 Function  EOLn(var t:Text):Boolean;

rtl/inc/text.inc

@@ -99,12 +99,6 @@ begin
 end;
 
 
-Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;c:RtlChar);
-begin
-  Assign(t,RtlString(c));
-end;
-
-
 Procedure Close(var t : Text);[IOCheck];
 Begin
   if InOutRes<>0 then
@@ -230,18 +224,6 @@ Begin
 End;
 
 
-Procedure Rename(var t : Text;c : RtlChar);[IOCheck];
-var
-  p : array[0..1] Of RtlChar;
-Begin
-  If InOutRes <> 0 then
-   exit;
-  p[0]:=c;
-  p[1]:=#0;
-  Rename(t,@p);
-End;
-
-
 Function Eof(Var t: Text): Boolean;[IOCheck];
 Begin
   If (InOutRes<>0) then

rtl/inc/typefile.inc

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