* allow out file parameters

  * assign has out file


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@2717 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 3 deletions

diff --git a/rtl/inc/file.inc b/rtl/inc/file.inc
index 89a1d90833..ee840cfc2d 100644
--- a/rtl/inc/file.inc
+++ b/rtl/inc/file.inc
@@ -18,7 +18,7 @@
 type
   UnTypedFile=File;
 
-Procedure Assign(var f:File;const Name:string);
+Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;const Name:string);
 {
   Assign Name to file f so it can be used with the file routines
 }
@@ -30,7 +30,7 @@ Begin
 End;
 
 
-Procedure assign(var f:File;p:pchar);
+Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;p:pchar);
 {
   Assign Name to file f so it can be used with the file routines
 }
@@ -39,7 +39,7 @@ begin
 end;
 
 
-Procedure assign(var f:File;c:char);
+Procedure Assign({$ifdef PARAOUTFILE}out{$else}var{$endif} f:File;c:char);
 {
   Assign Name to file f so it can be used with the file routines
 }