*** aops.c Thu Mar 8 18:43:41 1990 --- aops.c.new Thu Mar 8 18:43:41 1990 *************** *** 284,295 **** *p->r = pow((double)2.,oct+fract) * onept; } out(p) register OUT *p; { register float *ap, *sp; register int nsmps = ksmps; - extern float *spout; ap = p->asig; sp = spout; --- 287,299 ---- *p->r = pow((double)2.,oct+fract) * onept; } + extern float *spout; + out(p) register OUT *p; { register float *ap, *sp; register int nsmps = ksmps; ap = p->asig; sp = spout; *** auxfd.c Thu Mar 8 18:43:43 1990 --- auxfd.c.new Thu Mar 8 18:43:44 1990 *************** *** 1,4 **** ! #include "cs.h" AUXFD.C */ extern INSDS *curip; /* current insds, maintained by insert.c */ --- 1,4 ---- ! #include "cs.h" /* AUXFD.C */ extern INSDS *curip; /* current insds, maintained by insert.c */ *** disprep.c Thu Mar 8 18:43:46 1990 --- disprep.c.new Thu Mar 8 18:43:47 1990 *************** *** 6,11 **** --- 9,16 ---- extern int ksmps; extern char strmsg[]; + char *auxalloc(); + static float *ftcoefs = NULL; /* malloc for fourier coefs, mag or db */ printv(p) *************** *** 26,32 **** { register int npts, size; register char *auxp; - char *auxalloc(); if (p->h.optext->t.pftype == 'k') npts = *p->iprd * ekr; --- 31,36 ---- *** oload.c Thu Mar 8 18:43:49 1990 --- oload.c.new Thu Mar 8 18:43:50 1990 *************** *** 4,10 **** INSTRTXT *instrtxtp[MAXINSNO+1], instxtanchor; static NAME *gblnames, *gblnxtslot, *gblnamlim; static NAME *lclnames, *lclnxtslot, *lclnamlim; ! static int lclnxtoffset = 0; gblnxtoffset = 0; static float *lclbas, *lclpbas, *gblspace; float esr = 10000, ekr = 1000, ensmps = 10; /* default values */ --- 4,10 ---- INSTRTXT *instrtxtp[MAXINSNO+1], instxtanchor; static NAME *gblnames, *gblnxtslot, *gblnamlim; static NAME *lclnames, *lclnxtslot, *lclnamlim; ! static int lclnxtoffset = 0, gblnxtoffset = 0; static float *lclbas, *lclpbas, *gblspace; float esr = 10000, ekr = 1000, ensmps = 10; /* default values */ *************** *** 17,22 **** --- 17,24 ---- extern int odebug; /* for verbose orch tran */ extern char errmsg[]; /* work space for sprintf */ + char *spalloc(); + oload(orchname) char *orchname; { *************** *** 25,31 **** INSTRTXT *prvinstxt = &instxtanchor; register OPTXT *bp, *prvbp; ARGLST *alp; ! char *s, *spalloc(); register int pmax, nn; int n; --- 27,33 ---- INSTRTXT *prvinstxt = &instxtanchor; register OPTXT *bp, *prvbp; ARGLST *alp; ! char *s; register int pmax, nn; int n; *** insert.c Thu Mar 8 18:53:41 1990 --- insert.c.new Thu Mar 8 18:53:42 1990 *************** *** 76,82 **** ip->prvact = prvp; prvp->nxtact = ip; ip->actflg++; /* and mark the instr active */ ! { register int n; register float *flp, *fep; --- 76,82 ---- ip->prvact = prvp; prvp->nxtact = ip; ip->actflg++; /* and mark the instr active */ ! { register int n; register float *flp, *fep; *************** *** 92,98 **** while (n--) *flp++ = *fep++; /* psave */ if (odebug) printf(" ending at %x\n",flp); ! } ip->offtim = ip->p3; /* & duplicate p3 for now */ curip = ip; ids = (OPDS *)ip; --- 92,98 ---- while (n--) *flp++ = *fep++; /* psave */ if (odebug) printf(" ending at %x\n",flp); ! } ip->offtim = ip->p3; /* & duplicate p3 for now */ curip = ip; ids = (OPDS *)ip;