From febb1aab0b4814eb940415d1ef13a79d128ba231 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 21 Apr 2019 18:12:57 +0000
Subject: [PATCH]  * IsDebuggerPresent, bug #35422

git-svn-id: trunk@41921 -
---
 rtl/win/wininc/func.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/win/wininc/func.inc b/rtl/win/wininc/func.inc
index d7b265dd31..65e9d1a9b7 100644
--- a/rtl/win/wininc/func.inc
+++ b/rtl/win/wininc/func.inc
@@ -1320,7 +1320,7 @@ function CONSOLE_REAL_OUTPUT_HANDLE : HANDLE;
   function GetConsoleWindow:HWND;stdcall;external 'kernel32' name 'GetConsoleWindow';
   function GetConsoleProcessList(lpdwProcessList:LPDWORD; dwProcessCount:DWORD):DWORD;stdcall;external 'kernel32' name 'GetConsoleProcessList';
   function ReadDirectoryChangesW(hDirectory: HANDLE; lpBuffer: LPVOID;nBufferLength: DWORD; bWatchSubtree: BOOL; dwNotifyFilter: DWORD;lpBytesReturned: LPDWORD;lpOverlapped: LPOVERLAPPED;lpCompletionRoutine: LPOVERLAPPED_COMPLETION_ROUTINE): BOOL; stdcall; external 'kernel32' name 'ReadDirectoryChangesW';  
-
+  function IsDebuggerPresent : BOOL; stdcall; external 'kernel32.dll' name 'IsDebuggerPresent';
 {$endif read_interface}