Browse Source

* fixed for stricter compiler

peter 22 years ago
parent
commit
bc1f8c842c
2 changed files with 12 additions and 6 deletions
  1. 6 3
      rtl/unix/linuxold.inc
  2. 6 3
      rtl/unix/unix.pp

+ 6 - 3
rtl/unix/linuxold.inc

@@ -383,7 +383,7 @@ Function  TCFlush(fd,qsel:longint):boolean;
 Function  TCDrain(fd:longint):boolean;
 Function  TCDrain(fd:longint):boolean;
 Function  TCFlow(fd,act:longint):boolean;
 Function  TCFlow(fd,act:longint):boolean;
 Function  IsATTY(Handle:Longint):Boolean;
 Function  IsATTY(Handle:Longint):Boolean;
-Function  IsATTY(f:text):Boolean;
+Function  IsATTY(var f:text):Boolean;
 function  TTYname(Handle:Longint):string;
 function  TTYname(Handle:Longint):string;
 function  TTYname(var F:Text):string;
 function  TTYname(var F:Text):string;
 
 
@@ -2244,7 +2244,7 @@ end;
 
 
 
 
 
 
-Function IsATTY(f: text):Boolean;
+Function IsATTY(var f: text):Boolean;
 {
 {
   Idem as previous, only now for text variables.
   Idem as previous, only now for text variables.
 }
 }
@@ -3131,7 +3131,10 @@ finalization
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.7  2003-09-27 13:49:41  peter
+  Revision 1.8  2003-09-29 14:36:06  peter
+    * fixed for stricter compiler
+
+  Revision 1.7  2003/09/27 13:49:41  peter
     * fpnanosleep exported
     * fpnanosleep exported
 
 
   Revision 1.6  2003/09/16 16:06:02  peter
   Revision 1.6  2003/09/16 16:06:02  peter

+ 6 - 3
rtl/unix/unix.pp

@@ -222,7 +222,7 @@ Function  TCFlush(fd,qsel:longint):boolean;
 Function  TCDrain(fd:longint):boolean;
 Function  TCDrain(fd:longint):boolean;
 Function  TCFlow(fd,act:longint):boolean;
 Function  TCFlow(fd,act:longint):boolean;
 Function  IsATTY(Handle:Longint):Boolean;
 Function  IsATTY(Handle:Longint):Boolean;
-Function  IsATTY(f:text):Boolean;
+Function  IsATTY(var f:text):Boolean;
 function  TTYname(Handle:Longint):string;
 function  TTYname(Handle:Longint):string;
 function  TTYname(var F:Text):string;
 function  TTYname(var F:Text):string;
 
 
@@ -1424,7 +1424,7 @@ begin
 end;
 end;
 
 
 
 
-Function IsATTY(f: text):Boolean;
+Function IsATTY(var f: text):Boolean;
 {
 {
   Idem as previous, only now for text variables.
   Idem as previous, only now for text variables.
 }
 }
@@ -1714,7 +1714,10 @@ End.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.39  2003-09-27 12:51:33  peter
+  Revision 1.40  2003-09-29 14:36:06  peter
+    * fixed for stricter compiler
+
+  Revision 1.39  2003/09/27 12:51:33  peter
     * fpISxxx macros renamed to C compliant fpS_ISxxx
     * fpISxxx macros renamed to C compliant fpS_ISxxx
 
 
   Revision 1.38  2003/09/20 12:38:29  marco
   Revision 1.38  2003/09/20 12:38:29  marco