Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fix for #35119 geterrormode declaration by 440bx.

git-svn-id: trunk@41560 -
marco 6 years ago
parent
a5ce9a9ab6
commit
474ecfba3a
1 changed files with 1 additions and 0 deletions
Split View Show Diff Stats
  1. 1 0
      rtl/win/wininc/func.inc

+ 1 - 0
rtl/win/wininc/func.inc
View File 

@@ -137,6 +137,7 @@ function GetExitCodeThread(hThread:HANDLE; lpExitCode:LPDWORD):WINBOOL; external
 
 function GetThreadSelectorEntry(hThread:HANDLE; dwSelector:DWORD; lpSelectorEntry:LPLDT_ENTRY):WINBOOL; external 'kernel32' name 'GetThreadSelectorEntry';
 
 function GetLastError:DWORD; external 'kernel32' name 'GetLastError';
 
 procedure SetLastError(dwErrCode:DWORD); external 'kernel32' name 'SetLastError';
 
+function GetErrorMode : DWORD; stdcall; external 'kernel32' name 'GetErrorMode';
 
 function CreateIoCompletionPort(FileHandle:HANDLE; ExistingCompletionPort:HANDLE; CompletionKey:ULONG_PTR; NumberOfConcurrentThreads:DWORD):HANDLE; external 'kernel32' name 'CreateIoCompletionPort';
 
 function SetErrorMode(uMode:UINT):UINT; external 'kernel32' name 'SetErrorMode';
 
 function ReadProcessMemory(hProcess:HANDLE; lpBaseAddress:LPCVOID; lpBuffer:LPVOID; nSize:PTRUINT; lpNumberOfBytesRead:PPTRUINT):WINBOOL; external 'kernel32' name 'ReadProcessMemory';