From 9b9f9f9709a276e2ce1484e544bd49f50f49bbb7 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Fri, 9 Jan 2015 11:33:13 +0000
Subject: [PATCH] Debugger: do not link in JwaTlHelp32 on Win9x platform
 (depends on compiler define).

git-svn-id: trunk@47325 -
---
 debugger/debugattachdialog.pas | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/debugger/debugattachdialog.pas b/debugger/debugattachdialog.pas
index 514df8cd4e..ad3e7f1b14 100644
--- a/debugger/debugattachdialog.pas
+++ b/debugger/debugattachdialog.pas
@@ -52,20 +52,26 @@ implementation
 
 {$ifdef windows}
 uses
-  Windows,
-  JwaTlHelp32;
+  Windows
+  {$ifndef WIN9XPLATFORM}
+  ,JwaTlHelp32
+  {$endif};
 
 // Enumerate running processes.
 // Result must be always set: True if enumeration supported or False otherwise.
 // If AList is not nil it must be filled with TRunningProcessInfo items.
 function EnumerateProcesses(AList: TRunningProcessInfoList): boolean;
+{$ifndef WIN9XPLATFORM}
 var
   hShot: HANDLE;
   pe: tagPROCESSENTRY32W;
   item: TRunningProcessInfo;
+{$endif}
 begin
+  {$ifdef WIN9XPLATFORM}
+  Result := False;
+  {$else}
   Result := True; // we can enumerate processes
-
   if not Assigned(AList) then
     Exit;
 
@@ -84,6 +90,7 @@ begin
   finally
     CloseHandle(hShot);
   end;
+  {$endif}
 end;
 {$else}
 {$ifdef linux}