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

- unconditionally enabled {$ifdef PARAOUTFILE}-code (that define was

Browse Source 
decomissioned quite a while ago, but this file was forgotten in
    that process)

git-svn-id: trunk@13181 -
This commit is contained in:
Jonas Maebe 2009-05-21 09:57:45 +00:00
parent 035fe43b72
commit ee69d00bec
3 changed files with 32 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8871,6 +8871,7 @@ tests/webtbs/tw13696.pp svneol=native#text/plain
tests/webtbs/tw1374.pp svneol=native#text/plain
tests/webtbs/tw1375.pp svneol=native#text/plain
tests/webtbs/tw1376.pp svneol=native#text/plain
tests/webtbs/tw13763.pp svneol=native#text/plain
tests/webtbs/tw1398.pp svneol=native#text/plain
tests/webtbs/tw1401.pp svneol=native#text/plain
tests/webtbs/tw1407.pp svneol=native#text/plain

36
rtl/objpas/objpas.pp
View File

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

13
tests/webtbs/tw13763.pp Normal file
View File

@ -0,0 +1,13 @@
{ %norun }
{ %opt=-vh -Seh }
{$MODE OBJFPC}
var
f: TextFile;
begin
AssignFile (f, 'test.dat'); // Hint: Variable not initialized
Reset (f);
CloseFile (f);
end.