/* * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands. * See the copyright notice in the ACK home directory, in the file "Copyright". */ #ifndef lint static char rcsid[] = "$Id$"; #endif #include #include #include #include "out.h" #include "const.h" #include "assert.h" #include "memory.h" extern struct outhead outhead; extern struct outsect outsect[]; extern int flagword; extern bool incore; wr_fatal() { fatal("write error"); } static long off_char; /* * Open the output file according to the chosen strategy. * Write away the header and section table: they will not change anymore. */ begin_write() { register struct outhead *hd = &outhead; assert(! incore); wr_ohead(hd); wr_sect(outsect, hd->oh_nsect); off_char = OFF_CHAR(*hd); } static struct outname * sectname(sectindex) int sectindex; { static struct outname namebuf; namebuf.on_foff = (long)0; /* No string name. */ namebuf.on_type = (S_MIN + sectindex) | S_SCT; namebuf.on_desc = 0; namebuf.on_valu = outsect[sectindex].os_base; return &namebuf; } /* * Write out the symbol table and the section names. */ end_write() { register struct outname *name; register int sectindex; extern unsigned short NGlobals; extern long NGChars; assert(!incore); assert(!(flagword & SFLAG)); name = (struct outname *)address(ALLOGLOB, (ind_t)0); namecpy(name, NGlobals, off_char); wr_name(name, NGlobals); wr_string(mems[ALLOGCHR].mem_base+1, NGChars); off_char += NGChars; for (sectindex = 0; sectindex < outhead.oh_nsect; sectindex++) wrt_name(sectname(sectindex), 1); } wrt_emit(emit, sectindex, cnt) char *emit; int sectindex; long cnt; { wr_outsect(sectindex); wr_emit(emit, cnt); } wrt_nulls(sectindex, cnt) register long cnt; { static char nullbuf[BUFSIZ]; wr_outsect(sectindex); while (cnt) { register int n = cnt >= BUFSIZ ? BUFSIZ : cnt; wr_emit(nullbuf, (long)n); cnt -= n; } } wrt_name(name, writename) register struct outname *name; { assert(!incore); assert(!(flagword & SFLAG)); if (name->on_mptr != (char *)0) { register long len = strlen(name->on_mptr) + 1; wr_string(name->on_mptr, len); name->on_foff = off_char; off_char += len; } else { name->on_foff = (long)0; } if (writename) wr_name(name, 1); }