Return to sparcglue.sml CVS log

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

Annotation of researchv10no/cmd/sml/src/sparc/sparcglue.sml, revision 1.1.1.1

1.1       root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
                      2: (* sparcglue.sml
                      3:  *
                      4:  * J.H. Reppy (3/15/89)
                      5:  * Cornell University
                      6:  * Ithaca, NY  14853
                      7:  * [email protected]
                      8:  *
                      9:  * HISTORY:
                     10:  *   03/15/89  created
                     11:  *   11/20/89  changed to use new code generator
                     12:  *)
                     13: 
                     14: structure SparcMC : CODEGENERATOR = 
                     15: struct
                     16:     structure SparcC = Coder(structure M = SparcInstr and E = SparcMCEmit)
                     17:     structure MachGen = CPScomp(SparcCM(structure C = SparcC))
                     18:     fun generate lexp = (
                     19:          MachGen.compile lexp;
                     20:          SparcC.finish();
                     21:          SparcMCode.getCodeString())
                     22: end
                     23: 
                     24: structure SparcAC : ASSEMBLER =
                     25: struct
                     26:     structure SparcC = Coder(structure M = SparcInstr and E = SparcAsEmit)
                     27:     structure AssemGen = CPScomp(SparcCM(structure C = SparcC))
                     28:     fun generate (lexp, stream) = (
                     29:          SparcAsCode.outfile := stream;
                     30:          AssemGen.compile lexp;
                     31:          SparcC.finish())
                     32: end
                     33: 
                     34: structure IntSparc = IntShare(structure Machm = SparcMC
                     35:                  val fileExtension = ".spa"
                     36:                 )
                     37: structure CompSparc = Batch(structure M=SparcMC and A=SparcAC)

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