some minor changes
This commit is contained in:
parent
e0fc646222
commit
dc5a744d8d
4 changed files with 24 additions and 22 deletions
|
@ -858,6 +858,6 @@ C_trp ==> "jsr (.trp)".
|
||||||
|
|
||||||
prolog ==> .
|
prolog ==> .
|
||||||
|
|
||||||
jump ==> "jmp $1".
|
jump ==> "bra $1".
|
||||||
|
|
||||||
locals ==> "link a6, #-$1".
|
locals ==> "link a6, #-$1".
|
||||||
|
|
|
@ -18,8 +18,8 @@ char *m;
|
||||||
|
|
||||||
|
|
||||||
process_operand( str, op)
|
process_operand( str, op)
|
||||||
char *str;
|
register char *str;
|
||||||
struct t_operand *op;
|
register struct t_operand *op;
|
||||||
{
|
{
|
||||||
char *glob_lbl();
|
char *glob_lbl();
|
||||||
|
|
||||||
|
@ -171,7 +171,7 @@ char *reg;
|
||||||
}
|
}
|
||||||
|
|
||||||
int is_reg( str)
|
int is_reg( str)
|
||||||
char *str;
|
register char *str;
|
||||||
{
|
{
|
||||||
switch ( *str) {
|
switch ( *str) {
|
||||||
case 'a' :
|
case 'a' :
|
||||||
|
@ -187,9 +187,9 @@ char *str;
|
||||||
char *glob_lbl( lbl)
|
char *glob_lbl( lbl)
|
||||||
char *lbl;
|
char *lbl;
|
||||||
{
|
{
|
||||||
char *gl, *malloc();
|
char *gl, *Malloc();
|
||||||
|
|
||||||
gl = malloc( strlen( lbl) + 3);
|
gl = Malloc( strlen( lbl) + 3);
|
||||||
sprintf( gl, "\"%s\"", lbl);
|
sprintf( gl, "\"%s\"", lbl);
|
||||||
return( gl);
|
return( gl);
|
||||||
}
|
}
|
||||||
|
@ -199,7 +199,7 @@ char *lbl;
|
||||||
|
|
||||||
|
|
||||||
int mode_reg( eaddr)
|
int mode_reg( eaddr)
|
||||||
struct t_operand *eaddr;
|
register struct t_operand *eaddr;
|
||||||
{
|
{
|
||||||
switch ( eaddr->type) {
|
switch ( eaddr->type) {
|
||||||
case IS_A_REG : return( 0x08 | eaddr->reg);
|
case IS_A_REG : return( 0x08 | eaddr->reg);
|
||||||
|
@ -240,7 +240,7 @@ struct t_operand *eaddr;
|
||||||
|
|
||||||
|
|
||||||
code_extension( eaddr)
|
code_extension( eaddr)
|
||||||
struct t_operand *eaddr;
|
register struct t_operand *eaddr;
|
||||||
{
|
{
|
||||||
|
|
||||||
switch ( eaddr->type) {
|
switch ( eaddr->type) {
|
||||||
|
@ -341,9 +341,9 @@ struct t_operand *dst;
|
||||||
|
|
||||||
|
|
||||||
int two_log( nr)
|
int two_log( nr)
|
||||||
int nr;
|
register int nr;
|
||||||
{
|
{
|
||||||
int log;
|
register int log;
|
||||||
|
|
||||||
for ( log = 0; nr >= 2; nr >>= 1)
|
for ( log = 0; nr >= 2; nr >>= 1)
|
||||||
log++;
|
log++;
|
||||||
|
|
|
@ -1,8 +1,8 @@
|
||||||
#define BYTES_REVERSED
|
#define BYTES_REVERSED
|
||||||
#define WORDS_REVERSED
|
#define WORDS_REVERSED
|
||||||
|
|
||||||
#define ONE_BYTE char
|
#define ONE_BYTE int
|
||||||
#define TWO_BYTES short
|
#define TWO_BYTES int
|
||||||
#define FOUR_BYTES long
|
#define FOUR_BYTES long
|
||||||
|
|
||||||
#define EM_WSIZE 4
|
#define EM_WSIZE 4
|
||||||
|
@ -13,10 +13,12 @@
|
||||||
|
|
||||||
#define NAME_FMT "_%s"
|
#define NAME_FMT "_%s"
|
||||||
#define DNAM_FMT "_%s"
|
#define DNAM_FMT "_%s"
|
||||||
#define DLB_FMT "_%ld"
|
#define DLB_FMT "I_%ld"
|
||||||
#define ILB_FMT "I%x_%lx"
|
#define ILB_FMT "I%x_%lx"
|
||||||
#define HOL_FMT "hol%d"
|
#define HOL_FMT "hol%d"
|
||||||
|
|
||||||
|
#define GENLAB 'I'
|
||||||
|
|
||||||
#define ALIGN_FMT ".align\n"
|
#define ALIGN_FMT ".align\n"
|
||||||
|
|
||||||
#define BYTE_FMT ".data1 %ld\n"
|
#define BYTE_FMT ".data1 %ld\n"
|
||||||
|
|
|
@ -18,8 +18,8 @@ char *m;
|
||||||
|
|
||||||
|
|
||||||
process_operand( str, op)
|
process_operand( str, op)
|
||||||
char *str;
|
register char *str;
|
||||||
struct t_operand *op;
|
register struct t_operand *op;
|
||||||
{
|
{
|
||||||
char *glob_lbl();
|
char *glob_lbl();
|
||||||
|
|
||||||
|
@ -171,7 +171,7 @@ char *reg;
|
||||||
}
|
}
|
||||||
|
|
||||||
int is_reg( str)
|
int is_reg( str)
|
||||||
char *str;
|
register char *str;
|
||||||
{
|
{
|
||||||
switch ( *str) {
|
switch ( *str) {
|
||||||
case 'a' :
|
case 'a' :
|
||||||
|
@ -187,9 +187,9 @@ char *str;
|
||||||
char *glob_lbl( lbl)
|
char *glob_lbl( lbl)
|
||||||
char *lbl;
|
char *lbl;
|
||||||
{
|
{
|
||||||
char *gl, *malloc();
|
char *gl, *Malloc();
|
||||||
|
|
||||||
gl = malloc( strlen( lbl) + 3);
|
gl = Malloc( strlen( lbl) + 3);
|
||||||
sprintf( gl, "\"%s\"", lbl);
|
sprintf( gl, "\"%s\"", lbl);
|
||||||
return( gl);
|
return( gl);
|
||||||
}
|
}
|
||||||
|
@ -199,7 +199,7 @@ char *lbl;
|
||||||
|
|
||||||
|
|
||||||
int mode_reg( eaddr)
|
int mode_reg( eaddr)
|
||||||
struct t_operand *eaddr;
|
register struct t_operand *eaddr;
|
||||||
{
|
{
|
||||||
switch ( eaddr->type) {
|
switch ( eaddr->type) {
|
||||||
case IS_A_REG : return( 0x08 | eaddr->reg);
|
case IS_A_REG : return( 0x08 | eaddr->reg);
|
||||||
|
@ -240,7 +240,7 @@ struct t_operand *eaddr;
|
||||||
|
|
||||||
|
|
||||||
code_extension( eaddr)
|
code_extension( eaddr)
|
||||||
struct t_operand *eaddr;
|
register struct t_operand *eaddr;
|
||||||
{
|
{
|
||||||
|
|
||||||
switch ( eaddr->type) {
|
switch ( eaddr->type) {
|
||||||
|
@ -341,9 +341,9 @@ struct t_operand *dst;
|
||||||
|
|
||||||
|
|
||||||
int two_log( nr)
|
int two_log( nr)
|
||||||
int nr;
|
register int nr;
|
||||||
{
|
{
|
||||||
int log;
|
register int log;
|
||||||
|
|
||||||
for ( log = 0; nr >= 2; nr >>= 1)
|
for ( log = 0; nr >= 2; nr >>= 1)
|
||||||
log++;
|
log++;
|
||||||
|
|
Loading…
Reference in a new issue