paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 13:41:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

AJ: fixed ideprocs uses dos twice in win32

Browse Source 
git-svn-id: trunk@3389 -
This commit is contained in:
lazarus 2002-10-01 15:45:19 +00:00
parent d300d2e70b
commit 387f997ca0
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/ideprocs.pp
View File

@ -30,7 +30,7 @@ unit IDEProcs;
interface
uses
Classes, DOS, SysUtils, Laz_XMLCfg, GetText, FileProcs;
Classes, SysUtils, Laz_XMLCfg, GetText, FileProcs;
type
TCommentType = (
@ -140,18 +140,8 @@ implementation
// to get more detailed error messages consider the os
{$IFDEF Win32}
uses
Dos;
{$ELSE}
uses
{$IFDEF Ver1_0}
Linux
{$ELSE}
Unix
{$ENDIF}
;
{$ENDIF}
Dos{$IFDEF Ver1_0},Linux{$ELSE},Unix{$ENDIF};
function AddToRecentList(const s: string; RecentList: TStringList;
Max: integer): boolean;