paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 04:29:17 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
rtl/objpas/objpas.pp
View File

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