paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:49:07 +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

6
compiler/aggas.pas
View File

@ -268,10 +268,14 @@ implementation
function needsObject(hp : tai_symbol) : boolean; function needsObject(hp : tai_symbol) : boolean;
begin begin
needsObject := needsObject :=
(
assigned(hp.next) and assigned(hp.next) and
(tai_symbol(hp.next).typ in [ait_const_rva_symbol, (tai_symbol(hp.next).typ in [ait_const_rva_symbol,
ait_const_32bit,ait_const_16bit,ait_const_8bit,ait_datablock, ait_const_32bit,ait_const_16bit,ait_const_8bit,ait_datablock,
ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit]); ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit])
) or
(hp.sym.typ=AT_DATA);
end; end;
var var