From 5e585221b0cc913b11fbc31a1edb9c4370b3e526 Mon Sep 17 00:00:00 2001 From: Loesje_ Date: Thu, 14 Oct 2010 07:46:44 +0000 Subject: [PATCH] * Changed all const TGUID function parameters into constref parameters git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1348 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../geckoport/Components/GeckoBrowser.pas | 4 +- .../Components/GeckoChromeWindow.pas | 8 ++-- .../geckoport/each-version/nsXPCOM_safe17.pas | 48 +++++++++---------- .../geckoport/each-version/nsXPCOM_safe18.pas | 48 +++++++++---------- .../geckoport/each-version/nsXPCOM_safe19.pas | 48 +++++++++---------- .../geckoport/each-version/nsXPCOM_std17.pas | 48 +++++++++---------- .../geckoport/each-version/nsXPCOM_std18.pas | 48 +++++++++---------- .../geckoport/each-version/nsXPCOM_std19.pas | 48 +++++++++---------- components/geckoport/nsInit.pas | 2 +- components/geckoport/nsXPCOM.pas | 48 +++++++++---------- components/geckoport/nsXPCOMGlue.pas | 20 ++++---- 11 files changed, 185 insertions(+), 185 deletions(-) diff --git a/components/geckoport/Components/GeckoBrowser.pas b/components/geckoport/Components/GeckoBrowser.pas index 6b543c6d2..eedc36e26 100755 --- a/components/geckoport/Components/GeckoBrowser.pas +++ b/components/geckoport/Components/GeckoBrowser.pas @@ -515,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; extdecl; + function NS_GetInterface(constref uuid: TGUID; out _result): nsresult; extdecl; function nsIInterfaceRequestor_std19.GetInterface = NS_GetInterface; // nsIContextMenuListener2 procedure OnShowContextMenu(aContextFlags: PRUint32; @@ -1703,7 +1703,7 @@ begin Listener := TGeckoBrowserListener.Create(Self); end; -function TGeckoBrowserChrome.NS_GetInterface(const uuid: TGUID; out _result): nsresult; +function TGeckoBrowserChrome.NS_GetInterface(constref uuid: TGUID; out _result): nsresult; begin if IsEqualGUID(uuid, nsIDOMWindow) then begin diff --git a/components/geckoport/Components/GeckoChromeWindow.pas b/components/geckoport/Components/GeckoChromeWindow.pas index 12fc76fef..c40af8ae5 100755 --- a/components/geckoport/Components/GeckoChromeWindow.pas +++ b/components/geckoport/Components/GeckoChromeWindow.pas @@ -99,10 +99,10 @@ 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; extdecl; + function NS_GetInterface(constref uuid: TGUID; out Intf): nsresult; extdecl; function nsIInterfaceRequestor_std19.GetInterface = NS_GetInterface; // for nsIWeakReference - procedure QueryReferent(const IID: TGUID; out Obj); safecall; + procedure QueryReferent(constref IID: TGUID; out Obj); safecall; // for nsISupportsWeakReference function GetWeakReference(): nsIWeakReference; safecall; @@ -444,7 +444,7 @@ begin UseParameter(state); end; -function TGeckoChromeForm.NS_GetInterface(const uuid: TGUID; out Intf): nsresult; +function TGeckoChromeForm.NS_GetInterface(constref uuid: TGUID; out Intf): nsresult; var domwin: nsIDOMWindow; begin @@ -464,7 +464,7 @@ begin end; end; -procedure TGeckoChromeForm.QueryReferent(const IID: TGUID; out Obj); +procedure TGeckoChromeForm.QueryReferent(constref IID: TGUID; out Obj); var rv: nsresult; begin diff --git a/components/geckoport/each-version/nsXPCOM_safe17.pas b/components/geckoport/each-version/nsXPCOM_safe17.pas index 431b79d9e..6cee4c1a3 100644 --- a/components/geckoport/each-version/nsXPCOM_safe17.pas +++ b/components/geckoport/each-version/nsXPCOM_safe17.pas @@ -1059,7 +1059,7 @@ type ['{114744d9-c369-456e-b55a-52fe52880d2d}'] function GetLength(): PRUint32; safecall; property Length: PRUint32 read GetLength; - procedure QueryElementAt(index: PRUint32; const uuid: TGUID; out _result); safecall; + procedure QueryElementAt(index: PRUint32; constref uuid: TGUID; out _result); safecall; function IndexOf(startIndex: PRUint32; element: nsISupports_safe17): PRUint32; safecall; function Enumerate(): nsISimpleEnumerator_safe17; safecall; end; @@ -1225,25 +1225,25 @@ type nsIComponentManager_safe17 = interface(nsISupports_safe17) ['{a88e5a60-205a-4bb1-94e1-2628daf51eae}'] - procedure GetClassObject(const aClass: TGUID; const aIID: TGUID; out _result); safecall; - procedure GetClassObjectByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result); safecall; - procedure CreateInstance(const aClass: TGUID; aDelegate: nsISupports_safe17; const aIID: TGUID; out _result); safecall; - procedure CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_safe17; const aIID: TGUID; out _result); safecall; + procedure GetClassObject(constref aClass: TGUID; constref aIID: TGUID; out _result); safecall; + procedure GetClassObjectByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result); safecall; + procedure CreateInstance(constref aClass: TGUID; aDelegate: nsISupports_safe17; constref aIID: TGUID; out _result); safecall; + procedure CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_safe17; constref aIID: TGUID; out _result); safecall; end; nsIComponentRegistrar_safe17 = interface(nsISupports_safe17) ['{2417cbfe-65ad-48a6-b4b6-eb84db174392}'] procedure AutoRegister(aSpec: nsIFile_safe17); safecall; procedure AutoUnregister(aSpec: nsIFile_safe17); safecall; - procedure RegisterFactory(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_safe17); safecall; - procedure UnregisterFactory(const aClass: TGUID; aFactory: nsIFactory_safe17); safecall; - procedure RegisterFactoryLocation(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_safe17; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; - procedure UnregisterFactoryLocation(const aClass: TGUID; aFile: nsIFile_safe17); safecall; - function IsCIDRegistered(const aClass: TGUID): PRBool; safecall; + procedure RegisterFactory(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_safe17); safecall; + procedure UnregisterFactory(constref aClass: TGUID; aFactory: nsIFactory_safe17); safecall; + procedure RegisterFactoryLocation(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_safe17; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; + procedure UnregisterFactoryLocation(constref aClass: TGUID; aFile: nsIFile_safe17); safecall; + function IsCIDRegistered(constref aClass: TGUID): PRBool; safecall; function IsContractIDRegistered(const aContractID: PAnsiChar): PRBool; safecall; function EnumerateCIDs(): nsISimpleEnumerator_safe17; safecall; function EnumerateContractIDs(): nsISimpleEnumerator_safe17; safecall; - function CIDToContractID(const aClass: TGUID): PAnsiChar; safecall; + function CIDToContractID(constref aClass: TGUID): PAnsiChar; safecall; function ContractIDToCID(const aContractID: PAnsiChar): PGUID; safecall; end; @@ -2837,7 +2837,7 @@ type nsIFactory_safe17 = interface(nsISupports_safe17) ['{00000001-0000-0000-c000-000000000046}'] - procedure CreateInstance(aOuter: nsISupports_safe17; const iid: TGUID; out _result); safecall; + procedure CreateInstance(aOuter: nsISupports_safe17; constref iid: TGUID; out _result); safecall; procedure LockFactory(lock: PRBool); safecall; end; @@ -2961,7 +2961,7 @@ type nsIInterfaceRequestor_safe17 = interface(nsISupports_safe17) ['{033a1470-8b2a-11d3-af88-00a024ffc08c}'] - procedure GetInterface(const uuid: TGUID; out _result); safecall; + procedure GetInterface(constref uuid: TGUID; out _result); safecall; end; nsIIOService_safe17 = interface(nsISupports_safe17) @@ -3032,7 +3032,7 @@ type nsIModule_safe17 = interface(nsISupports_safe17) ['{7392d032-5371-11d3-994e-00805fd26fee}'] - procedure GetClassObject(aCompMgr: nsIComponentManager_safe17; const aClass: TGUID; const aIID: TGUID; out aResult); safecall; + procedure GetClassObject(aCompMgr: nsIComponentManager_safe17; constref aClass: TGUID; constref aIID: TGUID; out aResult); safecall; procedure RegisterSelf(aCompMgr: nsIComponentManager_safe17; aLocation: nsIFile_safe17; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; procedure UnregisterSelf(aCompMgr: nsIComponentManager_safe17; aLocation: nsIFile_safe17; const aLoaderStr: PAnsiChar); safecall; function CanUnload(aCompMgr: nsIComponentManager_safe17): PRBool; safecall; @@ -3079,8 +3079,8 @@ type procedure SetCharPref(const aPrefName: PAnsiChar; const aValue: PAnsiChar); safecall; function GetIntPref(const aPrefName: PAnsiChar): PRInt32; safecall; procedure SetIntPref(const aPrefName: PAnsiChar; aValue: PRInt32); safecall; - procedure GetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; out aValue); safecall; - procedure SetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; aValue: nsISupports_safe17); safecall; + procedure GetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; out aValue); safecall; + procedure SetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; aValue: nsISupports_safe17); safecall; procedure ClearUserPref(const aPrefName: PAnsiChar); safecall; procedure LockPref(const aPrefName: PAnsiChar); safecall; function PrefHasUserValue(const aPrefName: PAnsiChar): PRBool; safecall; @@ -3311,7 +3311,7 @@ type nsIProperties_safe17 = interface(nsISupports_safe17) ['{78650582-4e93-4b60-8e85-26ebd3eb14ca}'] - procedure Get(const prop: PAnsiChar; const iid: TGUID; out _result); safecall; + procedure Get(const prop: PAnsiChar; constref iid: TGUID; out _result); safecall; procedure _Set(const prop: PAnsiChar; value: nsISupports_safe17); safecall; function Has(const prop: PAnsiChar): PRBool; safecall; procedure Undefine(const prop: PAnsiChar); safecall; @@ -3385,10 +3385,10 @@ type nsIServiceManager_safe17 = interface(nsISupports_safe17) ['{8bb35ed9-e332-462d-9155-4a002ab5c958}'] - procedure GetService(const aClass: TGUID; const aIID: TGUID; out _result); safecall; - procedure GetServiceByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result); safecall; - function IsServiceInstantiated(const aClass: TGUID; const aIID: TGUID): PRBool; safecall; - function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; const aIID: TGUID): PRBool; safecall; + procedure GetService(constref aClass: TGUID; constref aIID: TGUID; out _result); safecall; + procedure GetServiceByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result); safecall; + function IsServiceInstantiated(constref aClass: TGUID; constref aIID: TGUID): PRBool; safecall; + function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; constref aIID: TGUID): PRBool; safecall; end; nsISHistory_safe17 = interface(nsISupports_safe17) @@ -3615,7 +3615,7 @@ type nsIWeakReference_safe17 = interface(nsISupports_safe17) ['{9188bc85-f92e-11d2-81ef-0060083a0bcf}'] - procedure QueryReferent(const uuid: TGUID; out _result); safecall; + procedure QueryReferent(constref uuid: TGUID; out _result); safecall; end; nsISupportsWeakReference_safe17 = interface(nsISupports_safe17) @@ -3625,8 +3625,8 @@ type nsIWebBrowser_safe17 = interface(nsISupports_safe17) ['{69e5df00-7b8b-11d3-af61-00a024ffc08c}'] - procedure AddWebBrowserListener(aListener: nsIWeakReference_safe17; const aIID: TGUID); safecall; - procedure RemoveWebBrowserListener(aListener: nsIWeakReference_safe17; const aIID: TGUID); safecall; + procedure AddWebBrowserListener(aListener: nsIWeakReference_safe17; constref aIID: TGUID); safecall; + procedure RemoveWebBrowserListener(aListener: nsIWeakReference_safe17; constref aIID: TGUID); safecall; function GetContainerWindow(): nsIWebBrowserChrome_safe17; safecall; procedure SetContainerWindow(aContainerWindow: nsIWebBrowserChrome_safe17); safecall; property ContainerWindow: nsIWebBrowserChrome_safe17 read GetContainerWindow write SetContainerWindow; diff --git a/components/geckoport/each-version/nsXPCOM_safe18.pas b/components/geckoport/each-version/nsXPCOM_safe18.pas index 8cfdf5bec..6388ab3cb 100644 --- a/components/geckoport/each-version/nsXPCOM_safe18.pas +++ b/components/geckoport/each-version/nsXPCOM_safe18.pas @@ -1077,7 +1077,7 @@ type ['{114744d9-c369-456e-b55a-52fe52880d2d}'] function GetLength(): PRUint32; safecall; property Length: PRUint32 read GetLength; - procedure QueryElementAt(index: PRUint32; const uuid: TGUID; out _result); safecall; + procedure QueryElementAt(index: PRUint32; constref uuid: TGUID; out _result); safecall; function IndexOf(startIndex: PRUint32; element: nsISupports_safe18): PRUint32; safecall; function Enumerate(): nsISimpleEnumerator_safe18; safecall; end; @@ -1244,25 +1244,25 @@ type nsIComponentManager_safe18 = interface(nsISupports_safe18) ['{a88e5a60-205a-4bb1-94e1-2628daf51eae}'] - procedure GetClassObject(const aClass: TGUID; const aIID: TGUID; out _result); safecall; - procedure GetClassObjectByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result); safecall; - procedure CreateInstance(const aClass: TGUID; aDelegate: nsISupports_safe18; const aIID: TGUID; out _result); safecall; - procedure CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_safe18; const aIID: TGUID; out _result); safecall; + procedure GetClassObject(constref aClass: TGUID; constref aIID: TGUID; out _result); safecall; + procedure GetClassObjectByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result); safecall; + procedure CreateInstance(constref aClass: TGUID; aDelegate: nsISupports_safe18; constref aIID: TGUID; out _result); safecall; + procedure CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_safe18; constref aIID: TGUID; out _result); safecall; end; nsIComponentRegistrar_safe18 = interface(nsISupports_safe18) ['{2417cbfe-65ad-48a6-b4b6-eb84db174392}'] procedure AutoRegister(aSpec: nsIFile_safe18); safecall; procedure AutoUnregister(aSpec: nsIFile_safe18); safecall; - procedure RegisterFactory(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_safe18); safecall; - procedure UnregisterFactory(const aClass: TGUID; aFactory: nsIFactory_safe18); safecall; - procedure RegisterFactoryLocation(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_safe18; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; - procedure UnregisterFactoryLocation(const aClass: TGUID; aFile: nsIFile_safe18); safecall; - function IsCIDRegistered(const aClass: TGUID): PRBool; safecall; + procedure RegisterFactory(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_safe18); safecall; + procedure UnregisterFactory(constref aClass: TGUID; aFactory: nsIFactory_safe18); safecall; + procedure RegisterFactoryLocation(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_safe18; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; + procedure UnregisterFactoryLocation(constref aClass: TGUID; aFile: nsIFile_safe18); safecall; + function IsCIDRegistered(constref aClass: TGUID): PRBool; safecall; function IsContractIDRegistered(const aContractID: PAnsiChar): PRBool; safecall; function EnumerateCIDs(): nsISimpleEnumerator_safe18; safecall; function EnumerateContractIDs(): nsISimpleEnumerator_safe18; safecall; - function CIDToContractID(const aClass: TGUID): PAnsiChar; safecall; + function CIDToContractID(constref aClass: TGUID): PAnsiChar; safecall; function ContractIDToCID(const aContractID: PAnsiChar): PGUID; safecall; end; @@ -2875,7 +2875,7 @@ type nsIFactory_safe18 = interface(nsISupports_safe18) ['{00000001-0000-0000-c000-000000000046}'] - procedure CreateInstance(aOuter: nsISupports_safe18; const iid: TGUID; out _result); safecall; + procedure CreateInstance(aOuter: nsISupports_safe18; constref iid: TGUID; out _result); safecall; procedure LockFactory(lock: PRBool); safecall; end; @@ -2999,7 +2999,7 @@ type nsIInterfaceRequestor_safe18 = interface(nsISupports_safe18) ['{033a1470-8b2a-11d3-af88-00a024ffc08c}'] - procedure GetInterface(const uuid: TGUID; out _result); safecall; + procedure GetInterface(constref uuid: TGUID; out _result); safecall; end; nsIIOService_safe18 = interface(nsISupports_safe18) @@ -3070,7 +3070,7 @@ type nsIModule_safe18 = interface(nsISupports_safe18) ['{7392d032-5371-11d3-994e-00805fd26fee}'] - procedure GetClassObject(aCompMgr: nsIComponentManager_safe18; const aClass: TGUID; const aIID: TGUID; out aResult); safecall; + procedure GetClassObject(aCompMgr: nsIComponentManager_safe18; constref aClass: TGUID; constref aIID: TGUID; out aResult); safecall; procedure RegisterSelf(aCompMgr: nsIComponentManager_safe18; aLocation: nsIFile_safe18; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; procedure UnregisterSelf(aCompMgr: nsIComponentManager_safe18; aLocation: nsIFile_safe18; const aLoaderStr: PAnsiChar); safecall; function CanUnload(aCompMgr: nsIComponentManager_safe18): PRBool; safecall; @@ -3110,8 +3110,8 @@ type procedure SetCharPref(const aPrefName: PAnsiChar; const aValue: PAnsiChar); safecall; function GetIntPref(const aPrefName: PAnsiChar): PRInt32; safecall; procedure SetIntPref(const aPrefName: PAnsiChar; aValue: PRInt32); safecall; - procedure GetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; out aValue); safecall; - procedure SetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; aValue: nsISupports_safe18); safecall; + procedure GetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; out aValue); safecall; + procedure SetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; aValue: nsISupports_safe18); safecall; procedure ClearUserPref(const aPrefName: PAnsiChar); safecall; procedure LockPref(const aPrefName: PAnsiChar); safecall; function PrefHasUserValue(const aPrefName: PAnsiChar): PRBool; safecall; @@ -3357,7 +3357,7 @@ type nsIProperties_safe18 = interface(nsISupports_safe18) ['{78650582-4e93-4b60-8e85-26ebd3eb14ca}'] - procedure Get(const prop: PAnsiChar; const iid: TGUID; out _result); safecall; + procedure Get(const prop: PAnsiChar; constref iid: TGUID; out _result); safecall; procedure _Set(const prop: PAnsiChar; value: nsISupports_safe18); safecall; function Has(const prop: PAnsiChar): PRBool; safecall; procedure Undefine(const prop: PAnsiChar); safecall; @@ -3431,10 +3431,10 @@ type nsIServiceManager_safe18 = interface(nsISupports_safe18) ['{8bb35ed9-e332-462d-9155-4a002ab5c958}'] - procedure GetService(const aClass: TGUID; const aIID: TGUID; out _result); safecall; - procedure GetServiceByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result); safecall; - function IsServiceInstantiated(const aClass: TGUID; const aIID: TGUID): PRBool; safecall; - function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; const aIID: TGUID): PRBool; safecall; + procedure GetService(constref aClass: TGUID; constref aIID: TGUID; out _result); safecall; + procedure GetServiceByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result); safecall; + function IsServiceInstantiated(constref aClass: TGUID; constref aIID: TGUID): PRBool; safecall; + function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; constref aIID: TGUID): PRBool; safecall; end; nsISHistory_safe18 = interface(nsISupports_safe18) @@ -3661,7 +3661,7 @@ type nsIWeakReference_safe18 = interface(nsISupports_safe18) ['{9188bc85-f92e-11d2-81ef-0060083a0bcf}'] - procedure QueryReferent(const uuid: TGUID; out _result); safecall; + procedure QueryReferent(constref uuid: TGUID; out _result); safecall; end; nsISupportsWeakReference_safe18 = interface(nsISupports_safe18) @@ -3671,8 +3671,8 @@ type nsIWebBrowser_safe18 = interface(nsISupports_safe18) ['{69e5df00-7b8b-11d3-af61-00a024ffc08c}'] - procedure AddWebBrowserListener(aListener: nsIWeakReference_safe18; const aIID: TGUID); safecall; - procedure RemoveWebBrowserListener(aListener: nsIWeakReference_safe18; const aIID: TGUID); safecall; + procedure AddWebBrowserListener(aListener: nsIWeakReference_safe18; constref aIID: TGUID); safecall; + procedure RemoveWebBrowserListener(aListener: nsIWeakReference_safe18; constref aIID: TGUID); safecall; function GetContainerWindow(): nsIWebBrowserChrome_safe18; safecall; procedure SetContainerWindow(aContainerWindow: nsIWebBrowserChrome_safe18); safecall; property ContainerWindow: nsIWebBrowserChrome_safe18 read GetContainerWindow write SetContainerWindow; diff --git a/components/geckoport/each-version/nsXPCOM_safe19.pas b/components/geckoport/each-version/nsXPCOM_safe19.pas index 4173e5cbd..a9c94e999 100644 --- a/components/geckoport/each-version/nsXPCOM_safe19.pas +++ b/components/geckoport/each-version/nsXPCOM_safe19.pas @@ -1113,7 +1113,7 @@ type ['{114744d9-c369-456e-b55a-52fe52880d2d}'] function GetLength(): PRUint32; safecall; property Length: PRUint32 read GetLength; - procedure QueryElementAt(index: PRUint32; const uuid: TGUID; out _result); safecall; + procedure QueryElementAt(index: PRUint32; constref uuid: TGUID; out _result); safecall; function IndexOf(startIndex: PRUint32; element: nsISupports_safe19): PRUint32; safecall; function Enumerate(): nsISimpleEnumerator_safe19; safecall; end; @@ -1259,25 +1259,25 @@ type nsIComponentManager_safe19 = interface(nsISupports_safe19) ['{a88e5a60-205a-4bb1-94e1-2628daf51eae}'] - procedure GetClassObject(const aClass: TGUID; const aIID: TGUID; out _result); safecall; - procedure GetClassObjectByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result); safecall; - procedure CreateInstance(const aClass: TGUID; aDelegate: nsISupports_safe19; const aIID: TGUID; out _result); safecall; - procedure CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_safe19; const aIID: TGUID; out _result); safecall; + procedure GetClassObject(constref aClass: TGUID; constref aIID: TGUID; out _result); safecall; + procedure GetClassObjectByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result); safecall; + procedure CreateInstance(constref aClass: TGUID; aDelegate: nsISupports_safe19; constref aIID: TGUID; out _result); safecall; + procedure CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_safe19; constref aIID: TGUID; out _result); safecall; end; nsIComponentRegistrar_safe19 = interface(nsISupports_safe19) ['{2417cbfe-65ad-48a6-b4b6-eb84db174392}'] procedure AutoRegister(aSpec: nsIFile_safe19); safecall; procedure AutoUnregister(aSpec: nsIFile_safe19); safecall; - procedure RegisterFactory(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_safe19); safecall; - procedure UnregisterFactory(const aClass: TGUID; aFactory: nsIFactory_safe19); safecall; - procedure RegisterFactoryLocation(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_safe19; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; - procedure UnregisterFactoryLocation(const aClass: TGUID; aFile: nsIFile_safe19); safecall; - function IsCIDRegistered(const aClass: TGUID): PRBool; safecall; + procedure RegisterFactory(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_safe19); safecall; + procedure UnregisterFactory(constref aClass: TGUID; aFactory: nsIFactory_safe19); safecall; + procedure RegisterFactoryLocation(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_safe19; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; + procedure UnregisterFactoryLocation(constref aClass: TGUID; aFile: nsIFile_safe19); safecall; + function IsCIDRegistered(constref aClass: TGUID): PRBool; safecall; function IsContractIDRegistered(const aContractID: PAnsiChar): PRBool; safecall; function EnumerateCIDs(): nsISimpleEnumerator_safe19; safecall; function EnumerateContractIDs(): nsISimpleEnumerator_safe19; safecall; - function CIDToContractID(const aClass: TGUID): PAnsiChar; safecall; + function CIDToContractID(constref aClass: TGUID): PAnsiChar; safecall; function ContractIDToCID(const aContractID: PAnsiChar): PGUID; safecall; end; @@ -2968,7 +2968,7 @@ type nsIFactory_safe19 = interface(nsISupports_safe19) ['{00000001-0000-0000-c000-000000000046}'] - procedure CreateInstance(aOuter: nsISupports_safe19; const iid: TGUID; out _result); safecall; + procedure CreateInstance(aOuter: nsISupports_safe19; constref iid: TGUID; out _result); safecall; procedure LockFactory(lock: PRBool); safecall; end; @@ -3099,7 +3099,7 @@ type nsIInterfaceRequestor_safe19 = interface(nsISupports_safe19) ['{033a1470-8b2a-11d3-af88-00a024ffc08c}'] - procedure GetInterface(const uuid: TGUID; out _result); safecall; + procedure GetInterface(constref uuid: TGUID; out _result); safecall; end; nsIIOService_safe19 = interface(nsISupports_safe19) @@ -3178,7 +3178,7 @@ type nsIModule_safe19 = interface(nsISupports_safe19) ['{7392d032-5371-11d3-994e-00805fd26fee}'] - procedure GetClassObject(aCompMgr: nsIComponentManager_safe19; const aClass: TGUID; const aIID: TGUID; out aResult); safecall; + procedure GetClassObject(aCompMgr: nsIComponentManager_safe19; constref aClass: TGUID; constref aIID: TGUID; out aResult); safecall; procedure RegisterSelf(aCompMgr: nsIComponentManager_safe19; aLocation: nsIFile_safe19; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; procedure UnregisterSelf(aCompMgr: nsIComponentManager_safe19; aLocation: nsIFile_safe19; const aLoaderStr: PAnsiChar); safecall; function CanUnload(aCompMgr: nsIComponentManager_safe19): PRBool; safecall; @@ -3227,8 +3227,8 @@ type procedure SetCharPref(const aPrefName: PAnsiChar; const aValue: PAnsiChar); safecall; function GetIntPref(const aPrefName: PAnsiChar): PRInt32; safecall; procedure SetIntPref(const aPrefName: PAnsiChar; aValue: PRInt32); safecall; - procedure GetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; out aValue); safecall; - procedure SetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; aValue: nsISupports_safe19); safecall; + procedure GetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; out aValue); safecall; + procedure SetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; aValue: nsISupports_safe19); safecall; procedure ClearUserPref(const aPrefName: PAnsiChar); safecall; procedure LockPref(const aPrefName: PAnsiChar); safecall; function PrefHasUserValue(const aPrefName: PAnsiChar): PRBool; safecall; @@ -3507,7 +3507,7 @@ type nsIProperties_safe19 = interface(nsISupports_safe19) ['{78650582-4e93-4b60-8e85-26ebd3eb14ca}'] - procedure Get(const prop: PAnsiChar; const iid: TGUID; out _result); safecall; + procedure Get(const prop: PAnsiChar; constref iid: TGUID; out _result); safecall; procedure _Set(const prop: PAnsiChar; value: nsISupports_safe19); safecall; function Has(const prop: PAnsiChar): PRBool; safecall; procedure Undefine(const prop: PAnsiChar); safecall; @@ -3581,10 +3581,10 @@ type nsIServiceManager_safe19 = interface(nsISupports_safe19) ['{8bb35ed9-e332-462d-9155-4a002ab5c958}'] - procedure GetService(const aClass: TGUID; const aIID: TGUID; out _result); safecall; - procedure GetServiceByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result); safecall; - function IsServiceInstantiated(const aClass: TGUID; const aIID: TGUID): PRBool; safecall; - function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; const aIID: TGUID): PRBool; safecall; + procedure GetService(constref aClass: TGUID; constref aIID: TGUID; out _result); safecall; + procedure GetServiceByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result); safecall; + function IsServiceInstantiated(constref aClass: TGUID; constref aIID: TGUID): PRBool; safecall; + function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; constref aIID: TGUID): PRBool; safecall; end; nsISHistory_safe19 = interface(nsISupports_safe19) @@ -3813,7 +3813,7 @@ type nsIWeakReference_safe19 = interface(nsISupports_safe19) ['{9188bc85-f92e-11d2-81ef-0060083a0bcf}'] - procedure QueryReferent(const uuid: TGUID; out _result); safecall; + procedure QueryReferent(constref uuid: TGUID; out _result); safecall; end; nsISupportsWeakReference_safe19 = interface(nsISupports_safe19) @@ -3823,8 +3823,8 @@ type nsIWebBrowser_safe19 = interface(nsISupports_safe19) ['{69e5df00-7b8b-11d3-af61-00a024ffc08c}'] - procedure AddWebBrowserListener(aListener: nsIWeakReference_safe19; const aIID: TGUID); safecall; - procedure RemoveWebBrowserListener(aListener: nsIWeakReference_safe19; const aIID: TGUID); safecall; + procedure AddWebBrowserListener(aListener: nsIWeakReference_safe19; constref aIID: TGUID); safecall; + procedure RemoveWebBrowserListener(aListener: nsIWeakReference_safe19; constref aIID: TGUID); safecall; function GetContainerWindow(): nsIWebBrowserChrome_safe19; safecall; procedure SetContainerWindow(aContainerWindow: nsIWebBrowserChrome_safe19); safecall; property ContainerWindow: nsIWebBrowserChrome_safe19 read GetContainerWindow write SetContainerWindow; diff --git a/components/geckoport/each-version/nsXPCOM_std17.pas b/components/geckoport/each-version/nsXPCOM_std17.pas index ef78b01b4..e816ff928 100644 --- a/components/geckoport/each-version/nsXPCOM_std17.pas +++ b/components/geckoport/each-version/nsXPCOM_std17.pas @@ -1058,7 +1058,7 @@ type nsIArray_std17 = interface(nsISupports_std17) ['{114744d9-c369-456e-b55a-52fe52880d2d}'] function GetLength(out aLength: PRUint32): Longword; extdecl; - function QueryElementAt(index: PRUint32; const uuid: TGUID; out _result): nsresult; extdecl; + function QueryElementAt(index: PRUint32; constref uuid: TGUID; out _result): nsresult; extdecl; function IndexOf(startIndex: PRUint32; element: nsISupports_std17; out _retval: PRUint32): nsresult; extdecl; function Enumerate(out _retval: nsISimpleEnumerator_std17): nsresult; extdecl; end; @@ -1204,25 +1204,25 @@ type nsIComponentManager_std17 = interface(nsISupports_std17) ['{a88e5a60-205a-4bb1-94e1-2628daf51eae}'] - function GetClassObject(const aClass: TGUID; const aIID: TGUID; out _result): nsresult; extdecl; - function GetClassObjectByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result): nsresult; extdecl; - function CreateInstance(const aClass: TGUID; aDelegate: nsISupports_std17; const aIID: TGUID; out _result): nsresult; extdecl; - function CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_std17; const aIID: TGUID; out _result): nsresult; extdecl; + function GetClassObject(constref aClass: TGUID; constref aIID: TGUID; out _result): nsresult; extdecl; + function GetClassObjectByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result): nsresult; extdecl; + function CreateInstance(constref aClass: TGUID; aDelegate: nsISupports_std17; constref aIID: TGUID; out _result): nsresult; extdecl; + function CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_std17; constref aIID: TGUID; out _result): nsresult; extdecl; end; nsIComponentRegistrar_std17 = interface(nsISupports_std17) ['{2417cbfe-65ad-48a6-b4b6-eb84db174392}'] function AutoRegister(aSpec: nsIFile_std17): nsresult; extdecl; function AutoUnregister(aSpec: nsIFile_std17): nsresult; extdecl; - function RegisterFactory(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_std17): nsresult; extdecl; - function UnregisterFactory(const aClass: TGUID; aFactory: nsIFactory_std17): nsresult; extdecl; - function RegisterFactoryLocation(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_std17; const aLoaderStr: PAnsiChar; const aType: PAnsiChar): nsresult; extdecl; - function UnregisterFactoryLocation(const aClass: TGUID; aFile: nsIFile_std17): nsresult; extdecl; - function IsCIDRegistered(const aClass: TGUID; out _retval: PRBool): nsresult; extdecl; + function RegisterFactory(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_std17): nsresult; extdecl; + function UnregisterFactory(constref aClass: TGUID; aFactory: nsIFactory_std17): nsresult; extdecl; + function RegisterFactoryLocation(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_std17; const aLoaderStr: PAnsiChar; const aType: PAnsiChar): nsresult; extdecl; + function UnregisterFactoryLocation(constref aClass: TGUID; aFile: nsIFile_std17): nsresult; extdecl; + function IsCIDRegistered(constref aClass: TGUID; out _retval: PRBool): nsresult; extdecl; function IsContractIDRegistered(const aContractID: PAnsiChar; out _retval: PRBool): nsresult; extdecl; function EnumerateCIDs(out _retval: nsISimpleEnumerator_std17): nsresult; extdecl; function EnumerateContractIDs(out _retval: nsISimpleEnumerator_std17): nsresult; extdecl; - function CIDToContractID(const aClass: TGUID; out _retval: PAnsiChar): nsresult; extdecl; + function CIDToContractID(constref aClass: TGUID; out _retval: PAnsiChar): nsresult; extdecl; function ContractIDToCID(const aContractID: PAnsiChar; out _retval: PGUID): nsresult; extdecl; end; @@ -2623,7 +2623,7 @@ type nsIFactory_std17 = interface(nsISupports_std17) ['{00000001-0000-0000-c000-000000000046}'] - function CreateInstance(aOuter: nsISupports_std17; const iid: TGUID; out _result): nsresult; extdecl; + function CreateInstance(aOuter: nsISupports_std17; constref iid: TGUID; out _result): nsresult; extdecl; function LockFactory(lock: PRBool): nsresult; extdecl; end; @@ -2737,7 +2737,7 @@ type nsIInterfaceRequestor_std17 = interface(nsISupports_std17) ['{033a1470-8b2a-11d3-af88-00a024ffc08c}'] - function GetInterface(const uuid: TGUID; out _result): nsresult; extdecl; + function GetInterface(constref uuid: TGUID; out _result): nsresult; extdecl; end; nsIIOService_std17 = interface(nsISupports_std17) @@ -2800,7 +2800,7 @@ type nsIModule_std17 = interface(nsISupports_std17) ['{7392d032-5371-11d3-994e-00805fd26fee}'] - function GetClassObject(aCompMgr: nsIComponentManager_std17; const aClass: TGUID; const aIID: TGUID; out aResult): nsresult; extdecl; + function GetClassObject(aCompMgr: nsIComponentManager_std17; constref aClass: TGUID; constref aIID: TGUID; out aResult): nsresult; extdecl; function RegisterSelf(aCompMgr: nsIComponentManager_std17; aLocation: nsIFile_std17; const aLoaderStr: PAnsiChar; const aType: PAnsiChar): nsresult; extdecl; function UnregisterSelf(aCompMgr: nsIComponentManager_std17; aLocation: nsIFile_std17; const aLoaderStr: PAnsiChar): nsresult; extdecl; function CanUnload(aCompMgr: nsIComponentManager_std17; out _retval: PRBool): nsresult; extdecl; @@ -2846,8 +2846,8 @@ type function SetCharPref(const aPrefName: PAnsiChar; const aValue: PAnsiChar): nsresult; extdecl; function GetIntPref(const aPrefName: PAnsiChar; out _retval: PRInt32): nsresult; extdecl; function SetIntPref(const aPrefName: PAnsiChar; aValue: PRInt32): nsresult; extdecl; - function GetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; out aValue): nsresult; extdecl; - function SetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; aValue: nsISupports_std17): nsresult; extdecl; + function GetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; out aValue): nsresult; extdecl; + function SetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; aValue: nsISupports_std17): nsresult; extdecl; function ClearUserPref(const aPrefName: PAnsiChar): nsresult; extdecl; function LockPref(const aPrefName: PAnsiChar): nsresult; extdecl; function PrefHasUserValue(const aPrefName: PAnsiChar; out _retval: PRBool): nsresult; extdecl; @@ -3030,7 +3030,7 @@ type nsIProperties_std17 = interface(nsISupports_std17) ['{78650582-4e93-4b60-8e85-26ebd3eb14ca}'] - function Get(const prop: PAnsiChar; const iid: TGUID; out _result): nsresult; extdecl; + function Get(const prop: PAnsiChar; constref iid: TGUID; out _result): nsresult; extdecl; function _Set(const prop: PAnsiChar; value: nsISupports_std17): nsresult; extdecl; function Has(const prop: PAnsiChar; out _retval: PRBool): nsresult; extdecl; function Undefine(const prop: PAnsiChar): nsresult; extdecl; @@ -3096,10 +3096,10 @@ type nsIServiceManager_std17 = interface(nsISupports_std17) ['{8bb35ed9-e332-462d-9155-4a002ab5c958}'] - function GetService(const aClass: TGUID; const aIID: TGUID; out _result): nsresult; extdecl; - function GetServiceByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result): nsresult; extdecl; - function IsServiceInstantiated(const aClass: TGUID; const aIID: TGUID; out _retval: PRBool): nsresult; extdecl; - function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _retval: PRBool): nsresult; extdecl; + function GetService(constref aClass: TGUID; constref aIID: TGUID; out _result): nsresult; extdecl; + function GetServiceByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result): nsresult; extdecl; + function IsServiceInstantiated(constref aClass: TGUID; constref aIID: TGUID; out _retval: PRBool): nsresult; extdecl; + function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _retval: PRBool): nsresult; extdecl; end; nsISHistory_std17 = interface(nsISupports_std17) @@ -3302,7 +3302,7 @@ type nsIWeakReference_std17 = interface(nsISupports_std17) ['{9188bc85-f92e-11d2-81ef-0060083a0bcf}'] - function QueryReferent(const uuid: TGUID; out _result): nsresult; extdecl; + function QueryReferent(constref uuid: TGUID; out _result): nsresult; extdecl; end; nsISupportsWeakReference_std17 = interface(nsISupports_std17) @@ -3312,8 +3312,8 @@ type nsIWebBrowser_std17 = interface(nsISupports_std17) ['{69e5df00-7b8b-11d3-af61-00a024ffc08c}'] - function AddWebBrowserListener(aListener: nsIWeakReference_std17; const aIID: TGUID): nsresult; extdecl; - function RemoveWebBrowserListener(aListener: nsIWeakReference_std17; const aIID: TGUID): nsresult; extdecl; + function AddWebBrowserListener(aListener: nsIWeakReference_std17; constref aIID: TGUID): nsresult; extdecl; + function RemoveWebBrowserListener(aListener: nsIWeakReference_std17; constref aIID: TGUID): nsresult; extdecl; function GetContainerWindow(out aContainerWindow: nsIWebBrowserChrome_std17): Longword; extdecl; function SetContainerWindow(aContainerWindow: nsIWebBrowserChrome_std17): Longword; extdecl; function GetParentURIContentListener(out aParentURIContentListener: nsIURIContentListener_std17): Longword; extdecl; diff --git a/components/geckoport/each-version/nsXPCOM_std18.pas b/components/geckoport/each-version/nsXPCOM_std18.pas index e7f91ed64..fd899927f 100644 --- a/components/geckoport/each-version/nsXPCOM_std18.pas +++ b/components/geckoport/each-version/nsXPCOM_std18.pas @@ -1076,7 +1076,7 @@ type nsIArray_std18 = interface(nsISupports_std18) ['{114744d9-c369-456e-b55a-52fe52880d2d}'] function GetLength(out aLength: PRUint32): Longword; extdecl; - function QueryElementAt(index: PRUint32; const uuid: TGUID; out _result): nsresult; extdecl; + function QueryElementAt(index: PRUint32; constref uuid: TGUID; out _result): nsresult; extdecl; function IndexOf(startIndex: PRUint32; element: nsISupports_std18; out _retval: PRUint32): nsresult; extdecl; function Enumerate(out _retval: nsISimpleEnumerator_std18): nsresult; extdecl; end; @@ -1223,25 +1223,25 @@ type nsIComponentManager_std18 = interface(nsISupports_std18) ['{a88e5a60-205a-4bb1-94e1-2628daf51eae}'] - function GetClassObject(const aClass: TGUID; const aIID: TGUID; out _result): nsresult; extdecl; - function GetClassObjectByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result): nsresult; extdecl; - function CreateInstance(const aClass: TGUID; aDelegate: nsISupports_std18; const aIID: TGUID; out _result): nsresult; extdecl; - function CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_std18; const aIID: TGUID; out _result): nsresult; extdecl; + function GetClassObject(constref aClass: TGUID; constref aIID: TGUID; out _result): nsresult; extdecl; + function GetClassObjectByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result): nsresult; extdecl; + function CreateInstance(constref aClass: TGUID; aDelegate: nsISupports_std18; constref aIID: TGUID; out _result): nsresult; extdecl; + function CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_std18; constref aIID: TGUID; out _result): nsresult; extdecl; end; nsIComponentRegistrar_std18 = interface(nsISupports_std18) ['{2417cbfe-65ad-48a6-b4b6-eb84db174392}'] function AutoRegister(aSpec: nsIFile_std18): nsresult; extdecl; function AutoUnregister(aSpec: nsIFile_std18): nsresult; extdecl; - function RegisterFactory(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_std18): nsresult; extdecl; - function UnregisterFactory(const aClass: TGUID; aFactory: nsIFactory_std18): nsresult; extdecl; - function RegisterFactoryLocation(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_std18; const aLoaderStr: PAnsiChar; const aType: PAnsiChar): nsresult; extdecl; - function UnregisterFactoryLocation(const aClass: TGUID; aFile: nsIFile_std18): nsresult; extdecl; - function IsCIDRegistered(const aClass: TGUID; out _retval: PRBool): nsresult; extdecl; + function RegisterFactory(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_std18): nsresult; extdecl; + function UnregisterFactory(constref aClass: TGUID; aFactory: nsIFactory_std18): nsresult; extdecl; + function RegisterFactoryLocation(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_std18; const aLoaderStr: PAnsiChar; const aType: PAnsiChar): nsresult; extdecl; + function UnregisterFactoryLocation(constref aClass: TGUID; aFile: nsIFile_std18): nsresult; extdecl; + function IsCIDRegistered(constref aClass: TGUID; out _retval: PRBool): nsresult; extdecl; function IsContractIDRegistered(const aContractID: PAnsiChar; out _retval: PRBool): nsresult; extdecl; function EnumerateCIDs(out _retval: nsISimpleEnumerator_std18): nsresult; extdecl; function EnumerateContractIDs(out _retval: nsISimpleEnumerator_std18): nsresult; extdecl; - function CIDToContractID(const aClass: TGUID; out _retval: PAnsiChar): nsresult; extdecl; + function CIDToContractID(constref aClass: TGUID; out _retval: PAnsiChar): nsresult; extdecl; function ContractIDToCID(const aContractID: PAnsiChar; out _retval: PGUID): nsresult; extdecl; end; @@ -2659,7 +2659,7 @@ type nsIFactory_std18 = interface(nsISupports_std18) ['{00000001-0000-0000-c000-000000000046}'] - function CreateInstance(aOuter: nsISupports_std18; const iid: TGUID; out _result): nsresult; extdecl; + function CreateInstance(aOuter: nsISupports_std18; constref iid: TGUID; out _result): nsresult; extdecl; function LockFactory(lock: PRBool): nsresult; extdecl; end; @@ -2773,7 +2773,7 @@ type nsIInterfaceRequestor_std18 = interface(nsISupports_std18) ['{033a1470-8b2a-11d3-af88-00a024ffc08c}'] - function GetInterface(const uuid: TGUID; out _result): nsresult; extdecl; + function GetInterface(constref uuid: TGUID; out _result): nsresult; extdecl; end; nsIIOService_std18 = interface(nsISupports_std18) @@ -2836,7 +2836,7 @@ type nsIModule_std18 = interface(nsISupports_std18) ['{7392d032-5371-11d3-994e-00805fd26fee}'] - function GetClassObject(aCompMgr: nsIComponentManager_std18; const aClass: TGUID; const aIID: TGUID; out aResult): nsresult; extdecl; + function GetClassObject(aCompMgr: nsIComponentManager_std18; constref aClass: TGUID; constref aIID: TGUID; out aResult): nsresult; extdecl; function RegisterSelf(aCompMgr: nsIComponentManager_std18; aLocation: nsIFile_std18; const aLoaderStr: PAnsiChar; const aType: PAnsiChar): nsresult; extdecl; function UnregisterSelf(aCompMgr: nsIComponentManager_std18; aLocation: nsIFile_std18; const aLoaderStr: PAnsiChar): nsresult; extdecl; function CanUnload(aCompMgr: nsIComponentManager_std18; out _retval: PRBool): nsresult; extdecl; @@ -2875,8 +2875,8 @@ type function SetCharPref(const aPrefName: PAnsiChar; const aValue: PAnsiChar): nsresult; extdecl; function GetIntPref(const aPrefName: PAnsiChar; out _retval: PRInt32): nsresult; extdecl; function SetIntPref(const aPrefName: PAnsiChar; aValue: PRInt32): nsresult; extdecl; - function GetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; out aValue): nsresult; extdecl; - function SetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; aValue: nsISupports_std18): nsresult; extdecl; + function GetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; out aValue): nsresult; extdecl; + function SetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; aValue: nsISupports_std18): nsresult; extdecl; function ClearUserPref(const aPrefName: PAnsiChar): nsresult; extdecl; function LockPref(const aPrefName: PAnsiChar): nsresult; extdecl; function PrefHasUserValue(const aPrefName: PAnsiChar; out _retval: PRBool): nsresult; extdecl; @@ -3071,7 +3071,7 @@ type nsIProperties_std18 = interface(nsISupports_std18) ['{78650582-4e93-4b60-8e85-26ebd3eb14ca}'] - function Get(const prop: PAnsiChar; const iid: TGUID; out _result): nsresult; extdecl; + function Get(const prop: PAnsiChar; constref iid: TGUID; out _result): nsresult; extdecl; function _Set(const prop: PAnsiChar; value: nsISupports_std18): nsresult; extdecl; function Has(const prop: PAnsiChar; out _retval: PRBool): nsresult; extdecl; function Undefine(const prop: PAnsiChar): nsresult; extdecl; @@ -3137,10 +3137,10 @@ type nsIServiceManager_std18 = interface(nsISupports_std18) ['{8bb35ed9-e332-462d-9155-4a002ab5c958}'] - function GetService(const aClass: TGUID; const aIID: TGUID; out _result): nsresult; extdecl; - function GetServiceByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result): nsresult; extdecl; - function IsServiceInstantiated(const aClass: TGUID; const aIID: TGUID; out _retval: PRBool): nsresult; extdecl; - function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _retval: PRBool): nsresult; extdecl; + function GetService(constref aClass: TGUID; constref aIID: TGUID; out _result): nsresult; extdecl; + function GetServiceByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result): nsresult; extdecl; + function IsServiceInstantiated(constref aClass: TGUID; constref aIID: TGUID; out _retval: PRBool): nsresult; extdecl; + function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _retval: PRBool): nsresult; extdecl; end; nsISHistory_std18 = interface(nsISupports_std18) @@ -3343,7 +3343,7 @@ type nsIWeakReference_std18 = interface(nsISupports_std18) ['{9188bc85-f92e-11d2-81ef-0060083a0bcf}'] - function QueryReferent(const uuid: TGUID; out _result): nsresult; extdecl; + function QueryReferent(constref uuid: TGUID; out _result): nsresult; extdecl; end; nsISupportsWeakReference_std18 = interface(nsISupports_std18) @@ -3353,8 +3353,8 @@ type nsIWebBrowser_std18 = interface(nsISupports_std18) ['{69e5df00-7b8b-11d3-af61-00a024ffc08c}'] - function AddWebBrowserListener(aListener: nsIWeakReference_std18; const aIID: TGUID): nsresult; extdecl; - function RemoveWebBrowserListener(aListener: nsIWeakReference_std18; const aIID: TGUID): nsresult; extdecl; + function AddWebBrowserListener(aListener: nsIWeakReference_std18; constref aIID: TGUID): nsresult; extdecl; + function RemoveWebBrowserListener(aListener: nsIWeakReference_std18; constref aIID: TGUID): nsresult; extdecl; function GetContainerWindow(out aContainerWindow: nsIWebBrowserChrome_std18): Longword; extdecl; function SetContainerWindow(aContainerWindow: nsIWebBrowserChrome_std18): Longword; extdecl; function GetParentURIContentListener(out aParentURIContentListener: nsIURIContentListener_std18): Longword; extdecl; diff --git a/components/geckoport/each-version/nsXPCOM_std19.pas b/components/geckoport/each-version/nsXPCOM_std19.pas index f57f6f60b..0e334b81d 100644 --- a/components/geckoport/each-version/nsXPCOM_std19.pas +++ b/components/geckoport/each-version/nsXPCOM_std19.pas @@ -1116,7 +1116,7 @@ type nsIArray_std19 = interface(nsISupports_std19) ['{114744d9-c369-456e-b55a-52fe52880d2d}'] function GetLength(out aLength: PRUint32): Longword; extdecl; - function QueryElementAt(index: PRUint32; const uuid: TGUID; out _result): nsresult; extdecl; + function QueryElementAt(index: PRUint32; constref uuid: TGUID; out _result): nsresult; extdecl; function IndexOf(startIndex: PRUint32; element: nsISupports_std19; out _retval: PRUint32): nsresult; extdecl; function Enumerate(out _retval: nsISimpleEnumerator_std19): nsresult; extdecl; end; @@ -1242,25 +1242,25 @@ type nsIComponentManager_std19 = interface(nsISupports_std19) ['{a88e5a60-205a-4bb1-94e1-2628daf51eae}'] - function GetClassObject(const aClass: TGUID; const aIID: TGUID; out _result): nsresult; extdecl; - function GetClassObjectByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result): nsresult; extdecl; - function CreateInstance(const aClass: TGUID; aDelegate: nsISupports_std19; const aIID: TGUID; out _result): nsresult; extdecl; - function CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_std19; const aIID: TGUID; out _result): nsresult; extdecl; + function GetClassObject(constref aClass: TGUID; constref aIID: TGUID; out _result): nsresult; extdecl; + function GetClassObjectByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result): nsresult; extdecl; + function CreateInstance(constref aClass: TGUID; aDelegate: nsISupports_std19; constref aIID: TGUID; out _result): nsresult; extdecl; + function CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports_std19; constref aIID: TGUID; out _result): nsresult; extdecl; end; nsIComponentRegistrar_std19 = interface(nsISupports_std19) ['{2417cbfe-65ad-48a6-b4b6-eb84db174392}'] function AutoRegister(aSpec: nsIFile_std19): nsresult; extdecl; function AutoUnregister(aSpec: nsIFile_std19): nsresult; extdecl; - function RegisterFactory(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_std19): nsresult; extdecl; - function UnregisterFactory(const aClass: TGUID; aFactory: nsIFactory_std19): nsresult; extdecl; - function RegisterFactoryLocation(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_std19; const aLoaderStr: PAnsiChar; const aType: PAnsiChar): nsresult; extdecl; - function UnregisterFactoryLocation(const aClass: TGUID; aFile: nsIFile_std19): nsresult; extdecl; - function IsCIDRegistered(const aClass: TGUID; out _retval: PRBool): nsresult; extdecl; + function RegisterFactory(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory_std19): nsresult; extdecl; + function UnregisterFactory(constref aClass: TGUID; aFactory: nsIFactory_std19): nsresult; extdecl; + function RegisterFactoryLocation(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile_std19; const aLoaderStr: PAnsiChar; const aType: PAnsiChar): nsresult; extdecl; + function UnregisterFactoryLocation(constref aClass: TGUID; aFile: nsIFile_std19): nsresult; extdecl; + function IsCIDRegistered(constref aClass: TGUID; out _retval: PRBool): nsresult; extdecl; function IsContractIDRegistered(const aContractID: PAnsiChar; out _retval: PRBool): nsresult; extdecl; function EnumerateCIDs(out _retval: nsISimpleEnumerator_std19): nsresult; extdecl; function EnumerateContractIDs(out _retval: nsISimpleEnumerator_std19): nsresult; extdecl; - function CIDToContractID(const aClass: TGUID; out _retval: PAnsiChar): nsresult; extdecl; + function CIDToContractID(constref aClass: TGUID; out _retval: PAnsiChar): nsresult; extdecl; function ContractIDToCID(const aContractID: PAnsiChar; out _retval: PGUID): nsresult; extdecl; end; @@ -2741,7 +2741,7 @@ type nsIFactory_std19 = interface(nsISupports_std19) ['{00000001-0000-0000-c000-000000000046}'] - function CreateInstance(aOuter: nsISupports_std19; const iid: TGUID; out _result): nsresult; extdecl; + function CreateInstance(aOuter: nsISupports_std19; constref iid: TGUID; out _result): nsresult; extdecl; function LockFactory(lock: PRBool): nsresult; extdecl; end; @@ -2861,7 +2861,7 @@ type nsIInterfaceRequestor_std19 = interface(nsISupports_std19) ['{033a1470-8b2a-11d3-af88-00a024ffc08c}'] - function GetInterface(const uuid: TGUID; out _result): nsresult; extdecl; + function GetInterface(constref uuid: TGUID; out _result): nsresult; extdecl; end; nsIIOService_std19 = interface(nsISupports_std19) @@ -2932,7 +2932,7 @@ type nsIModule_std19 = interface(nsISupports_std19) ['{7392d032-5371-11d3-994e-00805fd26fee}'] - function GetClassObject(aCompMgr: nsIComponentManager_std19; const aClass: TGUID; const aIID: TGUID; out aResult): nsresult; extdecl; + function GetClassObject(aCompMgr: nsIComponentManager_std19; constref aClass: TGUID; constref aIID: TGUID; out aResult): nsresult; extdecl; function RegisterSelf(aCompMgr: nsIComponentManager_std19; aLocation: nsIFile_std19; const aLoaderStr: PAnsiChar; const aType: PAnsiChar): nsresult; extdecl; function UnregisterSelf(aCompMgr: nsIComponentManager_std19; aLocation: nsIFile_std19; const aLoaderStr: PAnsiChar): nsresult; extdecl; function CanUnload(aCompMgr: nsIComponentManager_std19; out _retval: PRBool): nsresult; extdecl; @@ -2980,8 +2980,8 @@ type function SetCharPref(const aPrefName: PAnsiChar; const aValue: PAnsiChar): nsresult; extdecl; function GetIntPref(const aPrefName: PAnsiChar; out _retval: PRInt32): nsresult; extdecl; function SetIntPref(const aPrefName: PAnsiChar; aValue: PRInt32): nsresult; extdecl; - function GetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; out aValue): nsresult; extdecl; - function SetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; aValue: nsISupports_std19): nsresult; extdecl; + function GetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; out aValue): nsresult; extdecl; + function SetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; aValue: nsISupports_std19): nsresult; extdecl; function ClearUserPref(const aPrefName: PAnsiChar): nsresult; extdecl; function LockPref(const aPrefName: PAnsiChar): nsresult; extdecl; function PrefHasUserValue(const aPrefName: PAnsiChar; out _retval: PRBool): nsresult; extdecl; @@ -3201,7 +3201,7 @@ type nsIProperties_std19 = interface(nsISupports_std19) ['{78650582-4e93-4b60-8e85-26ebd3eb14ca}'] - function Get(const prop: PAnsiChar; const iid: TGUID; out _result): nsresult; extdecl; + function Get(const prop: PAnsiChar; constref iid: TGUID; out _result): nsresult; extdecl; function _Set(const prop: PAnsiChar; value: nsISupports_std19): nsresult; extdecl; function Has(const prop: PAnsiChar; out _retval: PRBool): nsresult; extdecl; function Undefine(const prop: PAnsiChar): nsresult; extdecl; @@ -3267,10 +3267,10 @@ type nsIServiceManager_std19 = interface(nsISupports_std19) ['{8bb35ed9-e332-462d-9155-4a002ab5c958}'] - function GetService(const aClass: TGUID; const aIID: TGUID; out _result): nsresult; extdecl; - function GetServiceByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result): nsresult; extdecl; - function IsServiceInstantiated(const aClass: TGUID; const aIID: TGUID; out _retval: PRBool): nsresult; extdecl; - function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _retval: PRBool): nsresult; extdecl; + function GetService(constref aClass: TGUID; constref aIID: TGUID; out _result): nsresult; extdecl; + function GetServiceByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result): nsresult; extdecl; + function IsServiceInstantiated(constref aClass: TGUID; constref aIID: TGUID; out _retval: PRBool): nsresult; extdecl; + function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _retval: PRBool): nsresult; extdecl; end; nsISHistory_std19 = interface(nsISupports_std19) @@ -3474,7 +3474,7 @@ type nsIWeakReference_std19 = interface(nsISupports_std19) ['{9188bc85-f92e-11d2-81ef-0060083a0bcf}'] - function QueryReferent(const uuid: TGUID; out _result): nsresult; extdecl; + function QueryReferent(constref uuid: TGUID; out _result): nsresult; extdecl; end; nsISupportsWeakReference_std19 = interface(nsISupports_std19) @@ -3484,8 +3484,8 @@ type nsIWebBrowser_std19 = interface(nsISupports_std19) ['{69e5df00-7b8b-11d3-af61-00a024ffc08c}'] - function AddWebBrowserListener(aListener: nsIWeakReference_std19; const aIID: TGUID): nsresult; extdecl; - function RemoveWebBrowserListener(aListener: nsIWeakReference_std19; const aIID: TGUID): nsresult; extdecl; + function AddWebBrowserListener(aListener: nsIWeakReference_std19; constref aIID: TGUID): nsresult; extdecl; + function RemoveWebBrowserListener(aListener: nsIWeakReference_std19; constref aIID: TGUID): nsresult; extdecl; function GetContainerWindow(out aContainerWindow: nsIWebBrowserChrome_std19): Longword; extdecl; function SetContainerWindow(aContainerWindow: nsIWebBrowserChrome_std19): Longword; extdecl; function GetParentURIContentListener(out aParentURIContentListener: nsIURIContentListener_std19): Longword; extdecl; diff --git a/components/geckoport/nsInit.pas b/components/geckoport/nsInit.pas index d0151513d..b8fc9346f 100755 --- a/components/geckoport/nsInit.pas +++ b/components/geckoport/nsInit.pas @@ -365,7 +365,7 @@ type LogReleaseFunc = procedure (var aPtr; refcnt: nsrefcnt; name: PAnsiChar); cdecl; LogCtorFunc = procedure (var aPtr; name: PAnsiChar; ident: PRUint32); cdecl; LogCOMPtrFunc = procedure (var aPtr; aIntf: nsISupports); cdecl; - GetXPTCallStubFunc = function (const guid: TGUID; proxy: nsIXPTCProxy; out aIntf): nsresult; cdecl; + GetXPTCallStubFunc = function (constref guid: TGUID; proxy: nsIXPTCProxy; out aIntf): nsresult; cdecl; DestroyXPTCallStubFunc = procedure (aStub: nsISupports); cdecl; InvokeByIndexFunc = function (aStub: nsISupports; methodIndex: PRUint32; paramCount: PRUint32; params: PXPTCVariantArray): nsresult; cdecl; CycleCollectorFunc = function (aStub: nsISupports): PRBool; cdecl; diff --git a/components/geckoport/nsXPCOM.pas b/components/geckoport/nsXPCOM.pas index c9380afa6..d35664819 100644 --- a/components/geckoport/nsXPCOM.pas +++ b/components/geckoport/nsXPCOM.pas @@ -1117,7 +1117,7 @@ type ['{114744d9-c369-456e-b55a-52fe52880d2d}'] function GetLength(): PRUint32; safecall; property Length: PRUint32 read GetLength; - procedure QueryElementAt(index: PRUint32; const uuid: TGUID; out _result); safecall; + procedure QueryElementAt(index: PRUint32; constref uuid: TGUID; out _result); safecall; function IndexOf(startIndex: PRUint32; element: nsISupports): PRUint32; safecall; function Enumerate(): nsISimpleEnumerator; safecall; end; @@ -1263,25 +1263,25 @@ type nsIComponentManager = interface(nsISupports) ['{a88e5a60-205a-4bb1-94e1-2628daf51eae}'] - procedure GetClassObject(const aClass: TGUID; const aIID: TGUID; out _result); safecall; - procedure GetClassObjectByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result); safecall; - procedure CreateInstance(const aClass: TGUID; aDelegate: nsISupports; const aIID: TGUID; out _result); safecall; - procedure CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports; const aIID: TGUID; out _result); safecall; + procedure GetClassObject(constref aClass: TGUID; constref aIID: TGUID; out _result); safecall; + procedure GetClassObjectByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result); safecall; + procedure CreateInstance(constref aClass: TGUID; aDelegate: nsISupports; constref aIID: TGUID; out _result); safecall; + procedure CreateInstanceByContractID(const aContractID: PAnsiChar; aDelegate: nsISupports; constref aIID: TGUID; out _result); safecall; end; nsIComponentRegistrar = interface(nsISupports) ['{2417cbfe-65ad-48a6-b4b6-eb84db174392}'] procedure AutoRegister(aSpec: nsIFile); safecall; procedure AutoUnregister(aSpec: nsIFile); safecall; - procedure RegisterFactory(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory); safecall; - procedure UnregisterFactory(const aClass: TGUID; aFactory: nsIFactory); safecall; - procedure RegisterFactoryLocation(const aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; - procedure UnregisterFactoryLocation(const aClass: TGUID; aFile: nsIFile); safecall; - function IsCIDRegistered(const aClass: TGUID): PRBool; safecall; + procedure RegisterFactory(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFactory: nsIFactory); safecall; + procedure UnregisterFactory(constref aClass: TGUID; aFactory: nsIFactory); safecall; + procedure RegisterFactoryLocation(constref aClass: TGUID; const aClassName: PAnsiChar; const aContractID: PAnsiChar; aFile: nsIFile; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; + procedure UnregisterFactoryLocation(constref aClass: TGUID; aFile: nsIFile); safecall; + function IsCIDRegistered(constref aClass: TGUID): PRBool; safecall; function IsContractIDRegistered(const aContractID: PAnsiChar): PRBool; safecall; function EnumerateCIDs(): nsISimpleEnumerator; safecall; function EnumerateContractIDs(): nsISimpleEnumerator; safecall; - function CIDToContractID(const aClass: TGUID): PAnsiChar; safecall; + function CIDToContractID(constref aClass: TGUID): PAnsiChar; safecall; function ContractIDToCID(const aContractID: PAnsiChar): PGUID; safecall; end; @@ -2972,7 +2972,7 @@ type nsIFactory = interface(nsISupports) ['{00000001-0000-0000-c000-000000000046}'] - procedure CreateInstance(aOuter: nsISupports; const iid: TGUID; out _result); safecall; + procedure CreateInstance(aOuter: nsISupports; constref iid: TGUID; out _result); safecall; procedure LockFactory(lock: PRBool); safecall; end; @@ -3103,7 +3103,7 @@ type nsIInterfaceRequestor = interface(nsISupports) ['{033a1470-8b2a-11d3-af88-00a024ffc08c}'] - procedure GetInterface(const uuid: TGUID; out _result); safecall; + procedure GetInterface(constref uuid: TGUID; out _result); safecall; end; nsIIOService = interface(nsISupports) @@ -3182,7 +3182,7 @@ type nsIModule = interface(nsISupports) ['{7392d032-5371-11d3-994e-00805fd26fee}'] - procedure GetClassObject(aCompMgr: nsIComponentManager; const aClass: TGUID; const aIID: TGUID; out aResult); safecall; + procedure GetClassObject(aCompMgr: nsIComponentManager; constref aClass: TGUID; constref aIID: TGUID; out aResult); safecall; procedure RegisterSelf(aCompMgr: nsIComponentManager; aLocation: nsIFile; const aLoaderStr: PAnsiChar; const aType: PAnsiChar); safecall; procedure UnregisterSelf(aCompMgr: nsIComponentManager; aLocation: nsIFile; const aLoaderStr: PAnsiChar); safecall; function CanUnload(aCompMgr: nsIComponentManager): PRBool; safecall; @@ -3231,8 +3231,8 @@ type procedure SetCharPref(const aPrefName: PAnsiChar; const aValue: PAnsiChar); safecall; function GetIntPref(const aPrefName: PAnsiChar): PRInt32; safecall; procedure SetIntPref(const aPrefName: PAnsiChar; aValue: PRInt32); safecall; - procedure GetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; out aValue); safecall; - procedure SetComplexValue(const aPrefName: PAnsiChar; const aType: TGUID; aValue: nsISupports); safecall; + procedure GetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; out aValue); safecall; + procedure SetComplexValue(const aPrefName: PAnsiChar; constref aType: TGUID; aValue: nsISupports); safecall; procedure ClearUserPref(const aPrefName: PAnsiChar); safecall; procedure LockPref(const aPrefName: PAnsiChar); safecall; function PrefHasUserValue(const aPrefName: PAnsiChar): PRBool; safecall; @@ -3511,7 +3511,7 @@ type nsIProperties = interface(nsISupports) ['{78650582-4e93-4b60-8e85-26ebd3eb14ca}'] - procedure Get(const prop: PAnsiChar; const iid: TGUID; out _result); safecall; + procedure Get(const prop: PAnsiChar; constref iid: TGUID; out _result); safecall; procedure _Set(const prop: PAnsiChar; value: nsISupports); safecall; function Has(const prop: PAnsiChar): PRBool; safecall; procedure Undefine(const prop: PAnsiChar); safecall; @@ -3585,10 +3585,10 @@ type nsIServiceManager = interface(nsISupports) ['{8bb35ed9-e332-462d-9155-4a002ab5c958}'] - procedure GetService(const aClass: TGUID; const aIID: TGUID; out _result); safecall; - procedure GetServiceByContractID(const aContractID: PAnsiChar; const aIID: TGUID; out _result); safecall; - function IsServiceInstantiated(const aClass: TGUID; const aIID: TGUID): PRBool; safecall; - function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; const aIID: TGUID): PRBool; safecall; + procedure GetService(constref aClass: TGUID; constref aIID: TGUID; out _result); safecall; + procedure GetServiceByContractID(const aContractID: PAnsiChar; constref aIID: TGUID; out _result); safecall; + function IsServiceInstantiated(constref aClass: TGUID; constref aIID: TGUID): PRBool; safecall; + function IsServiceInstantiatedByContractID(const aContractID: PAnsiChar; constref aIID: TGUID): PRBool; safecall; end; nsISHistory = interface(nsISupports) @@ -3817,7 +3817,7 @@ type nsIWeakReference = interface(nsISupports) ['{9188bc85-f92e-11d2-81ef-0060083a0bcf}'] - procedure QueryReferent(const uuid: TGUID; out _result); safecall; + procedure QueryReferent(constref uuid: TGUID; out _result); safecall; end; nsISupportsWeakReference = interface(nsISupports) @@ -3827,8 +3827,8 @@ type nsIWebBrowser = interface(nsISupports) ['{69e5df00-7b8b-11d3-af61-00a024ffc08c}'] - procedure AddWebBrowserListener(aListener: nsIWeakReference; const aIID: TGUID); safecall; - procedure RemoveWebBrowserListener(aListener: nsIWeakReference; const aIID: TGUID); safecall; + procedure AddWebBrowserListener(aListener: nsIWeakReference; constref aIID: TGUID); safecall; + procedure RemoveWebBrowserListener(aListener: nsIWeakReference; constref aIID: TGUID); safecall; function GetContainerWindow(): nsIWebBrowserChrome; safecall; procedure SetContainerWindow(aContainerWindow: nsIWebBrowserChrome); safecall; property ContainerWindow: nsIWebBrowserChrome read GetContainerWindow write SetContainerWindow; diff --git a/components/geckoport/nsXPCOMGlue.pas b/components/geckoport/nsXPCOMGlue.pas index a8907c6b6..885c0de3f 100644 --- a/components/geckoport/nsXPCOMGlue.pas +++ b/components/geckoport/nsXPCOMGlue.pas @@ -156,11 +156,11 @@ const NS_APP_STORAGE_50_FILE = 'UStor'; procedure NS_CreateInstance(const CID, IID: TGUID; out Intf); overload; -procedure NS_CreateInstance(ContractID: PAnsiChar; const IID: TGUID; out Intf); overload; +procedure NS_CreateInstance(ContractID: PAnsiChar; constref IID: TGUID; out Intf); overload; function NS_GetWeakReference(Instance: nsISupports): nsIWeakReference; -procedure NS_GetInterface(Source: nsISupports; const IID: TGUID; out Instance); +procedure NS_GetInterface(Source: nsISupports; constref IID: TGUID; out Instance); procedure NS_GetService(const CID, IID: TGUID; out Intf); overload; -procedure NS_GetService(ContractID: PAnsiChar; const IID: TGUID; out Intf); overload; +procedure NS_GetService(ContractID: PAnsiChar; constref IID: TGUID; out Intf); overload; function NS_GetSpecialDirectory(const specialDirName: PAnsiChar): nsIFile; const @@ -284,7 +284,7 @@ type public constructor Create(supports: TSupportsWeakReference); destructor Destroy; override; - procedure QueryReferent(const uuid: TGUID; out Intf); safecall; + procedure QueryReferent(constref uuid: TGUID; out Intf); safecall; end; TSupportsWeakReference = class(TInterfacedObject, nsISupportsWeakReference) @@ -336,7 +336,7 @@ begin end; end; -procedure NS_CreateInstance(ContractID: PAnsiChar; const IID: TGUID; out Intf); +procedure NS_CreateInstance(ContractID: PAnsiChar; constref IID: TGUID; out Intf); var rv: nsresult; begin @@ -370,7 +370,7 @@ begin end; end; -procedure NS_GetService(ContractID: PAnsiChar; const IID: TGUID; out Intf); +procedure NS_GetService(ContractID: PAnsiChar; constref IID: TGUID; out Intf); var rv: nsresult; begin @@ -415,7 +415,7 @@ begin inherited; end; -procedure TWeakReference.QueryReferent(const uuid: TGUID; out Intf); +procedure TWeakReference.QueryReferent(constref uuid: TGUID; out Intf); var rv: nsresult; begin @@ -454,7 +454,7 @@ begin end; end; -procedure NS_GetInterface(Source: nsISupports; const IID: TGUID; out Instance); +procedure NS_GetInterface(Source: nsISupports; constref IID: TGUID; out Instance); var factory: nsIInterfaceRequestor; begin @@ -486,7 +486,7 @@ type FReferent: TSupportsWeakReferenceInternal; constructor Create(aReferent: TSupportsWeakReferenceInternal); destructor Destroy; override; - procedure QueryReferent(const iid: TGUID; out Intf); safecall; + procedure QueryReferent(constref iid: TGUID; out Intf); safecall; end; function NS_NewSupportsWeakReferenceDelegate(aTarget: nsISupports): nsISupportsWeakReference; @@ -533,7 +533,7 @@ begin inherited; end; -procedure TWeakReferenceInternal.QueryReferent(const iid: TGUID; out intf); +procedure TWeakReferenceInternal.QueryReferent(constref iid: TGUID; out intf); begin if not Supports(FReferent.FTarget, iid, intf) then System.Error(reIntfCastError);