Return to vaxglue.sml CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / vax

researchv10 Norman

(* Copyright 1989 by AT&T Bell Laboratories *)
structure VaxMC : CODEGENERATOR = 
struct
  structure CM = VaxCM(VaxMCode.Coder)
  structure G = CPScomp(CM)
  fun generate lexp = (G.compile lexp; VaxMCode.finish())
end

structure VaxAC : ASSEMBLER =
struct
  structure CM = VaxCM(VaxAsCode)
  structure AssemGen = CPScomp(CM)
  fun generate(lexp,stream) = (VaxAssem.outfile := stream;
			       AssemGen.compile lexp)
end

structure IntVax = IntShare(structure Machm = VaxMC
			    val fileExtension = ".vax"
			   )
structure CompVax = Batch(structure M=VaxMC and A=VaxAC)

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