Added prototyping stuff

This commit is contained in:
ceriel 1993-11-10 10:26:07 +00:00
parent 31752a4617
commit abf052244b
53 changed files with 226 additions and 55 deletions

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_bhcst(op, n, w, i) CC_bhcst(op, n, w, i)
arith n; arith n;
arith w; arith w;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_bhdlb(op, n, s, off, i) CC_bhdlb(op, n, s, off, i)
arith n; arith n;
label s; label s;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_bhdnam(op, n, s, off, i) CC_bhdnam(op, n, s, off, i)
arith n; arith n;
char *s; char *s;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_bhfcon(op, n, s, sz, i) CC_bhfcon(op, n, s, sz, i)
arith n; arith n;
char *s; char *s;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_bhicon(op, n, s, sz, i) CC_bhicon(op, n, s, sz, i)
arith n; arith n;
char *s; char *s;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_bhilb(op, n, l, i) CC_bhilb(op, n, l, i)
arith n; arith n;
label l; label l;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_bhpnam(op, n, p, i) CC_bhpnam(op, n, p, i)
arith n; arith n;
char *p; char *p;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_bhucon(op, n, s, sz, i) CC_bhucon(op, n, s, sz, i)
arith n; arith n;
char *s; char *s;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_crcst(op, v) CC_crcst(op, v)
arith v; arith v;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_crdlb(op, v, off) CC_crdlb(op, v, off)
label v; label v;
arith off; arith off;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_crdnam(op, s, off) CC_crdnam(op, s, off)
char *s; char *s;
arith off; arith off;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_crilb(op, l) CC_crilb(op, l)
label l; label l;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_crpnam(op, p) CC_crpnam(op, p)
char *p; char *p;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_crscon(op, v, s) CC_crscon(op, v, s)
char *v; char *v;
arith s; arith s;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_crxcon(op, spec, v, s) CC_crxcon(op, spec, v, s)
char *v; char *v;
arith s; arith s;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_cst(l) CC_cst(l)
arith l; arith l;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_dfdlb(l) CC_dfdlb(l)
label l; label l;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_dfdnam(s) CC_dfdnam(s)
char *s; char *s;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_dfilb(l) CC_dfilb(l)
label l; label l;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_dlb(l, val) CC_dlb(l, val)
label l; label l;
arith val; arith val;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_dnam(str, val) CC_dnam(str, val)
char *str; char *str;
arith val; arith val;

View file

@ -46,6 +46,7 @@ char *C_current_out = obuf;
char *C_opp = obuf; char *C_opp = obuf;
#endif #endif
void
C_flush() { C_flush() {
#ifdef INCORE #ifdef INCORE
static unsigned int bufsiz; static unsigned int bufsiz;
@ -78,6 +79,7 @@ C_flush() {
#define Xputbyte(c) put(c) #define Xputbyte(c) put(c)
#endif #endif
void
C_putbyte(c) C_putbyte(c)
int c; int c;
{ {
@ -89,11 +91,13 @@ C_putbyte(c)
#endif #endif
/*ARGSUSED*/ /*ARGSUSED*/
void
C_init(w, p) C_init(w, p)
arith w, p; arith w, p;
{ {
} }
int
C_open(nm) C_open(nm)
char *nm; char *nm;
{ {
@ -108,6 +112,7 @@ C_open(nm)
return 1; return 1;
} }
void
C_close() C_close()
{ {
/* Finish the code-generation. /* Finish the code-generation.
@ -142,6 +147,7 @@ C_close()
C_ofp = 0; C_ofp = 0;
} }
int
C_busy() C_busy()
{ {
return C_ofp != 0; /* true if code is being generated */ return C_ofp != 0; /* true if code is being generated */
@ -156,6 +162,7 @@ C_busy()
names. names.
*/ */
void
C_magic() C_magic()
{ {
} }
@ -171,12 +178,14 @@ wrs(s)
} }
} }
void
C_pt_dnam(s) C_pt_dnam(s)
char *s; char *s;
{ {
wrs(s); wrs(s);
} }
void
C_pt_ilb(l) C_pt_ilb(l)
label l; label l;
{ {
@ -189,6 +198,7 @@ C_pt_ilb(l)
extern char em_mnem[][4]; extern char em_mnem[][4];
extern char em_pseu[][4]; extern char em_pseu[][4];
void
C_pt_op(x) C_pt_op(x)
{ {
C_putbyte(' '); C_putbyte(' ');
@ -196,6 +206,7 @@ C_pt_op(x)
C_putbyte(' '); C_putbyte(' ');
} }
void
C_pt_cst(l) C_pt_cst(l)
arith l; arith l;
{ {
@ -205,6 +216,7 @@ C_pt_cst(l)
wrs(buf); wrs(buf);
} }
void
C_pt_scon(x, y) C_pt_scon(x, y)
char *x; char *x;
arith y; arith y;
@ -224,6 +236,7 @@ C_pt_scon(x, y)
C_putbyte('\''); C_putbyte('\'');
} }
void
C_pt_ps(x) C_pt_ps(x)
{ {
C_putbyte(' '); C_putbyte(' ');
@ -231,6 +244,7 @@ C_pt_ps(x)
C_putbyte(' '); C_putbyte(' ');
} }
void
C_pt_dlb(l) C_pt_dlb(l)
label l; label l;
{ {
@ -240,6 +254,7 @@ C_pt_dlb(l)
wrs(buf); wrs(buf);
} }
void
C_pt_doff(l, v) C_pt_doff(l, v)
label l; label l;
arith v; arith v;
@ -253,6 +268,7 @@ C_pt_doff(l, v)
} }
} }
void
C_pt_noff(s, v) C_pt_noff(s, v)
char *s; char *s;
arith v; arith v;
@ -266,6 +282,7 @@ C_pt_noff(s, v)
} }
} }
void
C_pt_pnam(s) C_pt_pnam(s)
char *s; char *s;
{ {
@ -273,6 +290,7 @@ C_pt_pnam(s)
wrs(s); wrs(s);
} }
void
C_pt_dfilb(l) C_pt_dfilb(l)
label l; label l;
{ {
@ -282,6 +300,7 @@ C_pt_dfilb(l)
wrs(buf); wrs(buf);
} }
void
C_pt_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */ C_pt_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */
int sp; int sp;
char *v; char *v;
@ -294,9 +313,20 @@ C_pt_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */
C_pt_cst(sz); C_pt_cst(sz);
} }
C_pt_nl() { C_putbyte('\n'); } void
C_pt_comma() { C_putbyte(','); } C_pt_nl() {
C_pt_ccend() { C_putbyte('?'); } C_putbyte('\n');
}
void
C_pt_comma() {
C_putbyte(',');
}
void
C_pt_ccend() {
C_putbyte('?');
}
#else /* READABLE_EM */ #else /* READABLE_EM */
@ -312,6 +342,7 @@ C_pt_ccend() { C_putbyte('?'); }
names. names.
*/ */
void
C_magic() C_magic()
{ {
put16(sp_magic); put16(sp_magic);
@ -321,6 +352,7 @@ C_magic()
#define fit16i(x) ((x) >= (long)0xFFFF8000 && (x) <= (long)0x00007FFF) #define fit16i(x) ((x) >= (long)0xFFFF8000 && (x) <= (long)0x00007FFF)
#define fit8u(x) ((x) <= 0xFF) /* x is already unsigned */ #define fit8u(x) ((x) <= 0xFF) /* x is already unsigned */
void
C_pt_ilb(l) C_pt_ilb(l)
register label l; register label l;
{ {
@ -334,6 +366,7 @@ C_pt_ilb(l)
} }
} }
void
C_pt_dlb(l) C_pt_dlb(l)
register label l; register label l;
{ {
@ -347,6 +380,7 @@ C_pt_dlb(l)
} }
} }
void
C_pt_cst(l) C_pt_cst(l)
register arith l; register arith l;
{ {
@ -367,6 +401,7 @@ C_pt_cst(l)
} }
} }
void
C_pt_doff(l, v) C_pt_doff(l, v)
label l; label l;
arith v; arith v;
@ -381,6 +416,27 @@ C_pt_doff(l, v)
} }
} }
void
C_pt_str(s)
register char *s;
{
register int len;
C_pt_cst((arith) (len = strlen(s)));
while (--len >= 0) {
put8(*s++);
}
}
void
C_pt_dnam(s)
char *s;
{
put8(sp_dnam);
C_pt_str(s);
}
void
C_pt_noff(s, v) C_pt_noff(s, v)
char *s; char *s;
arith v; arith v;
@ -395,13 +451,7 @@ C_pt_noff(s, v)
} }
} }
C_pt_dnam(s) void
char *s;
{
put8(sp_dnam);
C_pt_str(s);
}
C_pt_pnam(s) C_pt_pnam(s)
char *s; char *s;
{ {
@ -409,6 +459,7 @@ C_pt_pnam(s)
C_pt_str(s); C_pt_str(s);
} }
void
C_pt_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */ C_pt_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */
int sp; int sp;
char *v; char *v;
@ -420,17 +471,7 @@ C_pt_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */
C_pt_str(v); C_pt_str(v);
} }
C_pt_str(s) void
register char *s;
{
register int len;
C_pt_cst((arith) (len = strlen(s)));
while (--len >= 0) {
put8(*s++);
}
}
C_pt_scon(b, n) C_pt_scon(b, n)
register char *b; register char *b;
register arith n; register arith n;

View file

@ -87,3 +87,61 @@
#ifndef sp_icon #ifndef sp_icon
#include <em_spec.h> #include <em_spec.h>
#endif #endif
/* prototypes, also hand written. */
_PROTOTYPE(void CC_bhcst, (int, arith, arith, int));
_PROTOTYPE(void CC_bhdlb, (int, arith, label, arith, int));
_PROTOTYPE(void CC_bhdnam, (int, arith, char *, arith, int));
_PROTOTYPE(void CC_bhfcon, (int, arith, char *, arith, int));
_PROTOTYPE(void CC_bhicon, (int, arith, char *, arith, int));
_PROTOTYPE(void CC_bhilb, (int, arith, label, int));
_PROTOTYPE(void CC_bhpnam, (int, arith, char *, int));
_PROTOTYPE(void CC_bhucon, (int, arith, char *, arith, int));
_PROTOTYPE(void CC_crcst, (int, arith));
_PROTOTYPE(void CC_crdlb, (int, label, arith));
_PROTOTYPE(void CC_crdnam, (int, char *, arith));
_PROTOTYPE(void CC_crilb, (int, label));
_PROTOTYPE(void CC_crpnam, (int, char *));
_PROTOTYPE(void CC_crscon, (int, char *, arith));
_PROTOTYPE(void CC_crxcon, (int, int, char *, arith));
_PROTOTYPE(void CC_cst, (arith));
_PROTOTYPE(void CC_dfdlb, (label));
_PROTOTYPE(void CC_dfdnam, (char *));
_PROTOTYPE(void CC_dfilb, (label));
_PROTOTYPE(void CC_dlb, (label, arith));
_PROTOTYPE(void CC_dnam, (char *, arith));
_PROTOTYPE(void CC_end, (arith));
_PROTOTYPE(void CC_endnarg, (void));
_PROTOTYPE(void CC_exc, (arith, arith));
_PROTOTYPE(void CC_fcon, (char *, arith));
_PROTOTYPE(void CC_icon, (char *, arith));
_PROTOTYPE(void CC_ilb, (label));
_PROTOTYPE(void CC_msend, (void));
_PROTOTYPE(void CC_msstart, (int));
_PROTOTYPE(void CC_op, (int));
_PROTOTYPE(void CC_opcst, (int, arith));
_PROTOTYPE(void CC_opdlb, (int, label, arith));
_PROTOTYPE(void CC_opdnam, (int, char *, arith));
_PROTOTYPE(void CC_opilb, (int, label));
_PROTOTYPE(void CC_opnarg, (int));
_PROTOTYPE(void CC_oppnam, (int, char *));
_PROTOTYPE(void CC_pnam, (char *));
_PROTOTYPE(void CC_pro, (char *, arith));
_PROTOTYPE(void CC_pronarg, (char *));
_PROTOTYPE(void CC_psdlb, (int, label));
_PROTOTYPE(void CC_psdnam, (int, char *));
_PROTOTYPE(void CC_pspnam, (int, char *));
_PROTOTYPE(void CC_scon, (char *, arith));
_PROTOTYPE(void CC_ucon, (char *, arith));
_PROTOTYPE(void C_init, (arith, arith));
_PROTOTYPE(void C_failed, (void));
_PROTOTYPE(void C_internal_error, (void));
_PROTOTYPE(int C_open, (char *));
_PROTOTYPE(void C_close, (void));
_PROTOTYPE(int C_busy, (void));
_PROTOTYPE(void C_magic, (void));
_PROTOTYPE(int C_getid, (void));
_PROTOTYPE(void C_insertpart, (int));
_PROTOTYPE(void C_beginpart, (int));
_PROTOTYPE(void C_endpart, (int));

View file

@ -6,61 +6,61 @@ emcode \- EM code interface for compilers
.nf .nf
.B #include <em.h> .B #include <em.h>
.PP .PP
.B C_init(wsize, psize) .B void C_init(wsize, psize)
.B arith wsize, psize; .B arith wsize, psize;
.PP .PP
.B int C_open(filename) .B int C_open(filename)
.B C_close() .B void C_close()
.B int C_busy() .B int C_busy()
.B char *filename; .B char *filename;
.PP .PP
.B C_magic() .B void C_magic()
.PP .PP
.B C_df_dlb(l) .B void C_df_dlb(l)
.B C_df_dnam(s) .B void C_df_dnam(s)
.B C_df_ilb(l) .B void C_df_ilb(l)
.B label l; char *s; .B label l; char *s;
.PP .PP
.B C_pro(s, l) .B void C_pro(s, l)
.B C_pro_narg(s) .B void C_pro_narg(s)
.B C_end(l) .B void C_end(l)
.B C_end_narg() .B void C_end_narg()
.B char *s; arith l; .B char *s; arith l;
.PP .PP
.B C_exa_dlb(l) .B void C_exa_dlb(l)
.B C_exa_dnam(s) .B void C_exa_dnam(s)
.B C_exp(s) .B void C_exp(s)
.B C_ina_dlb(l) .B void C_ina_dlb(l)
.B C_ina_dnam(s) .B void C_ina_dnam(s)
.B C_inp(s) .B void C_inp(s)
.B char *s; label l; .B char *s; label l;
.PP .PP
.BI C_bss_ cstp () .BI "void C_bss_" cstp ()
.BI C_hol_ cstp () .BI "void C_hol_" cstp ()
.BI C_con_ cstp () .BI "void C_con_" cstp ()
.BI C_rom_ cstp () .BI "void C_rom_" cstp ()
.PP .PP
.B #include <em_mes.h> .B #include <em_mes.h>
.B C_mes_begin(ms) .B void C_mes_begin(ms)
.BI C_ cstp () .BI "void C_" cstp ()
.B C_mes_end() .B void C_mes_end()
.B int ms; .B int ms;
.PP .PP
.B C_exc(c1, c2) .B void C_exc(c1, c2)
.B arith c1, c2; .B arith c1, c2;
.PP .PP
.BI C_ mnem () .BI "void C_" mnem ()
.BI C_ mnem _dlb() .BI "void C_" mnem _dlb()
.BI C_ mnem _dnam() .BI "void C_" mnem _dnam()
.BI C_ mnem _narg() .BI "void C_" mnem _narg()
.PP .PP
.B C_insertpart(id) .B void C_insertpart(id)
.B int id; .B int id;
.PP .PP
.B C_beginpart(id) .B void C_beginpart(id)
.B int id; .B int id;
.PP .PP
.B C_endpart(id) .B void C_endpart(id)
.B int id; .B int id;
.PP .PP
.B int C_getid() .B int C_getid()

View file

@ -14,6 +14,10 @@
#include <em_mnem.h> #include <em_mnem.h>
#include <em_reg.h> #include <em_reg.h>
#include <ansi.h>
#include "em_codeEK.h"
#ifdef READABLE_EM #ifdef READABLE_EM
/* macros used in the definitions of the interface functions C_* */ /* macros used in the definitions of the interface functions C_* */
#define OP(x) C_pt_op(x) #define OP(x) C_pt_op(x)
@ -64,3 +68,21 @@
#define C_pt_op(x) C_putbyte(x) #define C_pt_op(x) C_putbyte(x)
#define C_pt_ps(x) C_putbyte(x) #define C_pt_ps(x) C_putbyte(x)
#endif /* READABLE_EM */ #endif /* READABLE_EM */
_PROTOTYPE(void C_pt_dnam, (char *));
_PROTOTYPE(void C_pt_ilb, (label));
_PROTOTYPE(void C_pt_op, (int));
_PROTOTYPE(void C_pt_cst, (arith));
_PROTOTYPE(void C_pt_scon, (char *, arith));
_PROTOTYPE(void C_pt_ps, (int));
_PROTOTYPE(void C_pt_dlb, (label));
_PROTOTYPE(void C_pt_doff, (label, arith));
_PROTOTYPE(void C_pt_noff, (char *, arith));
_PROTOTYPE(void C_pt_pnam, (char *));
_PROTOTYPE(void C_pt_dfilb, (label));
_PROTOTYPE(void C_pt_wcon, (int, char *, arith));
#ifdef READABLE_EM
_PROTOTYPE(void C_pt_nl, (void));
_PROTOTYPE(void C_pt_comma, (void));
_PROTOTYPE(void C_pt_ccend, (void));
#endif /* READABLE_EM */

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_end(l) CC_end(l)
arith l; arith l;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_endnarg() CC_endnarg()
{ {
/* END pseudo of procedure with unknown # of locals /* END pseudo of procedure with unknown # of locals

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_exc(c1,c2) CC_exc(c1,c2)
arith c1,c2; arith c1,c2;
{ {

View file

@ -5,6 +5,7 @@
*/ */
#include <system.h> #include <system.h>
void
C_failed() C_failed()
{ {
sys_write(STDERR,"read, write, or open failed\n",28); sys_write(STDERR,"read, write, or open failed\n",28);

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_fcon(val, siz) CC_fcon(val, siz)
char *val; char *val;
arith siz; arith siz;

View file

@ -3,6 +3,7 @@
/* Get a unique id for C_insertpart, etc. /* Get a unique id for C_insertpart, etc.
*/ */
int
C_getid() C_getid()
{ {
static int id = 0; static int id = 0;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_icon(val, siz) CC_icon(val, siz)
char *val; char *val;
arith siz; arith siz;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_ilb(l) CC_ilb(l)
label l; label l;
{ {

View file

@ -302,6 +302,7 @@ resume(p)
pp->pp_begin = C_current_out - C_BASE; pp->pp_begin = C_current_out - C_BASE;
} }
void
C_insertpart(part) C_insertpart(part)
int part; int part;
{ {
@ -340,6 +341,7 @@ C_insertpart(part)
resume(p); resume(p);
} }
void
C_beginpart(part) C_beginpart(part)
int part; int part;
{ {
@ -359,6 +361,7 @@ C_beginpart(part)
resume(p); resume(p);
} }
void
C_endpart(part) C_endpart(part)
int part; int part;
{ {

View file

@ -5,6 +5,7 @@
*/ */
#include <system.h> #include <system.h>
void
C_internal_error() C_internal_error()
{ {
sys_write(STDERR,"internal error\n",15); sys_write(STDERR,"internal error\n",15);

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_msend() CC_msend()
{ {
CEND(); CEND();

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_msstart(cst) CC_msstart(cst)
int cst; int cst;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_op(opcode) CC_op(opcode)
{ {
/* Instruction that never has an argument /* Instruction that never has an argument

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_opcst(opcode, cst) CC_opcst(opcode, cst)
arith cst; arith cst;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_opdlb(opcode, dlb, offset) CC_opdlb(opcode, dlb, offset)
label dlb; label dlb;
arith offset; arith offset;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_opdnam(opcode, dnam, offset) CC_opdnam(opcode, dnam, offset)
char *dnam; char *dnam;
arith offset; arith offset;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_opilb(opcode, ilb) CC_opilb(opcode, ilb)
label ilb; label ilb;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_opnarg(opcode) CC_opnarg(opcode)
{ {
/* Instruction with optional argument, but now without one /* Instruction with optional argument, but now without one

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_oppnam(opcode, pnam) CC_oppnam(opcode, pnam)
char *pnam; char *pnam;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_pnam(str) CC_pnam(str)
char *str; char *str;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_pro(pnam, l) CC_pro(pnam, l)
char *pnam; char *pnam;
arith l; arith l;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_pronarg(pnam) CC_pronarg(pnam)
char *pnam; char *pnam;
{ {

View file

@ -6,7 +6,7 @@ ETC = $(SRC_HOME)/etc
SRC_DIR = $(SRC_HOME)/modules/src/em_code SRC_DIR = $(SRC_HOME)/modules/src/em_code
MOD_DIR = $(TARGET_HOME)/modules MOD_DIR = $(TARGET_HOME)/modules
INCLUDES = -I$(TARGET_HOME)/h -I$(TARGET_HOME)/config -I$(MOD_DIR)/h -I$(SRC_HOME)/modules/src/read_em -I$(SRC_DIR) INCLUDES = -I. -I$(TARGET_HOME)/h -I$(TARGET_HOME)/config -I$(MOD_DIR)/h -I$(SRC_HOME)/modules/src/read_em -I$(SRC_DIR)
CFLAGS = $(INCLUDES) $(COPTIONS) CFLAGS = $(INCLUDES) $(COPTIONS)
SRC = $(SRC_DIR)/bhcst.c\ SRC = $(SRC_DIR)/bhcst.c\
$(SRC_DIR)/bhdlb.c\ $(SRC_DIR)/bhdlb.c\
@ -64,11 +64,12 @@ OBS = failed.$(SUF) insert.$(SUF) internerr.$(SUF) getid.$(SUF)
all: em_codeEK.h libeme.$(LIBSUF) libemk.$(LIBSUF) em_code.3 all: em_codeEK.h libeme.$(LIBSUF) libemk.$(LIBSUF) em_code.3
install: all install: all
-mkdir $(MOD_DIR)/lib
-mkdir $(MOD_DIR)/h
cp libeme.$(LIBSUF) $(MOD_DIR)/lib/libeme.$(LIBSUF) cp libeme.$(LIBSUF) $(MOD_DIR)/lib/libeme.$(LIBSUF)
$(RANLIB) $(MOD_DIR)/lib/libeme.$(LIBSUF) $(RANLIB) $(MOD_DIR)/lib/libeme.$(LIBSUF)
cp libemk.$(LIBSUF) $(MOD_DIR)/lib/libemk.$(LIBSUF) cp libemk.$(LIBSUF) $(MOD_DIR)/lib/libemk.$(LIBSUF)
$(RANLIB) $(MOD_DIR)/lib/libemk.$(LIBSUF) $(RANLIB) $(MOD_DIR)/lib/libemk.$(LIBSUF)
cp em_code.3 $(MOD_DIR)/man/em_code.3
cp em_codeEK.h $(MOD_DIR)/h/em_codeEK.h cp em_codeEK.h $(MOD_DIR)/h/em_codeEK.h
if [ $(DO_MACHINE_INDEP) = y ] ; \ if [ $(DO_MACHINE_INDEP) = y ] ; \
then mk_manpage em_code.3 $(TARGET_HOME) ; \ then mk_manpage em_code.3 $(TARGET_HOME) ; \
@ -78,7 +79,6 @@ cmp: all
-cmp libeme.$(LIBSUF) $(MOD_DIR)/lib/libeme.$(LIBSUF) -cmp libeme.$(LIBSUF) $(MOD_DIR)/lib/libeme.$(LIBSUF)
-cmp libemk.$(LIBSUF) $(MOD_DIR)/lib/libemk.$(LIBSUF) -cmp libemk.$(LIBSUF) $(MOD_DIR)/lib/libemk.$(LIBSUF)
-cmp em_codeEK.h $(MOD_DIR)/h/em_codeEK.h -cmp em_codeEK.h $(MOD_DIR)/h/em_codeEK.h
-cmp em_code.3 $(MOD_DIR)/man/em_code.3
em_code.3: $(SRC_DIR)/em_code.3X em_code.3: $(SRC_DIR)/em_code.3X
-sh -c 'tbl < $(SRC_DIR)/em_code.3X > em_code.3' -sh -c 'tbl < $(SRC_DIR)/em_code.3X > em_code.3'

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_psdlb(op, dlb) CC_psdlb(op, dlb)
label dlb; label dlb;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_psdnam(op, dnam) CC_psdnam(op, dnam)
char *dnam; char *dnam;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_pspnam(op, pnam) CC_pspnam(op, pnam)
char *pnam; char *pnam;
{ {

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_scon(str, siz) CC_scon(str, siz)
char *str; char *str;
arith siz; arith siz;

View file

@ -2,6 +2,7 @@
/* $Header$ */ /* $Header$ */
void
CC_ucon(val,siz) CC_ucon(val,siz)
char *val; char *val;
arith siz; arith siz;