* fix for 11263, changed fileread and fd_zero to out using $modeswitch.

git-svn-id: trunk@14965 -

rtl/amiga/sysutils.pp

@@ -21,6 +21,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -156,7 +157,7 @@ begin
 end;
 
 
-function FileRead(Handle: LongInt; var Buffer; Count: LongInt): LongInt;
+function FileRead(Handle: LongInt; Out Buffer; Count: LongInt): LongInt;
 begin
   FileRead:=-1;
   if (Count<=0) or (Handle<=0) then exit;

rtl/emx/sysutils.pp

@@ -18,6 +18,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -435,7 +436,7 @@ begin
 end;
 
 
-function FileRead (Handle: longint; var Buffer; Count: longint): longint;
+function FileRead (Handle: longint; Out Buffer; Count: longint): longint;
                                                                      assembler;
 asm
  push ebx

rtl/gba/sysutils.pp

@@ -25,6 +25,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -74,7 +75,7 @@ begin
 end;
 
 
-function FileRead(Handle: LongInt; var Buffer; Count: LongInt): LongInt;
+function FileRead(Handle: LongInt; Out Buffer; Count: LongInt): LongInt;
 begin
   result := -1;
 end;

rtl/go32v2/sysutils.pp

@@ -20,6 +20,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH out}
 { force ansistrings }
 {$H+}
 
@@ -135,7 +136,7 @@ begin
 end;
 
 
-Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
+Function FileRead (Handle : Longint; Out Buffer; Count : longint) : Longint;
 var
   regs     : registers;
   size,

rtl/macos/sysutils.pp

@@ -21,6 +21,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$modeswitch out}
 { force ansistrings }
 {$H+}
 
@@ -109,7 +110,7 @@ BEGIN
 end;
 
 
-Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
+Function FileRead (Handle : Longint; out Buffer; Count : longint) : Longint;
 
 begin
   (* TODO fix

rtl/morphos/sysutils.pp

@@ -21,6 +21,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -157,7 +158,7 @@ begin
 end;
 
 
-function FileRead(Handle: LongInt; var Buffer; Count: LongInt): LongInt;
+function FileRead(Handle: LongInt; out Buffer; Count: LongInt): LongInt;
 begin
   FileRead:=-1;
   if (Count<=0) or (Handle<=0) then exit;

rtl/nds/sysutils.pp

@@ -25,6 +25,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -74,7 +75,7 @@ begin
 end;
 
 
-function FileRead(Handle: LongInt; var Buffer; Count: LongInt): LongInt;
+function FileRead(Handle: LongInt; Out Buffer; Count: LongInt): LongInt;
 begin
   result := -1;
 end;

rtl/netware/sysutils.pp

@@ -18,6 +18,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -112,7 +113,7 @@ begin
 end;
 
 
-Function FileRead (Handle : THandle; Var Buffer; Count : longint) : longint;
+Function FileRead (Handle : THandle; Out Buffer; Count : longint) : longint;
 
 begin
   FileRead:=_read (Handle,@Buffer,Count);

rtl/netwlibc/sysutils.pp

@@ -17,6 +17,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -114,7 +115,7 @@ begin
 end;
 
 
-Function FileRead (Handle : THandle; Var Buffer; Count : longint) : Longint;
+Function FileRead (Handle : THandle; Out Buffer; Count : longint) : Longint;
 begin
   FileRead:=libc.fpread (Handle,@Buffer,Count);
 end;

rtl/objpas/sysutils/filutilh.inc

@@ -74,7 +74,7 @@ Const
 Function FileOpen (Const FileName : string; Mode : Integer) : THandle;
 Function FileCreate (Const FileName : String) : THandle;
 Function FileCreate (Const FileName : String; Mode : Integer) : THandle;
-Function FileRead (Handle : THandle; Var Buffer; Count : longint) : Longint;
+Function FileRead (Handle : THandle; out Buffer; Count : longint) : Longint;
 Function FileWrite (Handle : THandle; const Buffer; Count : Longint) : Longint;
 Function FileSeek (Handle : THandle; FOffset, Origin: Longint) : Longint;
 Function FileSeek (Handle : THandle; FOffset: Int64; Origin: Longint) : Int64;

rtl/os2/sysutils.pp

@@ -18,6 +18,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -515,7 +516,7 @@ begin
 end;
 
 
-function FileRead (Handle: THandle; var Buffer; Count: longint): longint;
+function FileRead (Handle: THandle; Out Buffer; Count: longint): longint;
 Var
   T: cardinal;
 begin

rtl/unix/baseunix.pp

@@ -15,6 +15,7 @@
 Unit BaseUnix;
 
 Interface
+{$modeswitch out}
 {$inline on}
 Uses UnixType;
 

rtl/unix/bunxovlh.inc

@@ -71,7 +71,7 @@ Function FpGetEnv   (name : String): pChar;
 
 Function fpFD_SET   (fdno:cint;var nset : TFDSet): cint;
 Function fpFD_CLR   (fdno:cint;var nset : TFDSet): cint;
-Function fpFD_ZERO  (var nset : TFDSet):cint;
+Function fpFD_ZERO  (out nset : TFDSet):cint;
 Function fpFD_ISSET (fdno:cint;const nset : TFDSet): cint;
 Function fpfdfillset(var nset : TFDSet):cint;
 

rtl/unix/genfdset.inc

@@ -32,7 +32,7 @@ Begin
    fpFD_CLR:=0;
 End;
 
-function fpFD_ZERO(var nset : TFDSet):cint;
+function fpFD_ZERO(out nset : TFDSet):cint;
 
 var i :longint;
 

rtl/unix/sysutils.pp

@@ -17,6 +17,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -450,7 +451,7 @@ begin
 end;
 
 
-Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
+Function FileRead (Handle : Longint; out Buffer; Count : longint) : Longint;
 
 begin
   repeat

rtl/watcom/sysutils.pp

@@ -20,6 +20,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$modeswitch out}
 { force ansistrings }
 {$H+}
 
@@ -140,7 +141,7 @@ begin
 end;
 
 
-Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
+Function FileRead (Handle : Longint; Out Buffer; Count : longint) : Longint;
 var
   regs     : registers;
   size,

rtl/win/sysutils.pp

@@ -18,6 +18,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -249,7 +250,7 @@ begin
 end;
 
 
-Function FileRead (Handle : THandle; Var Buffer; Count : longint) : Longint;
+Function FileRead (Handle : THandle; out Buffer; Count : longint) : Longint;
 Var
   res : dword;
 begin

rtl/wince/sysutils.pp

@@ -18,6 +18,7 @@ unit sysutils;
 interface
 
 {$MODE objfpc}
+{$MODESWITCH OUT}
 { force ansistrings }
 {$H+}
 
@@ -170,7 +171,7 @@ begin
 end;
 
 
-Function FileRead (Handle : THandle; Var Buffer; Count : longint) : Longint;
+Function FileRead (Handle : THandle; Out Buffer; Count : longint) : Longint;
 Var
   res : dword;
 begin