--- Merging r14965 into '.':

U    rtl/unix/sysutils.pp
U    rtl/unix/baseunix.pp
U    rtl/unix/genfdset.inc
U    rtl/unix/bunxovlh.inc
U    rtl/nds/sysutils.pp
U    rtl/morphos/sysutils.pp
U    rtl/watcom/sysutils.pp
U    rtl/macos/sysutils.pp
U    rtl/wince/sysutils.pp
U    rtl/netwlibc/sysutils.pp
U    rtl/go32v2/sysutils.pp
U    rtl/gba/sysutils.pp
U    rtl/emx/sysutils.pp
U    rtl/win/sysutils.pp
U    rtl/os2/sysutils.pp
U    rtl/netware/sysutils.pp
U    rtl/amiga/sysutils.pp
U    rtl/objpas/sysutils/filutilh.inc
--- Merging r14977 into '.':
U    packages/x11/src/xutil.pp
U    packages/x11/src/xf86dga.pp
U    packages/x11/src/xrender.pp
U    packages/x11/src/xshm.pp
U    packages/x11/src/xf86dga1.inc
U    packages/x11/src/xvlib.pp
U    packages/x11/src/xf86vmode.pp
U    packages/x11/src/xrandr.pp
--- Merging r14988 into '.':
U    packages/winunits-base/src/activex.pp
--- Merging r14973 into '.':
U    packages/fcl-db/src/paradox/paradox.pp

# revisions: 14965,14977,14988,14973
------------------------------------------------------------------------
r14965 | marco | 2010-03-01 23:35:14 +0100 (Mon, 01 Mar 2010) | 2 lines
Changed paths:
   M /trunk/rtl/amiga/sysutils.pp
   M /trunk/rtl/emx/sysutils.pp
   M /trunk/rtl/gba/sysutils.pp
   M /trunk/rtl/go32v2/sysutils.pp
   M /trunk/rtl/macos/sysutils.pp
   M /trunk/rtl/morphos/sysutils.pp
   M /trunk/rtl/nds/sysutils.pp
   M /trunk/rtl/netware/sysutils.pp
   M /trunk/rtl/netwlibc/sysutils.pp
   M /trunk/rtl/objpas/sysutils/filutilh.inc
   M /trunk/rtl/os2/sysutils.pp
   M /trunk/rtl/unix/baseunix.pp
   M /trunk/rtl/unix/bunxovlh.inc
   M /trunk/rtl/unix/genfdset.inc
   M /trunk/rtl/unix/sysutils.pp
   M /trunk/rtl/watcom/sysutils.pp
   M /trunk/rtl/win/sysutils.pp
   M /trunk/rtl/wince/sysutils.pp

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

------------------------------------------------------------------------
------------------------------------------------------------------------
r14977 | marco | 2010-03-06 11:47:29 +0100 (Sat, 06 Mar 2010) | 2 lines
Changed paths:
   M /trunk/packages/x11/src/xf86dga.pp
   M /trunk/packages/x11/src/xf86dga1.inc
   M /trunk/packages/x11/src/xf86vmode.pp
   M /trunk/packages/x11/src/xrandr.pp
   M /trunk/packages/x11/src/xrender.pp
   M /trunk/packages/x11/src/xshm.pp
   M /trunk/packages/x11/src/xutil.pp
   M /trunk/packages/x11/src/xvlib.pp

 * patch from Nikolay that fixes more Tboolresult issues. Fixes mants 15891

------------------------------------------------------------------------
------------------------------------------------------------------------
r14988 | marco | 2010-03-06 14:42:41 +0100 (Sat, 06 Mar 2010) | 2 lines
Changed paths:
   M /trunk/packages/winunits-base/src/activex.pp

 * few small left over renames and typing (var/out) fixes from Mantis 14802

------------------------------------------------------------------------
------------------------------------------------------------------------
r14973 | paul | 2010-03-05 04:51:05 +0100 (Fri, 05 Mar 2010) | 1 line
Changed paths:
   M /trunk/packages/fcl-db/src/paradox/paradox.pp

fcl-db: comment writeln in the paradox component code
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@15042 -

packages/fcl-db/src/paradox/paradox.pp

@@ -491,7 +491,7 @@ begin
     end;
   If (BFN<>'') then
     begin
-    Writeln('opening blib file',bfn);
+    //Writeln('opening blib file',bfn);
     if PX_set_blob_file(FDoc,PChar(BFN))<>0 then
       RaiseError(SErrInvalidBlobFile,[BFN]);
     FBlobFileName:=BFN;

packages/winunits-base/src/activex.pp

@@ -2915,9 +2915,9 @@ TYPE
      Function  GetVarCustData(index: UINT; CONST guid: TGUID; OUT pVarVal: VARIANT):HResult;StdCall;
      Function  GetImplTypeCustData(index: UINT; CONST guid: TGUID; OUT pVarVal: VARIANT):HResult;StdCall;
      {$ifndef Call_as}
-      Function  GetDocumentation2(memid: MEMBERID; lcid: LCID; OUT pbstrHelpString: WideString; OUT pdwHelpStringContext: DWORD; OUT pbstrHelpStringDll: WideString):HResult;StdCall;
+      Function  GetDocumentation2(memid: MEMBERID; lcid: LCID;  pbstrHelpString: PWideString; pdwHelpStringContext: PDWORD; pbstrHelpStringDll: PWideString):HResult;StdCall;
      {$else}
-      Function  GetDocumentation2(memid: MEMBERID; lcid: LCID; refPtrFlags: DWORD; OUT pbstrHelpString: WideString; OUT pdwHelpStringContext: DWORD; OUT pbstrHelpStringDll: WideString):HResult;StdCall;
+      Function  GetDocumentation2(memid: MEMBERID; lcid: LCID; refPtrFlags: DWORD; pbstrHelpString: PWideString;  pdwHelpStringContext: PDWORD; pbstrHelpStringDll: PWideString):HResult;StdCall;
      {$endif}
      Function  GetAllCustData(OUT pCustData: CUSTDATA):HResult;StdCall;
      Function  GetAllFuncCustData(index: UINT; OUT pCustData: CUSTDATA):HResult;StdCall;
@@ -2975,9 +2975,9 @@ TYPE
      Function  GetLibStatistics(OUT pcUniqueNames: ULONG; OUT pcchUniqueNames: ULONG):HResult;StdCall;
      {$endif}
      {$ifndef Call_as}
-     Function  GetDocumentation2(index: WINT; lcid: LCID; OUT pbstrHelpString: WideString; OUT pdwHelpStringContext: DWORD; OUT pbstrHelpStringDll: WideString):HResult;StdCall;
+     Function  GetDocumentation2(index: WINT; lcid: LCID;  pbstrHelpString: PWideString;  pdwHelpStringContext: PDWORD;  pbstrHelpStringDll: PWideString):HResult;StdCall;
      {$else}
-     Function  GetDocumentation2(index: WINT; lcid: LCID; refPtrFlags: DWORD; OUT pbstrHelpString: WideString; OUT pdwHelpStringContext: DWORD; OUT pbstrHelpStringDll: WideString):HResult;StdCall;
+     Function  GetDocumentation2(index: WINT; lcid: LCID; refPtrFlags: DWORD; pbstrHelpString: PWideString; pdwHelpStringContext: PDWORD; pbstrHelpStringDll: PWideString):HResult;StdCall;
      {$endif}
      Function  GetAllCustData(OUT pCustData: CUSTDATA):HResult;StdCall;
      End;
@@ -3875,8 +3875,8 @@ function DosDateTimeToVariantTime( wDosDate: ushort; wDosTime:ushort;pvtime:pdou
 function VariantTimeToDosDateTime( vtime:DOUBLE;pwdosdate:PUSHORT;pwDosTime:PUSHORT):longint; stdcall; external oleaut32dll name 'VariantTimeToDosDateTime';
 {$endif wince}
 
-function SystemTimeToVariantTime(LPSYSTEMTIME:lpSystemTime;pvtime: PDOUBLE):LONGINT; stdcall; external oleaut32dll name 'SystemTimeToVariantTime';
-function VariantTimeToSystemTime(vtime:DOUBLE; lpsystemtime: LPSYSTEMTIME):LONGINT; stdcall; external oleaut32dll name 'VariantTimeToSystemTime';
+function SystemTimeToVariantTime(var lpsystemtime:TSystemTime;out pvtime: TOleDate):LONGINT; stdcall; external oleaut32dll name 'SystemTimeToVariantTime';
+function VariantTimeToSystemTime(vtime:TOleDate; out lpsystemtime: TSystemTime):LONGINT; stdcall; external oleaut32dll name 'VariantTimeToSystemTime';
 
 
 {--------------------------------------------------------------------- }

packages/x11/src/xf86dga.pp

@@ -157,13 +157,13 @@ Function XDGAQueryExtension(
     dpy : PDisplay;
     eventBase : Pcint;
     erroBase : Pcint
-  ) : TBool; CDecl; External libXxf86dga;
+  ) : TBoolResult; CDecl; External libXxf86dga;
 
 Function XDGAQueryVersion(
     dpy : PDisplay;
     majorVersion : Pcint;
     minorVersion : Pcint
-  ) : TBool; CDecl; External libXxf86dga;
+  ) : TBoolResult; CDecl; External libXxf86dga;
 
 Function XDGAQueryModes(
     dpy : PDisplay;
@@ -180,7 +180,7 @@ Function XDGASetMode(
 Function XDGAOpenFramebuffer(
     dpy : PDisplay;
     screen : cint
-  ) : TBool; CDecl; External libXxf86dga;
+  ) : TBoolResult; CDecl; External libXxf86dga;
 
 Procedure XDGACloseFramebuffer(
     dpy : PDisplay;
@@ -259,7 +259,7 @@ Procedure XDGASync(
 
 Function XDGASetClientVersion(
     dpy : PDisplay
-  ) : TBool; CDecl; External libXxf86dga;
+  ) : TBoolResult; CDecl; External libXxf86dga;
 
 Procedure XDGAChangePixmapMode(
     dpy : PDisplay;

packages/x11/src/xf86dga1.inc

@@ -38,13 +38,13 @@ Function XF86DGAQueryVersion(
     dpy : PDisplay;
     majorVersion : Pcint;
     minorVersion : Pcint
-  ) : TBool; CDecl; External libXxf86dga;
+  ) : TBoolResult; CDecl; External libXxf86dga;
 
 Function XF86DGAQueryExtension(
     dpy : PDisplay;
     event_base : Pcint;
     error_base : Pcint
-  ) : TBool; CDecl; External libXxf86dga;
+  ) : TBoolResult; CDecl; External libXxf86dga;
 
 Function XF86DGAGetVideoLL(
     dpy : PDisplay;
@@ -122,4 +122,4 @@ Function XF86DGAViewPortChanged(
     dpy : PDisplay;
     screen : cint;
     n : cint
-  ) : TBool; CDecl; External libXxf86dga;
+  ) : TBoolResult; CDecl; External libXxf86dga;

packages/x11/src/xf86vmode.pp

@@ -172,58 +172,58 @@ Type
   End;
 
 {$IFDEF MACROS}
-Function XF86VidModeSelectNextMode(disp : PDisplay; scr : cint) : TBool;
-Function XF86VidModeSelectPrevMode(disp : PDisplay; scr : cint) : TBool;
+Function XF86VidModeSelectNextMode(disp : PDisplay; scr : cint) : TBoolResult;
+Function XF86VidModeSelectPrevMode(disp : PDisplay; scr : cint) : TBoolResult;
 {$ENDIF MACROS}
 
 Function XF86VidModeQueryVersion(
     dpy : PDisplay;
     majorVersion : Pcint;
     minorVersion : Pcint
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeQueryExtension(
     dpy : PDisplay;
     event_base : Pcint;
     error_base : Pcint
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeSetClientVersion(
     dpy : PDisplay
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeGetModeLine(
     dpy : PDisplay;
     screen : cint;
     dotclock : Pcint;
     modeline : PXF86VidModeModeLine
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeGetAllModeLines(
     dpy : PDisplay;
     screen : cint;
     modecount : Pcint;
     modelinesPtr : PPPXF86VidModeModeInfo
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeAddModeLine(
     dpy : PDisplay;
     screen : cint;
     new_modeline : PXF86VidModeModeInfo;
     after_modeline : PXF86VidModeModeInfo
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeDeleteModeLine(
     dpy : PDisplay;
     screen : cint;
     modeline : PXF86VidModeModeInfo
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeModModeLine(
     dpy : PDisplay;
     screen : cint;
     modeline : PXF86VidModeModeLine
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeValidateModeLine(
     dpy : PDisplay;
@@ -235,39 +235,39 @@ Function XF86VidModeSwitchMode(
     dpy : PDisplay;
     screen : cint;
     zoom : cint
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeSwitchToMode(
     dpy : PDisplay;
     screen : cint;
     modeline : PXF86VidModeModeInfo
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeLockModeSwitch(
     dpy : PDisplay;
     screen : cint;
     lock : cint
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeGetMonitor(
     dpy : PDisplay;
     screen : cint;
     monitor : PXF86VidModeMonitor
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeGetViewPort(
     dpy : PDisplay;
     screen : cint;
     x_return : Pcint;
     y_return : Pcint
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeSetViewPort(
     dpy : PDisplay;
     screen : cint;
     x : cint;
     y : cint
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeGetDotClocks(
     dpy : PDisplay;
@@ -276,19 +276,19 @@ Function XF86VidModeGetDotClocks(
     number_of_clocks_return : Pcint;
     max_dot_clock_return : Pcint;
     clocks_return : PPcint
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeGetGamma(
     dpy : PDisplay;
     screen : cint;
     Gamma : PXF86VidModeGamma
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeSetGamma(
     dpy : PDisplay;
     screen : cint;
     Gamma : PXF86VidModeGamma
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeSetGammaRamp(
     dpy : PDisplay;
@@ -297,7 +297,7 @@ Function XF86VidModeSetGammaRamp(
     red_array : Pcushort;
     green_array : Pcushort;
     blue_array : Pcushort
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeGetGammaRamp(
     dpy : PDisplay;
@@ -306,30 +306,30 @@ Function XF86VidModeGetGammaRamp(
     red_array : Pcushort;
     green_array : Pcushort;
     blue_array : Pcushort
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeGetGammaRampSize(
     dpy : PDisplay;
     screen : cint;
     size : Pcint
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Function XF86VidModeGetPermissions(
     dpy : PDisplay;
     screen : cint;
     permissions : Pcint
-  ) : TBool; CDecl; External libXxf86vm;
+  ) : TBoolResult; CDecl; External libXxf86vm;
 
 Implementation
 
 {$IFDEF MACROS}
-Function XF86VidModeSelectNextMode(disp : PDisplay; scr : cint) : TBool;
+Function XF86VidModeSelectNextMode(disp : PDisplay; scr : cint) : TBoolResult;
 
 Begin
   XF86VidModeSelectNextMode := XF86VidModeSwitchMode(disp, scr, 1);
 End;
 
-Function XF86VidModeSelectPrevMode(disp : PDisplay; scr : cint) : TBool;
+Function XF86VidModeSelectPrevMode(disp : PDisplay; scr : cint) : TBoolResult;
 
 Begin
   XF86VidModeSelectPrevMode := XF86VidModeSwitchMode(disp, scr, -1);

packages/x11/src/xrandr.pp

@@ -75,7 +75,7 @@ type
 function XRRQueryExtension(
   dpy : PDisplay;
   event_basep,
-  error_basep : Pcint) : TBool; cdecl; external libXrandr;
+  error_basep : Pcint) : TBoolResult; cdecl; external libXrandr;
 
 function XRRQueryVersion(
   dpy : PDisplay;

packages/x11/src/xrender.pp

@@ -206,7 +206,7 @@ type
         yOff : smallint;
      end;
 
-function XRenderQueryExtension(dpy:PDisplay; event_basep:Plongint; error_basep:Plongint):TBool;cdecl;external libX11;
+function XRenderQueryExtension(dpy:PDisplay; event_basep:Plongint; error_basep:Plongint):TBoolResult;cdecl;external libX11;
 function XRenderQueryVersion(dpy:PDisplay; major_versionp:Plongint; minor_versionp:Plongint):TStatus;cdecl;external libX11;
 function XRenderQueryFormats(dpy:PDisplay):TStatus;cdecl;external libX11;
 function XRenderFindVisualFormat(dpy:PDisplay; visual:PVisual):PXRenderPictFormat;cdecl;external libX11;

packages/x11/src/xshm.pp

@@ -65,9 +65,9 @@ type
         readOnly : TBool;
      end;
 
-function XShmQueryExtension(para1:PDisplay):TBool;cdecl;external libX11;
+function XShmQueryExtension(para1:PDisplay):TBoolResult;cdecl;external libX11;
 function XShmGetEventBase(para1:PDisplay):cint;cdecl;external libX11;
-function XShmQueryVersion(para1:PDisplay; para2:Pcint; para3:Pcint; para4:PBool):TBool;cdecl;external libX11;
+function XShmQueryVersion(para1:PDisplay; para2:Pcint; para3:Pcint; para4:PBool):TBoolResult;cdecl;external libX11;
 function XShmPixmapFormat(para1:PDisplay):cint;cdecl;external libX11;
 function XShmAttach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external libX11;
 function XShmDetach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external libX11;
@@ -81,7 +81,18 @@ function XShmCreateImage(para1:PDisplay; para2:PVisual; para3:cuint; para4:cint;
 function XShmCreatePixmap(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:PXShmSegmentInfo; para5:cuint;
            para6:cuint; para7:cuint):TPixmap;cdecl;external libX11;
 
+{ overloaded functions to handle TBool parameters as actual booleans }
+function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:cint;
+           para6:cint; para7:cint; para8:cint; para9:cuint; para10:cuint;
+           para11:Boolean):TStatus;
+
 implementation
 
+function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:cint;
+           para6:cint; para7:cint; para8:cint; para9:cuint; para10:cuint;
+           para11:Boolean):TStatus;
+begin
+  XShmPutImage := XShmPutImage(para1,para2,para3,para4,para5,para6,para7,para8,para9,para10,Ord(para11));
+end;
 
 end.

packages/x11/src/xutil.pp

@@ -243,7 +243,7 @@ procedure XConvertCase(para1:TKeySym; para2:PKeySym; para3:PKeySym);cdecl;extern
 function XLookupString(para1:PXKeyEvent; para2:Pchar; para3:cint; para4:PKeySym; para5:PXComposeStatus):cint;cdecl;external libX11;
 function XMatchVisualInfo(para1:PDisplay; para2:cint; para3:cint; para4:cint; para5:PXVisualInfo):TStatus;cdecl;external libX11;
 function XOffsetRegion(para1:TRegion; para2:cint; para3:cint):cint;cdecl;external libX11;
-function XPointInRegion(para1:TRegion; para2:cint; para3:cint):TBool;cdecl;external libX11;
+function XPointInRegion(para1:TRegion; para2:cint; para3:cint):TBoolResult;cdecl;external libX11;
 function XPolygonRegion(para1:PXPoint; para2:cint; para3:cint):TRegion;cdecl;external libX11;
 function XRectInRegion(para1:TRegion; para2:cint; para3:cint; para4:cuint; para5:cuint):cint;cdecl;external libX11;
 function XSaveContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:Pchar):cint;cdecl;external libX11;

packages/x11/src/xvlib.pp

@@ -403,6 +403,32 @@ function XvShmCreateImage(
   shminfo : PXShmSegmentInfo
 ) : PXvImage; cdecl; external libXv;
 
+{ overloaded functions to handle TBool parameters as actual booleans }
+function XvSelectVideoNotify(display : PDisplay; drawable : TDrawable; onoff : Boolean): cint;
+function XvSelectPortNotify(display : PDisplay; port : TXvPortID; onoff : Boolean): cint;
+function XvQueryBestSize(display : PDisplay; port : TXvPortID; motion : Boolean; vid_w, vid_h, drw_w, drw_h : cuint; p_actual_width, p_actual_height : pcuint): cint;
+function XvShmPutImage(display : PDisplay; id : TXvPortID; d : TDrawable; gc : TGC; image : PXvImage; src_x, src_y : cint; src_w, src_h : cuint; dest_x, dest_y : cint; dest_w, dest_h : cuint; send_event : Boolean): cint;
+
 implementation
 
+function XvSelectVideoNotify(display : PDisplay; drawable : TDrawable; onoff : Boolean): cint;
+begin
+  XvSelectVideoNotify := XvSelectVideoNotify(display, drawable, Ord(onoff));
+end;
+
+function XvSelectPortNotify(display : PDisplay; port : TXvPortID; onoff : Boolean): cint;
+begin
+  XvSelectPortNotify := XvSelectPortNotify(display, port, Ord(onoff));
+end;
+
+function XvQueryBestSize(display : PDisplay; port : TXvPortID; motion : Boolean; vid_w, vid_h, drw_w, drw_h : cuint; p_actual_width, p_actual_height : pcuint): cint;
+begin
+  XvQueryBestSize := XvQueryBestSize(display, port, Ord(motion), vid_w, vid_h, drw_w, drw_h, p_actual_width, p_actual_height);
+end;
+
+function XvShmPutImage(display : PDisplay; id : TXvPortID; d : TDrawable; gc : TGC; image : PXvImage; src_x, src_y : cint; src_w, src_h : cuint; dest_x, dest_y : cint; dest_w, dest_h : cuint; send_event : Boolean): cint;
+begin
+  XvShmPutImage := XvShmPutImage(display, id, d, gc, image, src_x, src_y, src_w, src_h, dest_x, dest_y, dest_w, dest_h, Ord(send_event));
+end;
+
 end.

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