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

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