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

* fixed some broken stuff due to tai_const refactoring

Browse Source 
git-svn-id: trunk@2329 -
This commit is contained in:
florian 2006-01-22 21:50:12 +00:00
parent c1c7888179
commit 238d18bef2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/aggas.pas
View File

@ -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);