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

Add function prototypes.

Browse source
This commit is contained in:
carl 2019-03-25 00:12:21 +08:00
parent 5295049b16
commit dcc2be5e8c
2 changed files with 28 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
mach/pdp/as/mach1.c
View file

@ -36,4 +36,11 @@ extern expr_t exp_1, exp_2;
extern int rel_1, rel_2; extern int rel_1, rel_2;
extern int im1flag INIT(0); extern int im1flag INIT(0);
extern int im2flag INIT(0); extern int im2flag INIT(0);
extern valu_t adjust();
void op1(int mode);
void op2(int mode);
void branch(int opc,expr_t exp);
void ejump(int opc, expr_t exp);
void sob(int reg, expr_t exp);
int jump(int opc,int opr);
valu_t adjust(expr_t exp);

32
mach/pdp/as/mach5.c
View file

@ -6,7 +6,8 @@
* *
*/ */
op1(mode) { void op1(int mode)
{
int relpc = 0; int relpc = 0;
if (im1flag) { if (im1flag) {
if (mode == 067 || mode == 077) { if (mode == 067 || mode == 077) {
@ -23,7 +24,8 @@ op1(mode) {
} }
} }
op2(mode) { void op2(int mode)
{
int relpc = 0; int relpc = 0;
if (im2flag) { if (im2flag) {
if (mode == 067 || mode == 077) { if (mode == 067 || mode == 077) {
@ -40,9 +42,10 @@ op2(mode) {
} }
} }
branch(opc,exp) expr_t exp; { void branch(int opc,expr_t exp)
register eval; {
register sm; register int eval;
register int sm;
eval = adjust(exp) >> 1; eval = adjust(exp) >> 1;
sm = fitb(eval); sm = fitb(eval);
@ -53,8 +56,9 @@ branch(opc,exp) expr_t exp; {
emit2(opc | lowb(eval)); emit2(opc | lowb(eval));
} }
ejump(opc, exp) expr_t exp; { void ejump(int opc, expr_t exp)
register sm,eval; {
register int sm,eval;
int gain; int gain;
# ifdef THREE_PASS # ifdef THREE_PASS
@ -82,7 +86,8 @@ ejump(opc, exp) expr_t exp; {
# endif # endif
} }
sob(reg, exp) expr_t exp; { void sob(int reg, expr_t exp)
{
if ((exp.typ & ~S_DOT) != DOTTYP) { if ((exp.typ & ~S_DOT) != DOTTYP) {
serror("error in sob-label"); serror("error in sob-label");
} }
@ -91,12 +96,13 @@ sob(reg, exp) expr_t exp; {
emit2( OPSOB | (reg << 6) | exp.val); emit2( OPSOB | (reg << 6) | exp.val);
} }
jump(opc,opr) { int jump(int opc,int opr)
register val; {
register int val;
# ifdef THREE_PASS # ifdef THREE_PASS
if (opr==067) { if (opr==067) {
register sm = 0; register int sm = 0;
val = adjust(exp_1) >> 1; val = adjust(exp_1) >> 1;
if ( fitb(val) && (exp_1.typ & ~S_DOT) == DOTTYP) { if ( fitb(val) && (exp_1.typ & ~S_DOT) == DOTTYP) {
@ -111,9 +117,11 @@ jump(opc,opr) {
# endif # endif
emit2(opc | opr); emit2(opc | opr);
op1(opr); op1(opr);
return(0);
} }
valu_t adjust(exp) expr_t exp; { valu_t adjust(expr_t exp)
{
valu_t val; valu_t val;
val = exp.val - DOTVAL - 2; val = exp.val - DOTVAL - 2;