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     ! 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.