paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:39:33 +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 //added 01/19/2003 - Octavio Hernandez; dotnet@danysoft.com
TDeviceToDesktop = function(DesktopLocation, TableList: String; Sync: BOOL; Overwrite: Integer; DeviceLocation: String): Longint stdcall; 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; TCeFindAllFiles = function(Path: PWideChar; Attr: DWORD; var Count: DWord;
var FindData: PCe_Find_Data_array): BOOL stdcall; var FindData: PCe_Find_Data_array): BOOL stdcall;
TRapiFreeBuffer = procedure(p: Pointer) stdcall; TRapiFreeBuffer = procedure(p: Pointer) stdcall;
@ -348,7 +348,7 @@ type
function CeRapiInit: LongInt; function CeRapiInit: LongInt;
function CeRapiInitEx(var RInit: TRapiInit) : LongInt; function CeRapiInitEx(var RInit: TRapiInit) : LongInt;
function CeRapiUnInit: LongInt; function CeRapiUninit: LongInt;
function CeFindAllFiles(Path: PWideChar; Attr: DWORD; function CeFindAllFiles(Path: PWideChar; Attr: DWORD;
var Count: DWord; var FindData: PCe_Find_Data_array): BOOL; var Count: DWord; var FindData: PCe_Find_Data_array): BOOL;
procedure RapiFreeBuffer(p: Pointer); procedure RapiFreeBuffer(p: Pointer);
@ -444,7 +444,7 @@ IMPLEMENTATION
var var
mCeRapiInit : TCeRapiInit; mCeRapiInit : TCeRapiInit;
mCeRapiUnInit : TCeRapiUnInit; mCeRapiUninit : TCeRapiUninit;
mCeFindAllFiles: TCeFindAllFiles; mCeFindAllFiles: TCeFindAllFiles;
mRapiFreeBuffer : TRapiFreeBuffer; mRapiFreeBuffer : TRapiFreeBuffer;
mCeRapiInitEx: TCeRapiInitEx; mCeRapiInitEx: TCeRapiInitEx;
@ -530,7 +530,7 @@ begin
{...and load all globals} {...and load all globals}
@mCeRapiInit := GetProcAddress(RapiModule, 'CeRapiInit'); @mCeRapiInit := GetProcAddress(RapiModule, 'CeRapiInit');
@mCeRapiInitEx := GetProcAddress(RapiModule, 'CeRapiInitEx'); @mCeRapiInitEx := GetProcAddress(RapiModule, 'CeRapiInitEx');
@mCeRapiUnInit := GetProcAddress(RapiModule, 'CeRapiUnInit'); @mCeRapiUninit := GetProcAddress(RapiModule, 'CeRapiUninit');
@mCeFindAllFiles := GetProcAddress(RapiModule, 'CeFindAllFiles'); @mCeFindAllFiles := GetProcAddress(RapiModule, 'CeFindAllFiles');
@mRapiFreeBuffer := GetProcAddress(RapiModule, 'RapiFreeBuffer'); @mRapiFreeBuffer := GetProcAddress(RapiModule, 'RapiFreeBuffer');