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

* Fix for #21058, cerapiuninit with lowercase init.

Browse Source 
git-svn-id: trunk@20044 -
This commit is contained in:
marco 2012-01-10 21:37:22 +00:00
parent 40f29ffd7a
commit ad2aa1ceb3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/winceunits/src/rapi.pp
View File

@ -339,7 +339,7 @@ type
//added 01/19/2003 - Octavio Hernandez; dotnet@danysoft.com
TDeviceToDesktop = function(DesktopLocation, TableList: String; Sync: BOOL; Overwrite: Integer; DeviceLocation: String): Longint stdcall;
TCeRapiUnInit = function : LongInt stdcall;
TCeRapiUninit = function : LongInt stdcall;
TCeFindAllFiles = function(Path: PWideChar; Attr: DWORD; var Count: DWord;
var FindData: PCe_Find_Data_array): BOOL stdcall;
TRapiFreeBuffer = procedure(p: Pointer) stdcall;
@ -348,7 +348,7 @@ type
function CeRapiInit: LongInt;
function CeRapiInitEx(var RInit: TRapiInit) : LongInt;
function CeRapiUnInit: LongInt;
function CeRapiUninit: LongInt;
function CeFindAllFiles(Path: PWideChar; Attr: DWORD;
var Count: DWord; var FindData: PCe_Find_Data_array): BOOL;
procedure RapiFreeBuffer(p: Pointer);
@ -444,7 +444,7 @@ IMPLEMENTATION
var
mCeRapiInit : TCeRapiInit;
mCeRapiUnInit : TCeRapiUnInit;
mCeRapiUninit : TCeRapiUninit;
mCeFindAllFiles: TCeFindAllFiles;
mRapiFreeBuffer : TRapiFreeBuffer;
mCeRapiInitEx: TCeRapiInitEx;
@ -530,7 +530,7 @@ begin
{...and load all globals}
@mCeRapiInit := GetProcAddress(RapiModule, 'CeRapiInit');
@mCeRapiInitEx := GetProcAddress(RapiModule, 'CeRapiInitEx');
@mCeRapiUnInit := GetProcAddress(RapiModule, 'CeRapiUnInit');
@mCeRapiUninit := GetProcAddress(RapiModule, 'CeRapiUninit');
@mCeFindAllFiles := GetProcAddress(RapiModule, 'CeFindAllFiles');
@mRapiFreeBuffer := GetProcAddress(RapiModule, 'RapiFreeBuffer');