externals were not handled right

This commit is contained in:
ceriel 1987-07-29 19:49:15 +00:00
parent bf63b12a93
commit 580bb15076
2 changed files with 6 additions and 3 deletions

View file

@ -211,7 +211,10 @@ int i_flag,flag,number ; cons_t val ; {
if ( val<0 ) val = -1-val ; if ( val<0 ) val = -1-val ;
return val>=0 && val<number*256 ; return val>=0 && val<number*256 ;
case OP16 : case OP16 :
if ( i_flag==PAR_G ) return val>=0 && val<=maxadr ; if ( i_flag==PAR_G ) {
return val>=0 &&
val<=maxadr && val <= 65535L;
}
return val>= -32768 && val<=32767 ; return val>= -32768 && val<=32767 ;
case OP32 : case OP32 :
return TRUE ; return TRUE ;

View file

@ -483,8 +483,8 @@ inpseudo(instr_no) {
if ( !needed() ) { if ( !needed() ) {
eof_seen++ ; eof_seen++ ;
} }
if ( line_num!=1 ) { if ( line_num>2 ) {
werror("mes ms_ext must be first pseudo") ; werror("mes ms_ext must be first or second pseudo") ;
} }
return ; return ;
} }