paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 22:26:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix dllscanner for win32

Browse Source 
git-svn-id: trunk@3449 -
This commit is contained in:
peter 2006-05-07 10:20:17 +00:00
parent 8581c2ee6f
commit 739c322f60
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogcoff.pas
View File

@ -214,7 +214,7 @@ interface
type
Treaddllproc = procedure(const dllname,funcname:string);
Treaddllproc = procedure(const dllname,funcname:string) of object;
function ReadDLLImports(const dllname:string;readdllproc:Treaddllproc):boolean;

11
compiler/systems/t_win.pas
View File

@ -83,6 +83,10 @@ interface
end;
tDLLScannerWin32=class(tDLLScanner)
private
importfound : boolean;
procedure CheckDLLFunc(const dllname,funcname:string);
public
function Scan(const binname:string):boolean;override;
end;
@ -1621,7 +1625,7 @@ end;
TDLLScannerWin32
****************************************************************************}
procedure CheckDLLFunc(const dllname,funcname:string);
procedure tDLLScannerWin32.CheckDLLFunc(const dllname,funcname:string);
var
hp : tExternalsItem;
begin
@ -1642,6 +1646,7 @@ end;
// timportlibwin32(importlib).importvariable_str(funcname,dllname,funcname)
// else
timportlibwin32(importlib).importprocedure_str(funcname,dllname,0,funcname);
importfound:=true;
exit;
end;
hp:=tExternalsItem(hp.next);
@ -1654,7 +1659,7 @@ end;
hs,
dllname : string;
begin
result:=true;
result:=false;
{ is there already an import library the we will use that one }
if FindLibraryFile(binname,target_info.staticClibprefix,target_info.staticClibext,hs) then
exit;
@ -1662,7 +1667,9 @@ end;
hs:=AddExtension(binname,target_info.sharedlibext);
if not FindDll(hs,dllname) then
exit;
importfound:=false;
ReadDLLImports(dllname,@CheckDLLFunc);
result:=importfound;
end;