paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 06:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix AssignFile to use "out" if the PARAMOUT define is defined (fixes 9275)

Browse Source 
git-svn-id: trunk@8080 -
This commit is contained in:
Almindor 2007-07-16 21:47:31 +00:00
parent b03a908438
commit 920660c460
1 changed files with 19 additions and 19 deletions

38
rtl/objpas/objpas.pp
View File

@ -50,22 +50,22 @@ Var
{ Untyped file support }
Procedure AssignFile(Var f:File;const Name:string);
Procedure AssignFile(Var f:File;p:pchar);
Procedure AssignFile(Var f:File;c:char);
Procedure CloseFile(Var f:File);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;const Name:string);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;p:pchar);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;c:char);
Procedure CloseFile(var f:File);
{ Text file support }
Procedure AssignFile(Var t:Text;const s:string);
Procedure AssignFile(Var t:Text;p:pchar);
Procedure AssignFile(Var t:Text;c:char);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;const s:string);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;p:pchar);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;c:char);
Procedure CloseFile(Var t:Text);
{ Typed file supoort }
Procedure AssignFile(Var f:TypedFile;const Name:string);
Procedure AssignFile(Var f:TypedFile;p:pchar);
Procedure AssignFile(Var f:TypedFile;c:char);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;const Name:string);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;p:pchar);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;c:char);
{ ParamStr should return also an ansistring }
Function ParamStr(Param : Integer) : Ansistring;
@ -106,19 +106,19 @@ Var
{ Untyped file support }
Procedure AssignFile(Var f:File;const Name:string);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;const Name:string);
begin
System.Assign (F,Name);
end;
Procedure AssignFile(Var f:File;p:pchar);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;p:pchar);
begin
System.Assign (F,P);
end;
Procedure AssignFile(Var f:File;c:char);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;c:char);
begin
System.Assign (F,C);
@ -133,19 +133,19 @@ end;
{ Text file support }
Procedure AssignFile(Var t:Text;const s:string);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;const s:string);
begin
System.Assign (T,S);
end;
Procedure AssignFile(Var t:Text;p:pchar);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;p:pchar);
begin
System.Assign (T,P);
end;
Procedure AssignFile(Var t:Text;c:char);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} t:Text;c:char);
begin
System.Assign (T,C);
@ -160,19 +160,19 @@ end;
{ Typed file support }
Procedure AssignFile(Var f:TypedFile;const Name:string);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;const Name:string);
begin
system.Assign(F,Name);
end;
Procedure AssignFile(Var f:TypedFile;p:pchar);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;p:pchar);
begin
system.Assign (F,p);
end;
Procedure AssignFile(Var f:TypedFile;c:char);
Procedure AssignFile({$ifdef PARAOUTFILE}out{$else}var{$endif} f:TypedFile;c:char);
begin
system.Assign (F,C);