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

* write correct type usual symbols

Browse Source 
git-svn-id: trunk@1933 -
This commit is contained in:
florian 2005-12-11 23:11:55 +00:00
parent 479ad6d88a
commit ca782dddc7
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/aggas.pas
View File

@ -266,13 +266,17 @@ implementation
procedure TGNUAssembler.WriteTree(p:TAAsmoutput);
function needsObject(hp : tai_symbol) : boolean;
begin
needsObject :=
assigned(hp.next) and
(tai_symbol(hp.next).typ in [ait_const_rva_symbol,
ait_const_32bit,ait_const_16bit,ait_const_8bit,ait_datablock,
ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit]);
end;
begin
needsObject :=
(
assigned(hp.next) and
(tai_symbol(hp.next).typ in [ait_const_rva_symbol,
ait_const_32bit,ait_const_16bit,ait_const_8bit,ait_datablock,
ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit])
) or
(hp.sym.typ=AT_DATA);
end;
var
ch : char;