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

* fix for empty .o files and linking of libs

Browse Source
This commit is contained in:
peter 1998-11-12 11:34:58 +00:00
parent b3618cd063
commit c28675acab
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pmodules.pas
View File

@ -59,9 +59,6 @@ unit pmodules;
if (cs_create_staticlib in aktmoduleswitches) or if (cs_create_staticlib in aktmoduleswitches) or
(cs_smartlink in aktmoduleswitches) then (cs_smartlink in aktmoduleswitches) then
Linker.MakeStaticLibrary(SmartLinkFilesCnt); Linker.MakeStaticLibrary(SmartLinkFilesCnt);
{ add the files for the linker from current_module }
Linker.AddModuleFiles(current_module);
end; end;
@ -974,6 +971,9 @@ unit pmodules;
{ assemble } { assemble }
create_objectfile; create_objectfile;
end; end;
{ add the files for the linker from current_module }
Linker.AddModuleFiles(current_module);
end; end;
@ -1102,6 +1102,9 @@ unit pmodules;
{ assemble and link } { assemble and link }
create_objectfile; create_objectfile;
{ add the files for the linker from current_module }
Linker.AddModuleFiles(current_module);
{ create the executable when we are at level 1 } { create the executable when we are at level 1 }
if (compile_level=1) then if (compile_level=1) then
begin begin
@ -1115,7 +1118,10 @@ unit pmodules;
end. end.
{ {
$Log$ $Log$
Revision 1.80 1998-11-06 09:48:14 pierre Revision 1.81 1998-11-12 11:34:58 peter
* fix for empty .o files and linking of libs
Revision 1.80 1998/11/06 09:48:14 pierre
* double initialization code calling bug fixed * double initialization code calling bug fixed
Revision 1.79 1998/11/03 11:33:11 peter Revision 1.79 1998/11/03 11:33:11 peter