|
@@ -346,7 +346,7 @@ implementation
|
|
|
ch : char;
|
|
ch : char;
|
|
|
hp : tai;
|
|
hp : tai;
|
|
|
hp1 : tailineinfo;
|
|
hp1 : tailineinfo;
|
|
|
- consttyp : taitype;
|
|
|
|
|
|
|
+ consttype : taiconst_type;
|
|
|
s,t : string;
|
|
s,t : string;
|
|
|
i,pos,l : longint;
|
|
i,pos,l : longint;
|
|
|
InlineLevel : longint;
|
|
InlineLevel : longint;
|
|
@@ -550,7 +550,8 @@ implementation
|
|
|
|
|
|
|
|
ait_const:
|
|
ait_const:
|
|
|
begin
|
|
begin
|
|
|
- case tai_const(hp).consttype of
|
|
|
|
|
|
|
+ consttype:=tai_const(hp).consttype;
|
|
|
|
|
+ case consttype of
|
|
|
{$ifndef cpu64bit}
|
|
{$ifndef cpu64bit}
|
|
|
aitconst_128bit :
|
|
aitconst_128bit :
|
|
|
begin
|
|
begin
|
|
@@ -603,7 +604,6 @@ implementation
|
|
|
else
|
|
else
|
|
|
begin
|
|
begin
|
|
|
AsmWrite(ait_const2str[tai_const(hp).consttype]);
|
|
AsmWrite(ait_const2str[tai_const(hp).consttype]);
|
|
|
- consttyp:=hp.typ;
|
|
|
|
|
l:=0;
|
|
l:=0;
|
|
|
t := '';
|
|
t := '';
|
|
|
repeat
|
|
repeat
|
|
@@ -634,7 +634,8 @@ implementation
|
|
|
not(CurrSecType in [sec_data,sec_rodata]) or
|
|
not(CurrSecType in [sec_data,sec_rodata]) or
|
|
|
(l>line_length) or
|
|
(l>line_length) or
|
|
|
(hp.next=nil) or
|
|
(hp.next=nil) or
|
|
|
- (tai(hp.next).typ<>consttyp) or
|
|
|
|
|
|
|
+ (tai(hp.next).typ<>ait_const) or
|
|
|
|
|
+ (tai_const(hp.next).consttype<>consttype) or
|
|
|
assigned(tai_const(hp.next).sym) then
|
|
assigned(tai_const(hp.next).sym) then
|
|
|
break;
|
|
break;
|
|
|
hp:=tai(hp.next);
|
|
hp:=tai(hp.next);
|
florian