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@2629 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2013-01-18 15:45:35 +00:00
parent 1af94d0364
commit 40ac6954ef
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
components/geckoport/version2/nsThreadUtils.pas
View File

@@ -32,13 +32,13 @@ type
['{101d5941-d820-4e85-a266-9a3469940807}'] ['{101d5941-d820-4e85-a266-9a3469940807}']
procedure _set(aName: nsAString; aValue: nsAString); safecall; procedure _set(aName: nsAString; aValue: nsAString); safecall;
procedure get(aName: nsAString; aResult: nsAString); safecall; procedure get(aName: nsAString; aResult: nsAString); safecall;
function exists(aName: nsAString): PRBool; safecall; function exists(aName: nsAString): LongBool; safecall;
end; end;
nsIEventTarget = interface(nsISupports) nsIEventTarget = interface(nsISupports)
['{4e8febe4-6631-49dc-8ac9-308c1cb9b09c}'] ['{4e8febe4-6631-49dc-8ac9-308c1cb9b09c}']
procedure dispatch(event: nsIRunnable; flags: PRUint32); safecall; procedure dispatch(event: nsIRunnable; flags: PRUint32); safecall;
function isOnCurrentThread(): PRBool; safecall; function isOnCurrentThread(): LongBool; safecall;
end; end;
nsIProcess = interface(nsISupports) nsIProcess = interface(nsISupports)
@@ -46,7 +46,7 @@ type
procedure init(aExecutable: nsIFile); safecall; procedure init(aExecutable: nsIFile); safecall;
procedure initWithPid(aPid: PRUint32); safecall; procedure initWithPid(aPid: PRUint32); safecall;
procedure kill(); safecall; procedure kill(); safecall;
function run(aBlocking: PRBool; aArgs: PAnsiCharArray; aCount: PRUint32): PRUint32; safecall; function run(aBlocking: LongBool; aArgs: PAnsiCharArray; aCount: PRUint32): PRUint32; safecall;
function getLocation(): nsIFile; safecall; function getLocation(): nsIFile; safecall;
property location: nsIFile read getLocation; property location: nsIFile read getLocation;
function getPid(): PRUint32; safecall; function getPid(): PRUint32; safecall;
@@ -77,8 +77,8 @@ type
function getPRThread: Pointer; safecall; function getPRThread: Pointer; safecall;
property PRThread: Pointer read getPRThread; property PRThread: Pointer read getPRThread;
procedure shutdown(); safecall; procedure shutdown(); safecall;
function hasPendingEvents(): PRBool; safecall; function hasPendingEvents(): LongBool; safecall;
function processNextEvent(mayWait: PRBool): PRBool; safecall; function processNextEvent(mayWait: LongBool): LongBool; safecall;
end; end;
nsIThreadInternal = interface(nsISupports) nsIThreadInternal = interface(nsISupports)
@@ -93,13 +93,13 @@ type
nsIThreadObserver = interface(nsISupports) nsIThreadObserver = interface(nsISupports)
['{81D0B509-F198-4417-8020-08EB4271491F}'] ['{81D0B509-F198-4417-8020-08EB4271491F}']
procedure onDispatchedEvent(aThread: nsIThreadInternal); safecall; procedure onDispatchedEvent(aThread: nsIThreadInternal); safecall;
procedure onProcessNextEvent(aThread: nsIThreadInternal; aMayWait: PRBool; aRecursionDepth: PRUint32); safecall; procedure onProcessNextEvent(aThread: nsIThreadInternal; aMayWait: LongBool; aRecursionDepth: PRUint32); safecall;
procedure afterProcessNextEvent(aThread: nsIThreadInternal; aRecursionDepth: PRUint32); safecall; procedure afterProcessNextEvent(aThread: nsIThreadInternal; aRecursionDepth: PRUint32); safecall;
end; end;
nsIThreadEventFilter = interface(nsISupports) nsIThreadEventFilter = interface(nsISupports)
['{a0605c0b-17f5-4681-b8cd-a1cd75d42559}'] ['{a0605c0b-17f5-4681-b8cd-a1cd75d42559}']
function acceptEvent(aEvent: nsIRunnable): PRBool; extdecl; function acceptEvent(aEvent: nsIRunnable): LongBool; extdecl;
end; end;
nsIThreadManager = interface(nsISupports) nsIThreadManager = interface(nsISupports)
@@ -110,8 +110,8 @@ type
property mainThread: nsIThread read getMainThread; property mainThread: nsIThread read getMainThread;
function getCurrentThread: nsIThread; safecall; function getCurrentThread: nsIThread; safecall;
property currentThread: nsIThread read getCurrentThread; property currentThread: nsIThread read getCurrentThread;
function getIsMainThread: PRBool; safecall; function getIsMainThread: LongBool; safecall;
property isMainThread: PRbool read getIsMainThread; property isMainThread: LongBool read getIsMainThread;
end; end;
nsIThreadPoolListener = interface(nsISupports) nsIThreadPoolListener = interface(nsISupports)
@@ -164,16 +164,16 @@ type
function NS_NewThread(aInitialEvent: nsIRunnable = nil): nsIThread; function NS_NewThread(aInitialEvent: nsIRunnable = nil): nsIThread;
function NS_GetCurrentThread(): nsIThread; function NS_GetCurrentThread(): nsIThread;
function NS_GetMainThread(): nsIThread; function NS_GetMainThread(): nsIThread;
function NS_IsMainThread(): PRBool; function NS_IsMainThread(): LongBool;
procedure NS_DispatchToCurrentThread(aEvent: nsIRunnable); procedure NS_DispatchToCurrentThread(aEvent: nsIRunnable);
procedure NS_DispatchToMainThread(aEvent: nsIRunnable; procedure NS_DispatchToMainThread(aEvent: nsIRunnable;
aDispatchFlags: PRUint32 = NS_DISPATCH_NORMAL); aDispatchFlags: PRUint32 = NS_DISPATCH_NORMAL);
procedure NS_ProcessPendingEvents(aThread: nsIThread; procedure NS_ProcessPendingEvents(aThread: nsIThread;
aTimeout: PRUint32 = $ffffffff); aTimeout: PRUint32 = $ffffffff);
// const PR_INTERVAL_NO_TIMEOUT = $ffffffff; // const PR_INTERVAL_NO_TIMEOUT = $ffffffff;
function NS_HasPendingEvents(aThread: nsIThread = nil): PRBool; function NS_HasPendingEvents(aThread: nsIThread = nil): LongBool;
function NS_ProcessNextEvent(aThread: nsIThread = nil; function NS_ProcessNextEvent(aThread: nsIThread = nil;
aMayWait: PRBool = True): PRBool; aMayWait: LongBool = True): LongBool;
implementation implementation
@@ -208,7 +208,7 @@ begin
Result := tm.mainThread; Result := tm.mainThread;
end; end;
function NS_IsMainThread(): PRBool; function NS_IsMainThread(): LongBool;
var var
tm: nsIThreadManager; tm: nsIThreadManager;
begin begin
@@ -241,7 +241,7 @@ procedure NS_ProcessPendingEvents(aThread: nsIThread;
aTimeout: PRUint32); aTimeout: PRUint32);
var var
start: PRUint32; start: PRUint32;
processedEvent: PRBool; processedEvent: LongBool;
begin begin
if not Assigned(aThread) then if not Assigned(aThread) then
aThread := NS_GetCurrentThread; aThread := NS_GetCurrentThread;
@@ -256,14 +256,14 @@ begin
end; end;
end; end;
function NS_HasPendingEvents(aThread: nsIThread): PRBool; function NS_HasPendingEvents(aThread: nsIThread): LongBool;
begin begin
if not Assigned(aThread) then if not Assigned(aThread) then
aThread := NS_GetCurrentThread; aThread := NS_GetCurrentThread;
result := aThread.hasPendingEvents; result := aThread.hasPendingEvents;
end; end;
function NS_ProcessNextEvent(aThread: nsIThread; aMayWait: PRBool): PRBool; function NS_ProcessNextEvent(aThread: nsIThread; aMayWait: LongBool): LongBool;
begin begin
if not Assigned(aThread) then if not Assigned(aThread) then
aThread := NS_GetCurrentThread; aThread := NS_GetCurrentThread;