2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | #include "global.h"
#include "types.h"
#include "language.h"
#include "stralloc.h"
#include "dynamic_buffer.h"
#include "program.h"
#include "las.h"
#include "docode.h"
#include "main.h"
#include "error.h"
#include "lex.h"
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | #include "peep.h"
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
struct p_instr_s
{
short opcode;
short line;
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | struct pike_string *file;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | INT32 arg;
};
typedef struct p_instr_s p_instr;
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | static void asm_opt(void);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
dynamic_buffer instrbuf;
|
2d1234 | 1997-03-10 | Fredrik Hübinette (Hubbe) | | static int hasarg(int opcode)
{
return instrs[opcode-F_OFFSET].flags & I_HASARG;
}
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
void init_bytecode()
{
|
e43ca2 | 1996-11-15 | Fredrik Hübinette (Hubbe) | | low_reinit_buf(&instrbuf);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }
void exit_bytecode()
{
INT32 e,length;
p_instr *c;
c=(p_instr *)instrbuf.s.str;
length=instrbuf.s.len / sizeof(p_instr);
for(e=0;e<length;e++) free_string(c->file);
toss_buffer(&instrbuf);
}
int insert_opcode(unsigned int f,
INT32 b,
INT32 current_line,
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | struct pike_string *current_file)
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | {
p_instr *p;
#ifdef DEBUG
if(!hasarg(f) && b)
fatal("hasarg() is wrong!\n");
#endif
p=(p_instr *)low_make_buf_space(sizeof(p_instr), &instrbuf);
#ifdef DEBUG
if(!instrbuf.s.len)
fatal("Low make buf space failed!!!!!!\n");
#endif
p->opcode=f;
p->line=current_line;
copy_shared_string(p->file, current_file);
p->arg=b;
return p - (p_instr *)instrbuf.s.str;
}
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | int insert_opcode2(int f,int current_line, struct pike_string *current_file)
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | {
#ifdef DEBUG
if(hasarg(f))
fatal("hasarg() is wrong!\n");
#endif
return insert_opcode(f,0,current_line, current_file);
}
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | |
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | void update_arg(int instr,INT32 arg)
{
p_instr *p;
#ifdef DEBUG
|
645e26 | 1996-04-23 | Fredrik Hübinette (Hubbe) | | if(instr > (long)instrbuf.s.len / (long)sizeof(p_instr) || instr < 0)
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | fatal("update_arg outside known space.\n");
#endif
p=(p_instr *)instrbuf.s.str;
p[instr].arg=arg;
}
void ins_f_byte(unsigned int b)
{
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | if(store_linenumbers && b<F_MAX_OPCODE)
ADD_COMPILED(b);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | b-=F_OFFSET;
|
e82b30 | 1997-01-29 | Fredrik Hübinette (Hubbe) | | #ifdef DEBUG
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | if(b>255)
|
e82b30 | 1997-01-29 | Fredrik Hübinette (Hubbe) | | error("Instruction too big %d\n",b);
#endif
|
16a4b0 | 1997-06-25 | Fredrik Hübinette (Hubbe) | | add_to_program((unsigned char)b);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }
static void ins_f_byte_with_arg(unsigned int a,unsigned INT32 b)
{
switch(b >> 8)
{
case 0 : break;
case 1 : ins_f_byte(F_PREFIX_256); break;
case 2 : ins_f_byte(F_PREFIX_512); break;
case 3 : ins_f_byte(F_PREFIX_768); break;
case 4 : ins_f_byte(F_PREFIX_1024); break;
default:
if( b < 256*256)
{
ins_f_byte(F_PREFIX_CHARX256);
|
16a4b0 | 1997-06-25 | Fredrik Hübinette (Hubbe) | | add_to_program(b>>8);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }else if(b < 256*256*256) {
ins_f_byte(F_PREFIX_WORDX256);
|
16a4b0 | 1997-06-25 | Fredrik Hübinette (Hubbe) | | add_to_program(b >> 16);
add_to_program(b >> 8);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }else{
ins_f_byte(F_PREFIX_24BITX256);
|
16a4b0 | 1997-06-25 | Fredrik Hübinette (Hubbe) | | add_to_program(b >> 24);
add_to_program(b >> 16);
add_to_program(b >> 8);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }
}
ins_f_byte(a);
|
16a4b0 | 1997-06-25 | Fredrik Hübinette (Hubbe) | | add_to_program(b);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | void assemble(void)
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | {
INT32 e,d,length,max_label,tmp;
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | INT32 *labels, *jumps, *uses;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | p_instr *c;
c=(p_instr *)instrbuf.s.str;
length=instrbuf.s.len / sizeof(p_instr);
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | max_label=-1;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | for(e=0;e<length;e++,c++)
if(c->opcode == F_LABEL)
if(c->arg > max_label)
max_label = c->arg;
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | |
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | labels=(INT32 *)xalloc(sizeof(INT32) * (max_label+1));
jumps=(INT32 *)xalloc(sizeof(INT32) * (max_label+1));
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | uses=(INT32 *)xalloc(sizeof(INT32) * (max_label+1));
for(e=0;e<=max_label;e++)
{
labels[e]=jumps[e]=-1;
uses[e]=0;
}
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | c=(p_instr *)instrbuf.s.str;
for(e=0;e<length;e++)
if(c[e].opcode == F_LABEL)
labels[c[e].arg]=e;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | for(e=0;e<length;e++)
{
|
2d1234 | 1997-03-10 | Fredrik Hübinette (Hubbe) | | if(instrs[c[e].opcode-F_OFFSET].flags & I_POINTER)
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | {
while(1)
{
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | int tmp,tmp2;
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | tmp=labels[c[e].arg];
while(c[tmp].opcode == F_LABEL ||
c[tmp].opcode == F_NOP) tmp++;
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | if(c[tmp].opcode==F_BRANCH)
{
c[e].arg=c[tmp].arg;
continue;
}
#define TWOO(X,Y) (((X)<<8)+(Y))
switch(TWOO(c[e].opcode,c[tmp].opcode))
{
case TWOO(F_LOR,F_BRANCH_WHEN_NON_ZERO):
c[e].opcode=F_BRANCH_WHEN_NON_ZERO;
case TWOO(F_LOR,F_LOR):
c[e].arg=c[tmp].arg;
continue;
case TWOO(F_LAND,F_BRANCH_WHEN_ZERO):
c[e].opcode=F_BRANCH_WHEN_ZERO;
case TWOO(F_LAND,F_LAND):
c[e].arg=c[tmp].arg;
continue;
}
break;
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | }
uses[c[e].arg]++;
}
}
for(e=0;e<=max_label;e++)
if(!uses[e] && labels[e]>=0)
c[labels[e]].opcode=F_NOP;
asm_opt();
c=(p_instr *)instrbuf.s.str;
length=instrbuf.s.len / sizeof(p_instr);
for(e=0;e<=max_label;e++) labels[e]=jumps[e]=-1;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | c=(p_instr *)instrbuf.s.str;
for(e=0;e<length;e++)
{
#ifdef DEBUG
if(a_flag > 2 && store_linenumbers)
{
if(hasarg(c->opcode))
fprintf(stderr,"===%3d %4x %s(%d)\n",c->line,PC,get_token_name(c->opcode),c->arg);
else
fprintf(stderr,"===%3d %4x %s\n",c->line,PC,get_token_name(c->opcode));
}
#endif
if(store_linenumbers)
store_linenumber(c->line, c->file);
switch(c->opcode)
{
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | case F_NOP: break;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | case F_ALIGN:
|
16a4b0 | 1997-06-25 | Fredrik Hübinette (Hubbe) | | while(PC % c->arg) add_to_program(0);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | break;
|
e82b30 | 1997-01-29 | Fredrik Hübinette (Hubbe) | | case F_BYTE:
|
16a4b0 | 1997-06-25 | Fredrik Hübinette (Hubbe) | | add_to_program(c->arg);
|
e82b30 | 1997-01-29 | Fredrik Hübinette (Hubbe) | | break;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | case F_LABEL:
#ifdef DEBUG
if(c->arg > max_label || c->arg < 0)
fatal("max_label calculation failed!\n");
if(labels[c->arg] != -1)
fatal("Duplicate label!\n");
#endif
labels[c->arg]=PC;
break;
|
2d1234 | 1997-03-10 | Fredrik Hübinette (Hubbe) | | default:
switch(instrs[c->opcode - F_OFFSET].flags)
{
case I_ISJUMP:
ins_f_byte(c->opcode);
case I_ISPOINTER:
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | #ifdef DEBUG
|
2d1234 | 1997-03-10 | Fredrik Hübinette (Hubbe) | | if(c->arg > max_label || c->arg < 0) fatal("Jump to unknown label?\n");
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | #endif
|
2d1234 | 1997-03-10 | Fredrik Hübinette (Hubbe) | | tmp=PC;
|
16a4b0 | 1997-06-25 | Fredrik Hübinette (Hubbe) | | ins_int(jumps[c->arg],(void(*)(char))add_to_program);
|
2d1234 | 1997-03-10 | Fredrik Hübinette (Hubbe) | | jumps[c->arg]=tmp;
break;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
|
2d1234 | 1997-03-10 | Fredrik Hübinette (Hubbe) | | case I_HASARG:
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | ins_f_byte_with_arg(c->opcode, c->arg);
|
2d1234 | 1997-03-10 | Fredrik Hübinette (Hubbe) | | break;
case 0:
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | ins_f_byte(c->opcode);
|
2d1234 | 1997-03-10 | Fredrik Hübinette (Hubbe) | | break;
#ifdef DEBUG
default:
fatal("Unknown instruction type.\n");
#endif
}
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }
c++;
}
for(e=0;e<=max_label;e++)
{
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | int tmp2=labels[e];
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
while(jumps[e]!=-1)
{
#ifdef DEBUG
if(labels[e]==-1)
fatal("Hyperspace error: unknown jump point.\n");
#endif
tmp=read_int(jumps[e]);
upd_int(jumps[e], tmp2 - jumps[e]);
jumps[e]=tmp;
}
}
free((char *)labels);
free((char *)jumps);
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | free((char *)uses);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
exit_bytecode();
}
static int fifo_len, eye,len;
|
06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | static p_instr *instructions;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | int insopt(int f, INT32 b, int cl, struct pike_string *cf)
{
p_instr *p;
#ifdef DEBUG
if(!hasarg(f) && b)
fatal("hasarg() is wrong!\n");
#endif
p=(p_instr *)low_make_buf_space(sizeof(p_instr), &instrbuf);
if(fifo_len)
{
MEMMOVE(p-fifo_len+1,p-fifo_len,fifo_len*sizeof(p_instr));
p-=fifo_len;
fifo_len++;
}
#ifdef DEBUG
if(!instrbuf.s.len)
fatal("Low make buf space failed!!!!!!\n");
#endif
p->opcode=f;
|
e7df5b | 1997-03-17 | Fredrik Hübinette (Hubbe) | | p->line=cl;
|
16a4b0 | 1997-06-25 | Fredrik Hübinette (Hubbe) | | copy_shared_string(p->file, lex.current_file);
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | p->arg=b;
return p - (p_instr *)instrbuf.s.str;
}
int insopt2(int f, int cl, struct pike_string *cf)
{
#ifdef DEBUG
if(hasarg(f))
fatal("hasarg() is wrong!\n");
#endif
return insert_opcode(f,0,cl, cf);
}
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | static void debug()
{
|
645e26 | 1996-04-23 | Fredrik Hübinette (Hubbe) | | if(fifo_len > (long)instrbuf.s.len / (long)sizeof(p_instr))
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | fifo_len=(long)instrbuf.s.len / (long)sizeof(p_instr);
#ifdef DEBUG
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | if(eye < 0)
fatal("Popped beyond start of code.\n");
if(instrbuf.s.len)
{
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | p_instr *p;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | p=(p_instr *)low_make_buf_space(0, &instrbuf);
if(!p[-1].file)
fatal("No file name on last instruction!\n");
}
#endif
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | }
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
static p_instr *instr(int offset)
{
p_instr *p;
debug();
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | if(offset < fifo_len)
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | {
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | p=(p_instr *)low_make_buf_space(0, &instrbuf);
p-=fifo_len;
p+=offset;
if(((char *)p)<instrbuf.s.str) return 0;
return p;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }else{
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | offset-=fifo_len;
offset+=eye;
if(offset >= len) return 0;
return instructions+offset;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }
}
static int opcode(int offset)
{
p_instr *a;
a=instr(offset);
if(a) return a->opcode;
return -1;
}
static int argument(int offset)
{
p_instr *a;
a=instr(offset);
if(a) return a->arg;
return -1;
}
static void advance()
{
if(fifo_len)
{
fifo_len--;
}else{
p_instr *p;
|
9c6f7d | 1997-04-15 | Fredrik Hübinette (Hubbe) | | if((p=instr(0)))
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | insert_opcode(p->opcode, p->arg, p->line, p->file);
eye++;
}
debug();
}
static void pop_n_opcodes(int n)
{
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | int e,d;
if(fifo_len)
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | {
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | p_instr *p;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | |
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | d=n;
if(d>fifo_len) d=fifo_len;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | #ifdef DEBUG
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | if((long)d > (long)instrbuf.s.len / (long)sizeof(p_instr))
fatal("Popping out of instructions.\n");
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | #endif
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | |
p=(p_instr *)low_make_buf_space(0, &instrbuf);
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | p-=fifo_len;
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | for(e=0;e<d;e++) free_string(p[e].file);
fifo_len-=d;
if(fifo_len) MEMMOVE(p,p+d,fifo_len*sizeof(p_instr));
n-=d;
|
419fab | 1997-03-09 | Fredrik Hübinette (Hubbe) | | low_make_buf_space(-((INT32)sizeof(p_instr))*d, &instrbuf);
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | eye+=n;
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | }
|
66d51c | 1997-03-04 | Fredrik Hübinette (Hubbe) | | static void asm_opt(void)
|
2199ed | 1996-04-13 | Fredrik Hübinette (Hubbe) | | {
#ifdef DEBUG
if(a_flag > 3)
{
p_instr *c;
INT32 e,length;
c=(p_instr *)instrbuf.s.str;
length=instrbuf.s.len / sizeof(p_instr);
fprintf(stderr,"Optimization begins: \n");
for(e=0;e<length;e++,c++)
{
if(hasarg(c->opcode))
fprintf(stderr,"---%3d: %s(%d)\n",c->line,get_token_name(c->opcode),c->arg);
else
fprintf(stderr,"---%3d: %s\n",c->line,get_token_name(c->opcode));
}
}
#endif
#include "peep_engine.c"
#ifdef DEBUG
if(a_flag > 4)
{
p_instr *c;
INT32 e,length;
c=(p_instr *)instrbuf.s.str;
length=instrbuf.s.len / sizeof(p_instr);
fprintf(stderr,"Optimization begins: \n");
for(e=0;e<length;e++,c++)
{
if(hasarg(c->opcode))
fprintf(stderr,">>>%3d: %s(%d)\n",c->line,get_token_name(c->opcode),c->arg);
else
fprintf(stderr,">>>%3d: %s\n",c->line,get_token_name(c->opcode));
}
}
#endif
}
|