pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Replaced prBool with LongBool

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2628 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2013-01-18 14:43:13 +00:00
parent 39de091679
commit 1af94d0364
2 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/geckoport/version2/nsEnumerators.pas
View File

@ -28,7 +28,7 @@ type
FOwn: Boolean; FOwn: Boolean;
FIndex: Integer; FIndex: Integer;
destructor Destroy; override; destructor Destroy; override;
function HasMoreElements(out _retval: PRBool): nsresult; extdecl; function HasMoreElements(out _retval: longbool): nsresult; extdecl;
function GetNext(out _retval: nsISupports_std19): nsresult; extdecl; function GetNext(out _retval: nsISupports_std19): nsresult; extdecl;
end; end;
@ -52,7 +52,7 @@ begin
end; end;
function TSimpleEnumeratorWithInterfaceList.HasMoreElements(out _retval function TSimpleEnumeratorWithInterfaceList.HasMoreElements(out _retval
: PRBool): nsresult; : Longbool): nsresult;
begin begin
_retval := (FIndex < FList.Count); _retval := (FIndex < FList.Count);
Result := NS_OK; Result := NS_OK;

26
components/geckoport/version2/nsProfile.pas
View File

@ -50,7 +50,7 @@ type
EGeckoProfileError = class(EGeckoError); EGeckoProfileError = class(EGeckoError);
function NS_NewProfileDirServiceProvider(aNotifyObservers: PRBool): nsProfileDirServiceProvider; function NS_NewProfileDirServiceProvider(aNotifyObservers: LongBool): nsProfileDirServiceProvider;
resourcestring resourcestring
SProfileRegisterError = 'Failed to register profile.'; SProfileRegisterError = 'Failed to register profile.';
@ -84,16 +84,16 @@ type
nsIDirectoryServiceProvider) nsIDirectoryServiceProvider)
FProfileDir: nsIFile; FProfileDir: nsIFile;
FProfileDirLock: TProfileDirLock; FProfileDirLock: TProfileDirLock;
FNotifyObservers: PRBool; FNotifyObservers: LongBool;
FSharingEnabled: Boolean; FSharingEnabled: Boolean;
FNonSharedDirName: IInterfacedString; FNonSharedDirName: IInterfacedString;
FNonSharedProfileDir: nsIFile; FNonSharedProfileDir: nsIFile;
function GetFile(const prop: PAnsiChar; out persistent: PRBool): nsIFile; safecall; function GetFile(const prop: PAnsiChar; out persistent: LongBool): nsIFile; safecall;
procedure SetProfileDir(AProfileDir: nsIFile); procedure SetProfileDir(AProfileDir: nsIFile);
procedure Register; procedure Register;
procedure Shutdown; procedure Shutdown;
constructor Create(aNotifyObservers: PRBool = True); constructor Create(aNotifyObservers: LongBool = True);
destructor Destroy; override; destructor Destroy; override;
procedure Initialize; procedure Initialize;
@ -141,7 +141,7 @@ function TProfileDirLock.Lock(aFile: nsILocalFile): nsresult;
const const
LOCKFILE_NAME = 'parent.lock'; LOCKFILE_NAME = 'parent.lock';
var var
isDir: PRBool; isDir: LongBool;
lockFile: nsIFile; lockFile: nsIFile;
lockFileName: IInterfacedString; lockFileName: IInterfacedString;
filePath: IInterfacedCString; filePath: IInterfacedCString;
@ -207,7 +207,7 @@ begin
end; end;
end; end;
constructor TProfileDirServiceProvider.Create(aNotifyObservers: PRBool); constructor TProfileDirServiceProvider.Create(aNotifyObservers: LongBool);
begin begin
inherited Create; inherited Create;
FNotifyObservers := aNotifyObservers; FNotifyObservers := aNotifyObservers;
@ -299,7 +299,7 @@ begin
end; end;
end; end;
function TProfileDirServiceProvider.GetFile(const prop: PAnsiChar; out persistent: PRBool): nsIFile; function TProfileDirServiceProvider.GetFile(const prop: PAnsiChar; out persistent: LongBool): nsIFile;
var var
localFile: nsIFile; localFile: nsIFile;
domainDir: nsIFile; domainDir: nsIFile;
@ -430,11 +430,11 @@ end;
procedure TProfileDirServiceProvider.InitProfileDir(profileDir: nsIFile); procedure TProfileDirServiceProvider.InitProfileDir(profileDir: nsIFile);
var var
exists: PRBool; exists: LongBool;
profileDefaultsDir: nsIFile; profileDefaultsDir: nsIFile;
profileDirParent: nsIFile; profileDirParent: nsIFile;
profileDirName: IInterfacedCString; profileDirName: IInterfacedCString;
isDir: PRBool; isDir: LongBool;
begin begin
try try
profileDirName := NewCString; profileDirName := NewCString;
@ -475,8 +475,8 @@ end;
procedure TProfileDirServiceProvider.InitNonSharedProfileDir; procedure TProfileDirServiceProvider.InitNonSharedProfileDir;
var var
localDir: nsIFile; localDir: nsIFile;
exists: PRBool; exists: LongBool;
isDir: PRBool; isDir: LongBool;
begin begin
try try
localDir := FProfileDir.Clone(); localDir := FProfileDir.Clone();
@ -500,7 +500,7 @@ end;
procedure TProfileDirServiceProvider.EnsureProfileFileExists(aFile: nsIFile; destDir: nsIFile); procedure TProfileDirServiceProvider.EnsureProfileFileExists(aFile: nsIFile; destDir: nsIFile);
var var
exists: PRBool; exists: LongBool;
defaultsFile: nsIFile; defaultsFile: nsIFile;
leafName: IInterfacedCString; leafName: IInterfacedCString;
begin begin
@ -570,7 +570,7 @@ begin
Result := HResult(NS_ERROR_FAILURE); Result := HResult(NS_ERROR_FAILURE);
end; end;
function NS_NewProfileDirServiceProvider(aNotifyObservers: PRBool): nsProfileDirServiceProvider; function NS_NewProfileDirServiceProvider(aNotifyObservers: LongBool): nsProfileDirServiceProvider;
var var
prov: TProfileDirServiceProvider; prov: TProfileDirServiceProvider;
begin begin