Return to shareglue.sml CVS log

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

Annotation of researchv10no/cmd/sml/src/cps/shareglue.sml, revision 1.1

1.1     ! root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
        !             2: (* shareglue: a functor application common to vaxglue and m68glue, just to
        !             3:    avoid duplication of this linking phase. (NICK) *)
        !             4: 
        !             5: functor IntShare(structure Machm: CODEGENERATOR
        !             6:                 val fileExtension: string
        !             7:                ) =
        !             8:    Interact(structure Machm = Machm
        !             9:            structure Importer =
        !            10:               Importer(structure FilePaths = UnixPaths()
        !            11:                        val fileExtension = fileExtension
        !            12:                        structure ModuleComp =
        !            13:                           ModuleComp(structure Absyn = BareAbsyn
        !            14:                                      structure Lambda = Lambda
        !            15:                                      structure Opt = Opt
        !            16:                                      structure Machm = Machm)))

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