File:  [MW Coherent from dump] / coherent / b / bin / c / n2 / emit0.c
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Wed May 29 04:56:37 2019 UTC (7 years, 2 months ago) by root
Branches: MarkWilliams, MAIN
CVS tags: relic, HEAD
coherent

/*
 * This file contains one machine independent code generation routine.
 */

#ifdef   vax
#include "INC$LIB:cc2.h"
#else
#include "cc2.h"
#endif

/*
 * Generate a segment switch.
 * Reset the values in 'dot' and 'dotseg' to correspond to the new segment.
 */
genseg(sn)
{
	register char	*s;

	if (dotseg >= 0)
		seg[dotseg].s_dot = dot;
	if (dotseg != sn) {
		dotseg = sn;
		if (dotseg >= 0) {
			dot = seg[dotseg].s_dot;
			if (isvariant(VASM)) {
				bput(ENTER);
				bput(dotseg);
			} else
				outseg(dotseg);
		}
	}
}

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.