paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 17:55:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

AJ: fixed compiling on win32

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

9
ide/ideprocs.pp
View File

@ -141,7 +141,14 @@ implementation
// to get more detailed error messages consider the os
uses
Dos{$IFDEF Ver1_0},Linux{$ELSE},Unix{$ENDIF};
Dos
{$IfNDef Win32}
{$IFDEF Ver1_0}
,Linux
{$ELSE}
,Unix
{$ENDIF}
{$EndIf};
function AddToRecentList(const s: string; RecentList: TStringList;
Max: integer): boolean;