paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 01:06:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed WinCE breakage caused when moving to target dependent type for ordinal argument in GetProcAddress

Browse Source 
git-svn-id: trunk@26522 -
This commit is contained in:
Tomas Hajny 2014-01-19 22:42:52 +00:00
parent 1a430d8110
commit 2c60f456f1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/wince/dynlibs.inc
View File

@ -20,8 +20,11 @@
Interface declarations Interface declarations
---------------------------------------------------------------------} ---------------------------------------------------------------------}
{$define DYNLIBS_SUPPORTS_ORDINAL}
Type Type
TLibHandle = Longint; TLibHandle = Longint;
TOrdinalEntry = word;
Const Const
NilHandle = 0; NilHandle = 0;
@ -50,8 +53,7 @@ begin
FreeMem(ws); FreeMem(ws);
end; end;
{$define DYNLIBS_SUPPORTS_ORDINAL} Function GetProcedureAddress(Lib : TLibHandle; Ordinal : TOrdinalEntry) : Pointer;
Function GetProcedureAddress(Lib : TLibHandle; Ordinal : Word) : Pointer;
begin begin
Result:=Windows.GetProcAddress(Lib, PWideChar(Ordinal)); Result:=Windows.GetProcAddress(Lib, PWideChar(Ordinal));
end; end;