paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix breakage of the OS/2 RTL

Browse Source 
git-svn-id: trunk@25190 -
This commit is contained in:
Tomas Hajny 2013-07-30 22:43:23 +00:00
parent 614afca755
commit c8221c4196
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/os2/system.pas
View File

@ -1138,7 +1138,7 @@ begin
IsConsole := ApplicationType <> 3; IsConsole := ApplicationType <> 3;
{Query maximum path length (QSV_MAX_PATH_LEN = 1)} {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; RealMaxPathLen := DW;
ExitProc := nil; ExitProc := nil;

4
rtl/os2/systhrd.inc
View File

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