From 1af94d036407eac71beb173c0c7b39ee63a88c11 Mon Sep 17 00:00:00 2001
From: loesje_ <loesje_@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 18 Jan 2013 14:43:13 +0000
Subject: [PATCH]  * Replaced prBool with LongBool

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2628 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../geckoport/version2/nsEnumerators.pas      |  4 +--
 components/geckoport/version2/nsProfile.pas   | 26 +++++++++----------
 2 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/components/geckoport/version2/nsEnumerators.pas b/components/geckoport/version2/nsEnumerators.pas
index b109f8d58..4e243583a 100755
--- a/components/geckoport/version2/nsEnumerators.pas
+++ b/components/geckoport/version2/nsEnumerators.pas
@@ -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;
diff --git a/components/geckoport/version2/nsProfile.pas b/components/geckoport/version2/nsProfile.pas
index be585b9e5..276c9edd1 100644
--- a/components/geckoport/version2/nsProfile.pas
+++ b/components/geckoport/version2/nsProfile.pas
@@ -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