static void handle_type(char *s)
{
char *name;
symbol *sym;
if(!(name=parse_identifier(&s))){
syntax_error(10); /* identifier expected */
return;
}
sym=new_import(name);
myfree(name);
s=skip(s);
if(*s==',')
s=skip(s+1);
else
syntax_error(9);
if(!strncmp(s,"@object",7)){
sym->flags|=TYPE_OBJECT;
s=skip(s+7);
}else if(!strncmp(s,"@function",9)){
sym->flags|=TYPE_FUNCTION;
s=skip(s+9);
}else
sym->flags|=parse_constexpr(&s);
eol(s);
}
static void handle_rept(char *s)
{
taddr cnt = parse_constexpr(&s);
eol(s);
new_repeat((int)cnt,nodotneeded?"rept":".rept",nodotneeded?"endr":".endr");
}
static void handle_align(char *s)
{
taddr align=parse_constexpr(&s);
atom *a=new_space_atom(number_expr(0),1,0);
a->align=1<<align;
add_atom(0,a);
eol(s);
}
static void handle_align(char *s)
{
taddr a = parse_constexpr(&s);
if (a > 63)
syntax_error(21); /* bad alignment */
do_alignment(1LL<<a,number_expr(0));
eol(s);
}
static taddr comma_constexpr(char **s)
{
*s = skip(*s);
if (**s == ',') {
*s = skip(*s + 1);
return parse_constexpr(s);
}
syntax_error(9); /* comma expected */
return 0;
}
static void handle_stabd(char *s)
{
int t,o,d;
t = parse_constexpr(&s);
o = comma_constexpr(&s);
d = comma_constexpr(&s);
stab_entry(NULL,t,o,d,NULL);
eol(s);
}
static void handle_org(char *s)
{
taddr addr = parse_constexpr(&s);
if (rorgmode)
start_rorg(addr);
else
set_section(new_org(addr));
eol(s);
}
static taddr comma_constexpr(char **s)
{
*s = skip(*s);
if (**s == ',') {
*s = skip(*s + 1);
return parse_constexpr(s);
}
general_error(6,','); /* comma expected */
return 0;
}
static void handle_d8_offset(char *s)
{
taddr offs = parse_constexpr(&s);
s = skip(s);
if (*s == ',') {
s = skip(s+1);
handle_data_offset(s,8,offs);
}
else
syntax_error(9); /* , expected */
}
static void alignment(char *s,int mode)
{
int align,max=0;
expr *fill=0;
align = parse_constexpr(&s);
s = skip(s);
if (*s == ',') {
s = skip(s+1);
if (*s != ',')
fill = parse_expr_tmplab(&s);
s = skip(s);
if (*s == ',') {
s = skip(s+1);
max = parse_constexpr(&s);
}
}
if (!mode)
mode = CPU_DEF_ALIGN;
do_align(mode==1?align:(1<<align),fill,max);
eol(s);
}
static void ifexp(char *s,int c)
{
taddr val = parse_constexpr(&s);
int b;
switch (c) {
case 0: b = val == 0; break;
case 1: b = val != 0; break;
case 2: b = val > 0; break;
case 3: b = val >= 0; break;
case 4: b = val < 0; break;
case 5: b = val <= 0; break;
default: ierror(0); break;
}
cond[++clev] = b;
eol(s);
}
static void handle_stabn(char *s)
{
int t,o,d;
t = parse_constexpr(&s);
o = comma_constexpr(&s);
d = comma_constexpr(&s);
s = skip(s);
if (*s == ',') {
s = skip(s+1);
stab_entry(NULL,t,o,d,s);
s = skip_operand(s);
}
else
syntax_error(9);
eol(s);
}
static void handle_org(char *s)
{
if (*s == current_pc_char) { /* "* = * + <expr>" reserves bytes */
s = skip(s+1);
if (*s == '+') {
add_atom(0,new_space_atom(parse_expr_tmplab(&s),1,0));
}
else {
syntax_error(18); /* syntax error */
return;
}
}
else {
new_org(parse_constexpr(&s));
}
eol(s);
}
static void new_bss(char *s,int global)
{
char *name;
symbol *sym;
atom *a;
taddr size;
section *bss;
if(!(name=parse_identifier(&s))){
syntax_error(10); /* identifier expected */
return;
}
size=comma_constexpr(&s);
if(size<=sdlimit){
if(!(bss=find_section(sbssname,sbssattr)))
bss=new_section(sbssname,sbssattr,1);
}
else{
if(!(bss=find_section(bssname,bssattr)))
bss=new_section(bssname,bssattr,1);
}
sym=new_labsym(bss,name);
sym->flags|=TYPE_OBJECT;
if(global) sym->flags|=EXPORT;
sym->size=number_expr(size);
myfree(name);
s=skip(s);
if(*s==','){
s=skip(s+1);
sym->align=parse_constexpr(&s);
}
else
sym->align=(size>=8)?8:4;
a=new_label_atom(sym);
if(sym->align)
a->align=sym->align;
add_atom(bss,a);
a=new_space_atom(number_expr(size),1,0);
if(sym->align)
a->align=sym->align;
add_atom(bss,a);
eol(s);
}
static void handle_comm(char *s)
{
char *name;
symbol *sym;
if (alloccommon){
new_bss(s,1);
return;
}
if(!(name=parse_identifier(&s))){
syntax_error(10); /* identifier expected */
return;
}
sym=new_import(name);
myfree(name);
s=skip(s);
if(*s==',')
s=skip(s+1);
else
syntax_error(9);
if (!(sym->size=parse_expr(&s)))
return;
simplify_expr(sym->size);
if(sym->size->type!=NUM){
syntax_error(12);
return;
}
sym->flags|=COMMON|TYPE_OBJECT;
s=skip(s);
if(*s==','){
s=skip(s+1);
sym->align=parse_constexpr(&s);
}
else
sym->align=(sym->size->c.val>=8)?8:4;
eol(s);
}
static void handle_rept(char *s)
{
new_repeat((int)parse_constexpr(&s),rept_dirlist,endr_dirlist);
eol(s);
}
