paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Use cdecl instead of stdcall on non-Windows

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1346 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Loesje_ 2010-10-13 19:00:37 +00:00
parent 1f22a672ad
commit 2ce72c0953
26 changed files with 5092 additions and 4980 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/geckoport/Components/GeckoBrowser.pas
View File

@ -34,6 +34,14 @@
* ***** END LICENSE BLOCK ***** *)
unit GeckoBrowser;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
{$IFDEF LCLCocoa}
{$MODESWITCH ObjectiveC1}
{$ENDIF}
@ -507,7 +515,7 @@ type
procedure SetTitle(const aTitle: PWideChar); override;
function GetSiteWindow(): Pointer; override; {$IFDEF FPC} safecall; {$ENDIF}
// nsIInterfaceRequestor
function NS_GetInterface(const uuid: TGUID; out _result): nsresult; stdcall;
function NS_GetInterface(const uuid: TGUID; out _result): nsresult; extdecl;
function nsIInterfaceRequestor_std19.GetInterface = NS_GetInterface;
// nsIContextMenuListener2
procedure OnShowContextMenu(aContextFlags: PRUint32;
@ -555,12 +563,12 @@ type
FOnNewWindow: TGeckoBrowserNewWindow;
// nsISHistoryListener
function OnHistoryNewEntry(aNewURI: nsIURI): Longword; stdcall;
function OnHistoryGoBack(aBackURI: nsIURI; out aContinue: LongBool): Longword; stdcall;
function OnHistoryGoForward(aForwardURI: nsIURI; out aContinue: LongBool): Longword; stdcall;
function OnHistoryReload(aReloadURI: nsIURI; aReloadFlags: Longword; out aContinue: LongBool): Longword; stdcall;
function OnHistoryGotoIndex(aIndex: Longint; aGotoURI: nsIURI; out aContinue: LongBool): Longword; stdcall;
function OnHistoryPurge(aNumEntries: Longint; out aContinue: LongBool): Longword; stdcall;
function OnHistoryNewEntry(aNewURI: nsIURI): Longword; extdecl;
function OnHistoryGoBack(aBackURI: nsIURI; out aContinue: LongBool): Longword; extdecl;
function OnHistoryGoForward(aForwardURI: nsIURI; out aContinue: LongBool): Longword; extdecl;
function OnHistoryReload(aReloadURI: nsIURI; aReloadFlags: Longword; out aContinue: LongBool): Longword; extdecl;
function OnHistoryGotoIndex(aIndex: Longint; aGotoURI: nsIURI; out aContinue: LongBool): Longword; extdecl;
function OnHistoryPurge(aNumEntries: Longint; out aContinue: LongBool): Longword; extdecl;
function GetHistoryEntry(index: Integer): TGeckoBrowserHisoty;
function GetHistoryPosition: Integer;

10
components/geckoport/Components/GeckoChromeWindow.pas
View File

@ -34,6 +34,14 @@
* ***** END LICENSE BLOCK ***** *)
unit GeckoChromeWindow;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
{$IFDEF LCLCocoa}
{$MODESWITCH ObjectiveC1}
{$ENDIF}
@ -91,7 +99,7 @@ type
procedure OnStatusChange(aWebProgress: nsIWebProgress; aRequest: nsIRequest; aStatus: nsresult; const aMessage: PWideChar); safecall;
procedure OnSecurityChange(aWebProgress: nsIWebProgress; aRequest: nsIRequest; state: PRUint32); safecall;
// nsIInterfaceRequestor
function NS_GetInterface(const uuid: TGUID; out Intf): nsresult; stdcall;
function NS_GetInterface(const uuid: TGUID; out Intf): nsresult; extdecl;
function nsIInterfaceRequestor_std19.GetInterface = NS_GetInterface;
// for nsIWeakReference
procedure QueryReferent(const IID: TGUID; out Obj); safecall;

12
components/geckoport/Components/GeckoDirectoryService.pas
View File

@ -1,5 +1,13 @@
unit GeckoDirectoryService;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
interface
uses
@ -70,9 +78,9 @@ type
FOwner: TCustomDirectoryServiceProvider;
constructor Create(AOwner: TCustomDirectoryServiceProvider);
function GetFile(const prop: PAnsiChar; out persistent: PRBool;
out _retval: nsIFile_std19): nsresult; stdcall;
out _retval: nsIFile_std19): nsresult; extdecl;
function GetFiles(const prop: PAnsiChar;
out _retval: nsISimpleEnumerator_std19): nsresult; stdcall;
out _retval: nsISimpleEnumerator_std19): nsresult; extdecl;
end;
procedure Register;

2
components/geckoport/each-version/nsIInputStream_safe17_type.inc
View File

@ -3,5 +3,5 @@
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIInputStream_safe18_type.inc
View File

@ -3,5 +3,5 @@
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIInputStream_safe19_type.inc
View File

@ -3,5 +3,5 @@
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIInputStream_std17_type.inc
View File

@ -3,5 +3,5 @@
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIInputStream_std18_type.inc
View File

@ -3,5 +3,5 @@
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIInputStream_std19_type.inc
View File

@ -3,5 +3,5 @@
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIOutputStream_safe17_type.inc
View File

@ -3,5 +3,5 @@
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIOutputStream_safe18_type.inc
View File

@ -3,5 +3,5 @@
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIOutputStream_safe19_type.inc
View File

@ -3,5 +3,5 @@
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIOutputStream_std17_type.inc
View File

@ -3,5 +3,5 @@
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIOutputStream_std18_type.inc
View File

@ -3,5 +3,5 @@
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;

2
components/geckoport/each-version/nsIOutputStream_std19_type.inc
View File

@ -3,5 +3,5 @@
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;

18
components/geckoport/each-version/nsXPCOM_safe17.pas
View File

@ -1,5 +1,13 @@
unit nsXPCOM_safe17;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
interface
uses
@ -1017,7 +1025,7 @@ type
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;
nsReadSegmentFun = function (aOutStream: nsIOutputStream_safe17;
@ -1025,7 +1033,7 @@ type
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;
DOMTimeStamp = PRUint64;
@ -3015,9 +3023,9 @@ type
nsIMemory_safe17 = interface(nsISupports_safe17)
['{59e7e77a-38e4-11d4-8cf5-0060b0fc14a3}']
function Alloc(size: size_t): Pointer; stdcall;
function Realloc(ptr: Pointer; newSize: size_t): Pointer; stdcall;
procedure Free(ptr: Pointer); stdcall;
function Alloc(size: size_t): Pointer; extdecl;
function Realloc(ptr: Pointer; newSize: size_t): Pointer; extdecl;
procedure Free(ptr: Pointer); extdecl;
procedure HeapMinimize(immediate: PRBool); safecall;
function IsLowMemory(): PRBool; safecall;
end;

18
components/geckoport/each-version/nsXPCOM_safe18.pas
View File

@ -1,5 +1,13 @@
unit nsXPCOM_safe18;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
interface
uses
@ -1035,7 +1043,7 @@ type
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;
nsReadSegmentFun = function (aOutStream: nsIOutputStream_safe18;
@ -1043,7 +1051,7 @@ type
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;
DOMTimeStamp = PRUint64;
@ -3053,9 +3061,9 @@ type
nsIMemory_safe18 = interface(nsISupports_safe18)
['{59e7e77a-38e4-11d4-8cf5-0060b0fc14a3}']
function Alloc(size: size_t): Pointer; stdcall;
function Realloc(ptr: Pointer; newSize: size_t): Pointer; stdcall;
procedure Free(ptr: Pointer); stdcall;
function Alloc(size: size_t): Pointer; extdecl;
function Realloc(ptr: Pointer; newSize: size_t): Pointer; extdecl;
procedure Free(ptr: Pointer); extdecl;
procedure HeapMinimize(immediate: PRBool); safecall;
function IsLowMemory(): PRBool; safecall;
end;

18
components/geckoport/each-version/nsXPCOM_safe19.pas
View File

@ -1,5 +1,13 @@
unit nsXPCOM_safe19;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
interface
uses
@ -1071,7 +1079,7 @@ type
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;
nsReadSegmentFun = function (aOutStream: nsIOutputStream_safe19;
@ -1079,7 +1087,7 @@ type
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;
DOMTimeStamp = PRUint64;
@ -3161,9 +3169,9 @@ type
nsIMemory_safe19 = interface(nsISupports_safe19)
['{59e7e77a-38e4-11d4-8cf5-0060b0fc14a3}']
function Alloc(size: size_t): Pointer; stdcall;
function Realloc(ptr: Pointer; newSize: size_t): Pointer; stdcall;
procedure Free(ptr: Pointer); stdcall;
function Alloc(size: size_t): Pointer; extdecl;
function Realloc(ptr: Pointer; newSize: size_t): Pointer; extdecl;
procedure Free(ptr: Pointer); extdecl;
procedure HeapMinimize(immediate: PRBool); safecall;
function IsLowMemory(): PRBool; safecall;
end;

3228
components/geckoport/each-version/nsXPCOM_std17.pas
View File

File diff suppressed because it is too large Load Diff

3256
components/geckoport/each-version/nsXPCOM_std18.pas
View File

File diff suppressed because it is too large Load Diff

3390
components/geckoport/each-version/nsXPCOM_std19.pas
View File

File diff suppressed because it is too large Load Diff

12
components/geckoport/nsEnumerators.pas
View File

@ -1,5 +1,13 @@
unit nsEnumerators;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
interface
uses
@ -20,8 +28,8 @@ type
FOwn: Boolean;
FIndex: Integer;
destructor Destroy; override;
function HasMoreElements(out _retval: PRBool): nsresult; stdcall;
function GetNext(out _retval: nsISupports_std19): nsresult; stdcall;
function HasMoreElements(out _retval: PRBool): nsresult; extdecl;
function GetNext(out _retval: nsISupports_std19): nsresult; extdecl;
end;
function NewSimpleEnumeratorFromTInterfaceList(AList: TInterfaceList;

20
components/geckoport/nsErrorUtils.pas
View File

@ -1,5 +1,13 @@
unit nsErrorUtils;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
interface
uses
@ -20,20 +28,20 @@ type
['{e72f94b2-5f85-11d4-9877-00c04fa0cf4a}']
function registerErrorStringBundle(
aErrorModule: PRInt16;
aStringBundleURL: PAnsiChar): nsresult; stdcall;
aStringBundleURL: PAnsiChar): nsresult; extdecl;
function unregisterErrorStringBundle(
aErrorModule: PRInt16): nsresult; stdcall;
aErrorModule: PRInt16): nsresult; extdecl;
function getErrorStringBundle(
aErrorModule: PRInt16;
out aResult: PAnsiChar): nsresult; stdcall;
out aResult: PAnsiChar): nsresult; extdecl;
function registerErrorStringBundleKey(
aError: nsresult;
aStringBundleKey: PAnsiChar): nsresult; stdcall;
aStringBundleKey: PAnsiChar): nsresult; extdecl;
function unregisterErrorStringBundleKey(
aError: nsresult): nsresult; stdcall;
aError: nsresult): nsresult; extdecl;
function getErrorStringBundleKey(
aError: nsresult;
out aResult: PAnsiChar): nsresult; stdcall;
out aResult: PAnsiChar): nsresult; extdecl;
end;
const

16
components/geckoport/nsInit.pas
View File

@ -34,6 +34,14 @@
* ***** END LICENSE BLOCK ***** *)
unit nsInit;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
interface
uses
@ -205,7 +213,7 @@ type
end;
nsIXPTCProxy = interface(nsISupports)
function CallMethod(aMethodIndex: PRUint16; const aInfo: XPTMethodDescriptor; aParams: PXPTCMiniVariantArray): nsresult; stdcall;
function CallMethod(aMethodIndex: PRUint16; const aInfo: XPTMethodDescriptor; aParams: PXPTCMiniVariantArray): nsresult; extdecl;
end;
@ -305,7 +313,7 @@ type
type
nsIDirectoryServiceProvider_stdcall = interface(nsISupports)
['{bbf8cab0-d43a-11d3-8cc2-00609792278c}']
function GetFile(const prop: PAnsiChar; out persistent: PRBool; out AFile: nsIFile): nsresult; stdcall;
function GetFile(const prop: PAnsiChar; out persistent: PRBool; out AFile: nsIFile): nsresult; extdecl;
end;
nsGREDirServiceProvider = class(TInterfacedObject,
@ -314,7 +322,7 @@ type
FPathEnvString: TMaxPathChar;
class function NewInstance: TObject; override;
procedure FreeInstance; override;
function GetFile(const prop: PAnsiChar; out persistent: PRBool; out AFile: nsIFile): nsresult; stdcall;
function GetFile(const prop: PAnsiChar; out persistent: PRBool; out AFile: nsIFile): nsresult; extdecl;
function GetGreDirectory(out AFile: nsILocalFile): nsresult;
end;
@ -330,7 +338,7 @@ type
{$IFNDEF MSWINDOWS}
HINST = TLibHandle;
{$ENDIF}
XPCOMExitRoutine = function : Longword; stdcall;
XPCOMExitRoutine = function : Longword; extdecl;
InitFunc = function(out servMgr: nsIServiceManager; binDir: nsIFile; provider: nsIDirectoryServiceProvider): Longword; cdecl;
ShutdownFunc = function (servMgr: nsIServiceManager): Longword; cdecl;

10
components/geckoport/nsThreadUtils.pas
View File

@ -1,5 +1,13 @@
unit nsThreadUtils;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
interface
uses
@ -91,7 +99,7 @@ type
nsIThreadEventFilter = interface(nsISupports)
['{a0605c0b-17f5-4681-b8cd-a1cd75d42559}']
function acceptEvent(aEvent: nsIRunnable): PRBool; stdcall;
function acceptEvent(aEvent: nsIRunnable): PRBool; extdecl;
end;
nsIThreadManager = interface(nsISupports)

18
components/geckoport/nsXPCOM.pas
View File

@ -1,5 +1,13 @@
unit nsXPCOM;
{$MACRO on}
{$IFDEF Windows}
{$DEFINE extdecl:=stdcall}
{$ELSE Windows}
{$DEFINE extdecl:=cdecl}
{$ENDIF}
interface
uses
@ -1075,7 +1083,7 @@ type
const aFromSegment: Pointer;
aToOffset: PRUint32;
aCount: PRUint32;
out aWriteCount: PRUint32): nsresult; stdcall;
out aWriteCount: PRUint32): nsresult; extdecl;
nsReadSegmentFun = function (aOutStream: nsIOutputStream;
@ -1083,7 +1091,7 @@ type
aToSegment: Pointer;
aFromOffset: PRUint32;
aCount: PRUint32;
out aReadCount: PRUint32): nsresult; stdcall;
out aReadCount: PRUint32): nsresult; extdecl;
DOMTimeStamp = PRUint64;
@ -3165,9 +3173,9 @@ type
nsIMemory = interface(nsISupports)
['{59e7e77a-38e4-11d4-8cf5-0060b0fc14a3}']
function Alloc(size: size_t): Pointer; stdcall;
function Realloc(ptr: Pointer; newSize: size_t): Pointer; stdcall;
procedure Free(ptr: Pointer); stdcall;
function Alloc(size: size_t): Pointer; extdecl;
function Realloc(ptr: Pointer; newSize: size_t): Pointer; extdecl;
procedure Free(ptr: Pointer); extdecl;
procedure HeapMinimize(immediate: PRBool); safecall;
function IsLowMemory(): PRBool; safecall;
end;