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

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.