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

* better splitname to support glib-1.1.dll alike names

Browse Source
This commit is contained in:
peter 1998-10-19 15:41:02 +00:00
parent 41af0eea9c
commit aa8d7dea4a
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/import.pas
View File

@ -95,7 +95,7 @@ end;
constructor timportlist.init(const n : string);
begin
inherited init;
dllname:=stringdup(SplitName(n));
dllname:=stringdup(n);
imported_procedures:=new(plinkedlist,init);
end;
@ -164,7 +164,10 @@ end;
end.
{
$Log$
Revision 1.6 1998-10-13 13:10:17 peter
Revision 1.7 1998-10-19 15:41:02 peter
* better splitname to support glib-1.1.dll alike names
Revision 1.6 1998/10/13 13:10:17 peter
* new style for m68k/i386 infos and enums
Revision 1.5 1998/10/06 17:16:51 pierre

12
compiler/win_targ.pas
View File

@ -63,20 +63,21 @@ unit win_targ;
var
hp1 : pimportlist;
hp2 : pimported_procedure;
hs : string;
begin
hs:=SplitName(module);
{ search for the module }
hp1:=pimportlist(current_module^.imports^.first);
while assigned(hp1) do
begin
if module=hp1^.dllname^ then
if hs=hp1^.dllname^ then
break;
hp1:=pimportlist(hp1^.next);
end;
{ generate a new item ? }
if not(assigned(hp1)) then
begin
hp1:=new(pimportlist,init(module));
hp1:=new(pimportlist,init(hs));
current_module^.imports^.concat(hp1);
end;
hp2:=new(pimported_procedure,init(func,name,index));
@ -293,7 +294,10 @@ unit win_targ;
end.
{
$Log$
Revision 1.8 1998-09-07 18:33:35 peter
Revision 1.9 1998-10-19 15:41:03 peter
* better splitname to support glib-1.1.dll alike names
Revision 1.8 1998/09/07 18:33:35 peter
+ smartlinking for win95 imports
Revision 1.7 1998/09/03 17:39:06 florian