* fix breakage of the OS/2 RTL

git-svn-id: trunk@25190 -

rtl/os2/system.pas

@@ -1138,7 +1138,7 @@ begin
     IsConsole := ApplicationType <> 3;
 
     {Query maximum path length (QSV_MAX_PATH_LEN = 1)}
-    if DosQuerySysInfo (1, 1, @DW, SizeOf (DW)) = 0 then
+    if DosQuerySysInfo (1, 1, DW, SizeOf (DW)) = 0 then
      RealMaxPathLen := DW;
 
     ExitProc := nil;

rtl/os2/systhrd.inc

@@ -170,10 +170,6 @@ function DosQuerySysState (EntityList, EntityLevel, PID, TID: cardinal;
                                 var Buffer; BufLen: cardinal): cardinal; cdecl;
                                                  external 'DOSCALLS' index 368;
 
-function DosQuerySysInfo (First, Last: cardinal; var Buf; BufSize: cardinal):
-                                                               cardinal; cdecl;
-                                                 external 'DOSCALLS' index 348;
-
 
 
 {*****************************************************************************