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

* Fixed compilation on Linux

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1343 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Loesje_
2010-10-13 18:14:49 +00:00
parent 137f416c20
commit d930eeef28
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/geckoport/nsInit.pas
View File

@ -295,7 +295,6 @@ function NS_CurrentProcessDirectory(buf: PAnsiChar; bufLen: Cardinal): Boolean;
type
TAnsiCharArray = array [0..High(Word) div SizeOf(AnsiChar)] of AnsiChar;
TMaxPathChar = array[0..MAX_PATH] of AnsiChar;
// HINST = TLibHandle;
PDependentLib = ^TDependentLib;
TDependentLib = record
libHandle: HMODULE;
@ -325,9 +324,12 @@ procedure ZeroArray(out AArray; const ASize: SizeInt);
implementation
uses
{$IFDEF MSWINDOWS} Windows, {$ELSE} DynLibs, {$ENDIF} nsError, nsMemory;
{$IFDEF MSWINDOWS} Windows, {$ELSE} DynLibs, {$ENDIF} nsError, nsMemory,math;
type
{$IFNDEF MSWINDOWS}
HINST = TLibHandle;
{$ENDIF}
XPCOMExitRoutine = function : Longword; stdcall;
InitFunc = function(out servMgr: nsIServiceManager; binDir: nsIFile; provider: nsIDirectoryServiceProvider): Longword; cdecl;
@ -887,11 +889,15 @@ function GRE_GetGREPathWithProperties(
buf: PAnsiChar; buflen: PRUint32): nsresult;
var
env: string;
{$IFDEF MSWINDOWS}
hRegKey: HKEY;
{$ENDIF}
ok: PRBool;
versions: PGREVersionRangeArray;
properties: PGREPropertyArray;
GeckoVersion: String;
{$IFDEF MSWINDOWS}
function GRE_FireFox(): string;
var
Reg: TRegistry;
@ -919,6 +925,8 @@ var
Reg.CloseKey;
Reg.Free;
end;
{$ENDIF}
begin
versions := PGREVersionRangeArray(aVersions);
properties := PGREPropertyArray(aProperties);
@ -1564,7 +1572,7 @@ var
proc: Pointer;
begin
Result := False;
module := LoadLibraryA(filename);
module := LoadLibrary(filename);
if module=0 then Exit;
proc := GetProcAddress(module, 'NS_GetFrozenFunctions');
@ -1573,6 +1581,7 @@ begin
FreeLibrary(module);
end;
{$IFDEF MSWINDOWS}
function CheckGeckoVersion(path: PAnsiChar; const reqVer: TGREVersion): Boolean;
const
BUFSIZE = 4096;
@ -1687,6 +1696,7 @@ NoCurrentUser:;
NS_StrCopy(buf, cuPath);
end;
end;
{$ENDIF}
var
GRELocation: TMaxPathChar;