tasm.c

/*  Test-language for vbcc. */

#include "supp.h"

struct Var *fv;

struct Typ tint,mfunc;
struct struct_declaration msd; /* initialized to zero */

void raus(void)
{
    while(fv){
        struct Var *m=fv->next;
        free(fv);
        fv=m;
    }
    while(first_ic){
        struct IC *m=first_ic->next;
        free(first_ic);
        first_ic=m;
    }
    exit(0);
}
void add_IC(struct IC *new)
{
    new->next=0;
    new->prev=last_ic;
    new->change_cnt=new->use_cnt=0;
    new->change_list=new->use_list=0;
    new->line=0;
    new->file=0;
    if(!last_ic){
        first_ic=new;
    }else{
        last_ic->next=new;
    }
    last_ic=new;
}
struct Var *add_var(char *name,struct Typ *t,int sc)
{
    struct Var *v=mymalloc(sizeof(*v));
    v->vtyp=t;
    v->storage_class=sc;
    v->reg=0;
    v->identifier=name;
    v->offset=max_offset;
    if(sc==AUTO) max_offset=zmadd(max_offset,sizetab[t->flags&NQ]);
    v->priority=1;
    v->flags=0;
    v->next=fv;
    v->clist=0;
    v->fi=0;
    v->inline_copy=0;
    fv=v;
    return v;
}
struct Var *add_tmp_var(struct Typ *t)
{
    return add_var(empty,t,AUTO);
}
struct Var *get_var(char *name)
{
    struct Var *v;char *buf;
    for(v=fv;v;v=v->next){
        if(!strcmp(name,v->identifier)) return v;
    }
    buf=mymalloc(strlen(name)+1);
    strcpy(buf,name);
    return add_var(buf,&tint,AUTO);
}

void read_ics()
{
    char s[400],q1[100],q2[100],z[100],op;
    struct IC *new;
    gets(s);
    while(sscanf(s,"%99s = %99s %c %99s",z,q1,&op,q2)==4){
        new=new_IC();
        switch(op){
            case '+': new->code=ADD;break;
            case '*': new->code=MULT;break;
            case '-': new->code=SUB;break;
            case '/': new->code=DIV;break;
            default: return;
        }
        new->typf=INT;
        new->q1.flags=new->q2.flags=new->z.flags=VAR;
        new->q1.am=new->q2.am=new->z.am=0;
        new->q1.val.vmax=l2zm(0L);
        new->q2.val.vmax=l2zm(0L);
        new->z.val.vmax=l2zm(0L);
        new->q1.v=get_var(q1);
        new->q2.v=get_var(q2);
        new->z.v=get_var(z);
        add_IC(new);
        gets(s);
    }
}
void error(int n,...)
{
    printf("error %d\n",n);
    raus();
}
void savescratch()
{}

main()
{
    struct Var *main;
    max_offset=l2zm(0L);
    if(!init_cg()) raus();
    tint.flags=INT;
    tint.next=0;
    mfunc.flags=FUNKT;
    mfunc.next=∭
    mfunc.exact=&msd;
    main=add_var("main",&mfunc,EXTERN);
    read_ics();
    printf("optflags: ");
    scanf("%ld",&optflags);
    pric(stdout,first_ic);
    vl1=vl3=0;
    vl2=fv;
    optimize(optflags,main);
    pric(stdout,first_ic);
    gen_code(stdout,first_ic,main,max_offset);
    raus();
}