shithub: scc

ref: 674917b1ddae0a0b2198d14e616f2e57ad2fb289
dir: /src/cmd/ld/pass4.c/

#include <stdio.h>
#include <stdlib.h>

#include <scc/mach.h>

#include "ld.h"

void
pass4(int argc, char *argv[])
{
	Objlst *lp;
	Objsec *sp;
	Section *sec;
	unsigned long i;
	FILE *fp;

	for (lp = objhead; lp; lp = lp->next) {
		/* TODO: fp = lp->obj->fp; */
		for (sp = lp->obj->secs; sp; sp = sp->next) {
			/* TODO:
			 * if (!objpos(lp->obj, lp->obj->fp, sp->seek))
			 *	error("seeking for section content");
			 */
			sec = section(sp->name);
			if (!sec->fp) {
				sec->fp = tmpfile();
				if (!sec->fp) {
					error("out of memory");
					exit(EXIT_FAILURE);
				}
			}

			/* TODO: add symbol alignment */

			for (i = 0; i < sp->size; i++)
				putc(getc(fp), sec->fp);

			/* TODO: Apply relocations */
		}
	}
}