paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Char -> AnsiChar

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2022-12-22 15:19:11 +01:00 committed by Michaël Van Canneyt
parent 2767a9c979
commit 54338a12b3
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
rtl/objpas/objpas.pp
View File

@ -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;