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

* check for importsection for empty asm file

Browse Source
This commit is contained in:
peter 1998-10-21 20:13:10 +00:00
parent f31407b8ab
commit 99b31c91bc
1 changed files with 25 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/pmodules.pas
View File

@ -501,13 +501,20 @@ unit pmodules;
repeat
s:=pattern;
consume(ID);
hp2:=loadunit(s,false);
{ the current module uses the unit hp2 }
current_module^.used_units.concat(new(pused_unit,init(hp2,not current_module^.in_implementation)));
pused_unit(current_module^.used_units.last)^.in_uses:=true;
if current_module^.compiled then
exit;
refsymtable^.insert(new(punitsym,init(s,hp2^.globalsymtable)));
{ avoid uses of itself }
if s<>current_module^.modulename^ then
begin
{ load the unit }
hp2:=loadunit(s,false);
{ the current module uses the unit hp2 }
current_module^.used_units.concat(new(pused_unit,init(hp2,not current_module^.in_implementation)));
pused_unit(current_module^.used_units.last)^.in_uses:=true;
if current_module^.compiled then
exit;
refsymtable^.insert(new(punitsym,init(s,hp2^.globalsymtable)));
end
else
Message1(sym_e_duplicate_id,s);
if token=COMMA then
begin
pattern:='';
@ -609,7 +616,13 @@ unit pmodules;
function is_assembler_generated:boolean;
begin
is_assembler_generated:=not(codesegment^.empty and datasegment^.empty and bsssegment^.empty);
is_assembler_generated:=not(
codesegment^.empty and
datasegment^.empty and
bsssegment^.empty and
((importssection=nil) or importssection^.empty) and
((resourcesection=nil) or resourcesection^.empty)
);
end;
var
@ -1073,7 +1086,10 @@ unit pmodules;
end.
{
$Log$
Revision 1.70 1998-10-20 09:30:05 peter
Revision 1.71 1998-10-21 20:13:10 peter
* check for importsection for empty asm file
Revision 1.70 1998/10/20 09:30:05 peter
* set also in_library flag when no .o is generated
Revision 1.68 1998/10/19 08:54:59 pierre