Return to vaxglue.sml CVS log

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

Annotation of researchv10no/cmd/sml/src/vax/vaxglue.sml, revision 1.1.1.1

1.1       root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
                      2: structure VaxMC : CODEGENERATOR = 
                      3: struct
                      4:   structure CM = VaxCM(VaxMCode.Coder)
                      5:   structure G = CPScomp(CM)
                      6:   fun generate lexp = (G.compile lexp; VaxMCode.finish())
                      7: end
                      8: 
                      9: structure VaxAC : ASSEMBLER =
                     10: struct
                     11:   structure CM = VaxCM(VaxAsCode)
                     12:   structure AssemGen = CPScomp(CM)
                     13:   fun generate(lexp,stream) = (VaxAssem.outfile := stream;
                     14:                               AssemGen.compile lexp)
                     15: end
                     16: 
                     17: structure IntVax = IntShare(structure Machm = VaxMC
                     18:                            val fileExtension = ".vax"
                     19:                           )
                     20: 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.