d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

some more Minix squeezing

Browse source
This commit is contained in:
ceriel 1989-10-20 11:58:37 +00:00
parent 78d3e500fb
commit d6fa6357f2
3 changed files with 51 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/cem/cemcom.ansi/ch3mon.c
View file

@ -123,7 +123,7 @@ ch3mon(oper, expp)
(*expp)->VL_VALUE = (oper == '-') ? -o1 : (*expp)->VL_VALUE = (oper == '-') ? -o1 :
((*expp)->ex_type->tp_unsigned ? ((*expp)->ex_type->tp_unsigned ?
(~o1) & full_mask[(*expp)->ex_type->tp_size] : (~o1) & full_mask[(int)(*expp)->ex_type->tp_size] :
~o1 ~o1
); );
} }

105
lang/cem/cemcom.ansi/field.c
View file

@ -28,7 +28,6 @@
#include "field.h" #include "field.h"
arith NewLocal(); /* util.c */ arith NewLocal(); /* util.c */
char *symbol2str(); /* symbol2str.c */
extern arith full_mask[]; /* cstoper.c */ extern arith full_mask[]; /* cstoper.c */
/* Eval_field() evaluates expressions involving bit fields. /* Eval_field() evaluates expressions involving bit fields.
@ -64,35 +63,7 @@ eval_field(expr, code)
ASSERT(tp == rightop->ex_type); ASSERT(tp == rightop->ex_type);
EVAL(rightop, RVAL, TRUE, NO_LABEL, NO_LABEL); EVAL(rightop, RVAL, TRUE, NO_LABEL, NO_LABEL);
conversion(tp, atype); conversion(tp, atype);
C_loc(fd->fd_mask); store_field(fd, tp->tp_unsigned, code, leftop, (arith) 0);
C_and(word_size);
if (code == TRUE)
C_dup(word_size);
C_loc((arith)fd->fd_shift);
if (atype->tp_unsigned)
C_slu(word_size);
else
C_sli(word_size);
C_loc(~((fd->fd_mask << fd->fd_shift) | ~full_mask[(int)word_size]));
if (leftop->ex_depth == 0) { /* simple case */
load_val(leftop, RVAL);
C_and(word_size);
C_ior(word_size);
store_val(&(leftop->EX_VALUE), atype);
}
else { /* complex case */
tmpvar = NewLocal(pointer_size, pointer_align,
reg_pointer, 0);
EVAL(leftop, LVAL, TRUE, NO_LABEL, NO_LABEL);
C_dup(pointer_size);
StoreLocal(tmpvar, pointer_size);
C_loi(word_size);
C_and(word_size);
C_ior(word_size);
LoadLocal(tmpvar, pointer_size);
C_sti(word_size);
FreeLocal(tmpvar);
}
} }
else { /* treat ++F as F += 1 and --F as F -= 1 */ else { /* treat ++F as F += 1 and --F as F -= 1 */
/* F op= e: f = (((((f>>shift)&mask) op e)&mask)<<shift)| /* F op= e: f = (((((f>>shift)&mask) op e)&mask)<<shift)|
@ -115,10 +86,10 @@ eval_field(expr, code)
C_and(word_size); C_and(word_size);
} }
else { else {
arith bits_in_type = word_size * 8; arith sft = word_size * 8 - fd->fd_width;
C_loc(bits_in_type - (fd->fd_width + fd->fd_shift)); C_loc(sft - fd->fd_shift);
C_sli(word_size); C_sli(word_size);
C_loc(bits_in_type - fd->fd_width); C_loc(sft);
C_sri(word_size); C_sri(word_size);
} }
if (code == TRUE && (op == POSTINCR || op == POSTDECR)) if (code == TRUE && (op == POSTINCR || op == POSTDECR))
@ -134,31 +105,9 @@ eval_field(expr, code)
else else
assop(rightop->ex_type, op); assop(rightop->ex_type, op);
conversion(rightop->ex_type, atype); conversion(rightop->ex_type, atype);
C_loc(fd->fd_mask); store_field(fd, atype->tp_unsigned,
C_and(word_size); code == TRUE && op != POSTINCR && op != POSTDECR,
if (code == TRUE && op != POSTINCR && op != POSTDECR) leftop, tmpvar);
C_dup(word_size);
C_loc((arith)fd->fd_shift);
if (atype->tp_unsigned)
C_slu(word_size);
else
C_sli(word_size);
C_loc(~((fd->fd_mask << fd->fd_shift) | ~full_mask[(int)word_size]));
if (leftop->ex_depth == 0) {
load_val(leftop, RVAL);
C_and(word_size);
C_ior(word_size);
store_val(&(leftop->EX_VALUE), atype);
}
else {
LoadLocal(tmpvar, pointer_size);
C_loi(word_size);
C_and(word_size);
C_ior(word_size);
LoadLocal(tmpvar, pointer_size);
C_sti(word_size);
FreeLocal(tmpvar);
}
} }
if (code == TRUE) { if (code == TRUE) {
/* Take care that the effective value stored in /* Take care that the effective value stored in
@ -176,6 +125,46 @@ eval_field(expr, code)
conversion(atype, expr->ex_type); conversion(atype, expr->ex_type);
} }
} }
store_field(fd, uns, code, leftop, tmpvar)
register struct field *fd;
int uns;
int code;
register struct expr *leftop;
arith tmpvar;
{
C_loc(fd->fd_mask);
C_and(word_size);
if (code == TRUE)
C_dup(word_size);
C_loc((arith)fd->fd_shift);
if (uns)
C_slu(word_size);
else
C_sli(word_size);
C_loc(~((fd->fd_mask << fd->fd_shift) | ~full_mask[(int)word_size]));
if (leftop->ex_depth == 0) { /* simple case */
load_val(leftop, RVAL);
C_and(word_size);
C_ior(word_size);
store_val(&(leftop->EX_VALUE), uns ? uword_type : word_type);
}
else { /* complex case */
if (! tmpvar) {
tmpvar = NewLocal(pointer_size, pointer_align,
reg_pointer, 0);
EVAL(leftop, LVAL, TRUE, NO_LABEL, NO_LABEL);
StoreLocal(tmpvar, pointer_size);
}
LoadLocal(tmpvar, pointer_size);
C_loi(word_size);
C_and(word_size);
C_ior(word_size);
LoadLocal(tmpvar, pointer_size);
C_sti(word_size);
FreeLocal(tmpvar);
}
}
#endif NOBITFIELD #endif NOBITFIELD
#endif LINT #endif LINT

4
lang/cem/cemcom.ansi/util.c
View file

@ -64,7 +64,7 @@ NewLocal(sz, al, regtype, sc)
{ {
register struct localvar *tmp = FreeTmps; register struct localvar *tmp = FreeTmps;
struct localvar *prev = 0; struct localvar *prev = 0;
register int index; int index;
while (tmp) { while (tmp) {
if (tmp->t_align >= al && if (tmp->t_align >= al &&
@ -149,10 +149,12 @@ LocalFinish()
} }
regs[i] = 0; regs[i] = 0;
} }
#ifdef PEEPHOLE
if (! options['n']) { if (! options['n']) {
C_mes_begin(ms_reg); C_mes_begin(ms_reg);
C_mes_end(); C_mes_end();
} }
#endif
#ifdef USE_TMP #ifdef USE_TMP
C_endpart(loc_id); C_endpart(loc_id);
#endif #endif