d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

A bug in the exchange was repaired.

Browse source 
Exchanges across pseudo-instructions didn't work properly.
This commit is contained in:
keie 1984-07-13 15:01:23 +00:00
parent da8966a6c8
commit 36af1e09be
1 changed files with 10 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
util/ass/assci.c
View file

@ -339,7 +339,7 @@ int compact_line() {
lastglosym = curglosym;
setline() ; line_num++ ;
if (table1() != sp_fpseu)
fatal("no pseudo after global label");
fatal("no pseudo after data label");
case sp_fpseu:
inpseudo(tabval);
setline() ;
@ -620,15 +620,13 @@ exchange(p1,p2) {
if ( ctrunc(a_lnp->instr_num) !=sp_fpseu ) {
fatal("EXC inconsistency") ;
}
doinsert(a_lnp,line,a_lnp->ad.ad_ln.ln_extra-size) ;
a_lnp->ad.ad_ln.ln_first += size ;
a_lnp->ad.ad_ln.ln_extra = size-1 ;
doinsert(a_lnp,line,size-1) ;
a_lnp->ad.ad_ln.ln_extra -= size ;
size=0 ;
b_lnp=a_lnp->l_next ;
} else {
doinsert(a_lnp,line,-1) ;
b_lnp= a_lnp ;
if( a_lnp) doinsert(a_lnp,line,-1) ;
}
b_lnp= a_lnp ;
while ( b_lnp ) {
b_lnp= b_lnp->l_next ;
line-- ;
@ -644,19 +642,18 @@ exchange(p1,p2) {
size++ ;
if ( size>=p2 ) break ;
}
if ( !b_lnp ) { /* if a_lnp==0, so is b_lnp */
fatal("Cannot perform exchange") ;
}
if ( ( size-= p2 )>0 ) {
if ( ctrunc(b_lnp->instr_num) !=sp_fpseu ) {
fatal("EXC inconsistency") ;
}
doinsert(b_lnp,line,b_lnp->ad.ad_ln.ln_extra-size) ;
b_lnp->ad.ad_ln.ln_first += size ;
b_lnp->ad.ad_ln.ln_extra = size-1 ;
doinsert(b_lnp,line,size-1) ;
b_lnp->ad.ad_ln.ln_extra -= size ;
} else {
doinsert(b_lnp,line,-1) ;
}
if ( !b_lnp ) { /* if a_lnp==0, so is b_lnp */
fatal("Cannot perform exchange") ;
}
t_lnp = b_lnp->l_next ;
b_lnp->l_next = pstate.s_fline ;
pstate.s_fline= a_lnp->l_next ;