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

- disable automatic adding of "splitfilename(libname)" to to-be-linked

Browse Source 
libraries for darwin (accidentally committed in previous commit)

git-svn-id: trunk@2595 -
This commit is contained in:
Jonas Maebe 2006-02-15 14:59:38 +00:00
parent 5f3e0b5398
commit 23868147a6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/systems/t_bsd.pas
View File

@ -98,14 +98,14 @@ implementation
procedure timportlibdarwin.importprocedure(aprocdef:tprocdef;const module : string;index : longint;const name : string); procedure timportlibdarwin.importprocedure(aprocdef:tprocdef;const module : string;index : longint;const name : string);
begin begin
{ insert sharedlibrary } { insert sharedlibrary }
current_module.linkothersharedlibs.add(SplitName(module),link_always); { current_module.linkothersharedlibs.add(SplitName(module),link_always); }
end; end;
procedure timportlibdarwin.importvariable(vs:tglobalvarsym;const name,module:string); procedure timportlibdarwin.importvariable(vs:tglobalvarsym;const name,module:string);
begin begin
{ insert sharedlibrary } { insert sharedlibrary }
current_module.linkothersharedlibs.add(SplitName(module),link_always); { current_module.linkothersharedlibs.add(SplitName(module),link_always); }
{ the rest is handled in the nppcld.pas tppcloadnode } { the rest is handled in the nppcld.pas tppcloadnode }
vs.set_mangledname(name); vs.set_mangledname(name);
end; end;