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;
FIndex: Integer;
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;
end;
@ -52,7 +52,7 @@ begin
end;
function TSimpleEnumeratorWithInterfaceList.HasMoreElements(out _retval
: PRBool): nsresult;
: Longbool): nsresult;
begin
_retval := (FIndex < FList.Count);
Result := NS_OK;

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

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