From 54338a12b32d8d2ed1cb1ccacb2be1b00971d175 Mon Sep 17 00:00:00 2001
From: Michael VAN CANNEYT <mvancanneyt@tixeo.com>
Date: Thu, 22 Dec 2022 15:19:11 +0100
Subject: [PATCH] * Char -> AnsiChar

---
 rtl/objpas/objpas.pp | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index 9aa6a0a11a..5cd257b248 100644
--- a/rtl/objpas/objpas.pp
+++ b/rtl/objpas/objpas.pp
@@ -109,8 +109,8 @@ Var
 
 {$ifdef FPC_HAS_FEATURE_FILEIO}
     { Untyped file support }
-     Procedure AssignFile(out f:File;p:pchar);
-     Procedure AssignFile(out f:File;c:char);
+     Procedure AssignFile(out f:File;p:PAnsiChar);
+     Procedure AssignFile(out f:File;c:AnsiChar);
   {$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
      Procedure AssignFile(out f:File;const Name:UnicodeString);
   {$endif FPC_HAS_FEATURE_WIDESTRINGS}
@@ -122,10 +122,10 @@ Var
 
 {$ifdef FPC_HAS_FEATURE_TEXTIO}
      { Text file support }
-     Procedure AssignFile(out t:Text;p:pchar);
-     Procedure AssignFile(out t:Text;c:char);
-     Procedure AssignFile(out t:Text;p:pchar; aCodePage : TSystemCodePage);
-     Procedure AssignFile(out t:Text;c:char; aCodePage : TSystemCodePage);
+     Procedure AssignFile(out t:Text;p:PAnsiChar);
+     Procedure AssignFile(out t:Text;c:AnsiChar);
+     Procedure AssignFile(out t:Text;p:PAnsiChar; aCodePage : TSystemCodePage);
+     Procedure AssignFile(out t:Text;c:AnsiChar; aCodePage : TSystemCodePage);
   {$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
      Procedure AssignFile(out t:Text;const Name:UnicodeString);
      Procedure AssignFile(out t:Text;const Name:UnicodeString; aCodePage : TSystemCodePage);
@@ -139,8 +139,8 @@ Var
 
 {$ifdef FPC_HAS_FEATURE_FILEIO}
      { Typed file supoort }
-     Procedure AssignFile(out f:TypedFile;p:pchar);
-     Procedure AssignFile(out f:TypedFile;c:char);
+     Procedure AssignFile(out f:TypedFile;p:PAnsiChar);
+     Procedure AssignFile(out f:TypedFile;c:AnsiChar);
   {$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
      Procedure AssignFile(out f:TypedFile;const Name:UnicodeString);
   {$endif FPC_HAS_FEATURE_WIDESTRINGS}
@@ -190,12 +190,12 @@ Var
 
 { Untyped file support }
 
-Procedure AssignFile(out f:File;p:pchar);
+Procedure AssignFile(out f:File;p:PAnsiChar);
 begin
   System.Assign (F,p);
 end;
 
-Procedure AssignFile(out f:File;c:char);
+Procedure AssignFile(out f:File;c:AnsiChar);
 begin
   System.Assign (F,c);
 end;
@@ -225,24 +225,24 @@ end;
 {$ifdef FPC_HAS_FEATURE_TEXTIO}
 { Text file support }
 
-Procedure AssignFile(out t:Text;p:pchar);
+Procedure AssignFile(out t:Text;p:PAnsiChar);
 begin
   System.Assign (T,p);
 end;
 
-Procedure AssignFile(out t:Text;p:pchar; aCodePage : TSystemCodePage);
+Procedure AssignFile(out t:Text;p:PAnsiChar; aCodePage : TSystemCodePage);
 begin
   System.Assign (T,p);
   SetTextCodePage(T,aCodePage);
 end;
 
-Procedure AssignFile(out t:Text;c:char);
+Procedure AssignFile(out t:Text;c:AnsiChar);
 begin
   System.Assign (T,c);
 end;
 
 
-Procedure AssignFile(out t:Text;c:char; aCodePage : TSystemCodePage);
+Procedure AssignFile(out t:Text;c:AnsiChar; aCodePage : TSystemCodePage);
 begin
   System.Assign (T,c);
   SetTextCodePage(T,aCodePage);
@@ -285,12 +285,12 @@ end;
 {$ifdef FPC_HAS_FEATURE_FILEIO}
 { Typed file support }
 
-Procedure AssignFile(out f:TypedFile;p:pchar);
+Procedure AssignFile(out f:TypedFile;p:PAnsiChar);
 begin
   System.Assign (F,p);
 end;
 
-Procedure AssignFile(out f:TypedFile;c:char);
+Procedure AssignFile(out f:TypedFile;c:AnsiChar);
 begin
   System.Assign (F,c);
 end;