|
|
1.1 ! root 1: /* ! 2: * This file contains one machine independent code generation routine. ! 3: */ ! 4: ! 5: #ifdef vax ! 6: #include "INC$LIB:cc2.h" ! 7: #else ! 8: #include "cc2.h" ! 9: #endif ! 10: ! 11: /* ! 12: * Generate a segment switch. ! 13: * Reset the values in 'dot' and 'dotseg' to correspond to the new segment. ! 14: */ ! 15: genseg(sn) ! 16: { ! 17: register char *s; ! 18: ! 19: if (dotseg >= 0) ! 20: seg[dotseg].s_dot = dot; ! 21: if (dotseg != sn) { ! 22: dotseg = sn; ! 23: if (dotseg >= 0) { ! 24: dot = seg[dotseg].s_dot; ! 25: if (isvariant(VASM)) { ! 26: bput(ENTER); ! 27: bput(dotseg); ! 28: } else ! 29: outseg(dotseg); ! 30: } ! 31: } ! 32: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.