paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* take care of feature defines

Browse Source 
git-svn-id: trunk@30377 -
This commit is contained in:
florian 2015-03-29 19:35:42 +00:00
parent 0470cd2cb1
commit 5030ff05b5
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/objpas/objpas.pp
View File

@ -93,8 +93,12 @@ Var
{ Untyped file support } { Untyped file support }
Procedure AssignFile(out f:File;p:pchar); Procedure AssignFile(out f:File;p:pchar);
Procedure AssignFile(out f:File;c:char); Procedure AssignFile(out f:File;c:char);
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
Procedure AssignFile(out f:File;const Name:UnicodeString); Procedure AssignFile(out f:File;const Name:UnicodeString);
{$endif FPC_HAS_FEATURE_WIDESTRINGS}
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Procedure AssignFile(out f:File;const Name:RawByteString); Procedure AssignFile(out f:File;const Name:RawByteString);
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
Procedure CloseFile(var f:File); Procedure CloseFile(var f:File);
{$endif FPC_HAS_FEATURE_FILEIO} {$endif FPC_HAS_FEATURE_FILEIO}
@ -102,8 +106,12 @@ Var
{ Text file support } { Text file support }
Procedure AssignFile(out t:Text;p:pchar); Procedure AssignFile(out t:Text;p:pchar);
Procedure AssignFile(out t:Text;c:char); Procedure AssignFile(out t:Text;c:char);
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
Procedure AssignFile(out t:Text;const Name:UnicodeString); Procedure AssignFile(out t:Text;const Name:UnicodeString);
{$endif FPC_HAS_FEATURE_WIDESTRINGS}
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Procedure AssignFile(out t:Text;const Name:RawByteString); Procedure AssignFile(out t:Text;const Name:RawByteString);
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
Procedure CloseFile(Var t:Text); Procedure CloseFile(Var t:Text);
{$endif FPC_HAS_FEATURE_TEXTIO} {$endif FPC_HAS_FEATURE_TEXTIO}
@ -111,8 +119,12 @@ Var
{ Typed file supoort } { Typed file supoort }
Procedure AssignFile(out f:TypedFile;p:pchar); Procedure AssignFile(out f:TypedFile;p:pchar);
Procedure AssignFile(out f:TypedFile;c:char); Procedure AssignFile(out f:TypedFile;c:char);
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
Procedure AssignFile(out f:TypedFile;const Name:UnicodeString); Procedure AssignFile(out f:TypedFile;const Name:UnicodeString);
{$endif FPC_HAS_FEATURE_WIDESTRINGS}
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Procedure AssignFile(out f:TypedFile;const Name:RawByteString); Procedure AssignFile(out f:TypedFile;const Name:RawByteString);
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
{$endif FPC_HAS_FEATURE_FILEIO} {$endif FPC_HAS_FEATURE_FILEIO}
{$ifdef FPC_HAS_FEATURE_COMMANDARGS} {$ifdef FPC_HAS_FEATURE_COMMANDARGS}
@ -170,15 +182,19 @@ begin
System.Assign (F,c); System.Assign (F,c);
end; end;
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Procedure AssignFile(out f:File;const Name:RawBytestring); Procedure AssignFile(out f:File;const Name:RawBytestring);
begin begin
System.Assign (F,Name); System.Assign (F,Name);
end; end;
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
Procedure AssignFile(out f:File;const Name:UnicodeString); Procedure AssignFile(out f:File;const Name:UnicodeString);
begin begin
System.Assign (F,Name); System.Assign (F,Name);
end; end;
{$endif FPC_HAS_FEATURE_WIDESTRINGS}
Procedure CloseFile(Var f:File); [IOCheck]; Procedure CloseFile(Var f:File); [IOCheck];
@ -201,15 +217,19 @@ begin
System.Assign (T,c); System.Assign (T,c);
end; end;
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Procedure AssignFile(out t:Text;const Name:RawBytestring); Procedure AssignFile(out t:Text;const Name:RawBytestring);
begin begin
System.Assign (T,Name); System.Assign (T,Name);
end; end;
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
Procedure AssignFile(out t:Text;const Name:UnicodeString); Procedure AssignFile(out t:Text;const Name:UnicodeString);
begin begin
System.Assign (T,Name); System.Assign (T,Name);
end; end;
{$endif FPC_HAS_FEATURE_WIDESTRINGS}
Procedure CloseFile(Var t:Text); [IOCheck]; Procedure CloseFile(Var t:Text); [IOCheck];
@ -232,15 +252,19 @@ begin
System.Assign (F,c); System.Assign (F,c);
end; end;
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Procedure AssignFile(out f:TypedFile;const Name:RawBytestring); Procedure AssignFile(out f:TypedFile;const Name:RawBytestring);
begin begin
System.Assign (F,Name); System.Assign (F,Name);
end; end;
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
Procedure AssignFile(out f:TypedFile;const Name:UnicodeString); Procedure AssignFile(out f:TypedFile;const Name:UnicodeString);
begin begin
System.Assign (F,Name); System.Assign (F,Name);
end; end;
{$endif FPC_HAS_FEATURE_WIDESTRINGS}
{$endif FPC_HAS_FEATURE_FILEIO} {$endif FPC_HAS_FEATURE_FILEIO}
{$ifdef FPC_HAS_FEATURE_COMMANDARGS} {$ifdef FPC_HAS_FEATURE_COMMANDARGS}