Return to mipsreal.sml CVS log

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

Annotation of researchv10no/cmd/sml/src/mips/mipsreal.sml, revision 1.1

1.1     ! root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
        !             2: functor MipsReal(E: sig val emit_word : int * int -> unit end) : REALCONST = 
        !             3: struct
        !             4:     open E
        !             5:     val halfwords = ref nil : int list ref             (* halfwords already out *)
        !             6:     val count = ref 0                          (* length of halfwords *)
        !             7:     fun reset_state () = (halfwords := nil; count := 0)
        !             8:     fun add_half h = (count := !count + 1; halfwords := h :: (!halfwords))
        !             9: 
        !            10:     fun emit_four [lowest,low,high,highest] = 
        !            11:                        (emit_word(low,lowest);emit_word(highest,high))
        !            12:       | emit_four _ = ErrorMsg.impossible "bad floating pt constant in mips"
        !            13: 
        !            14:     fun emit_half h = 
        !            15:         if !count = 3 then (emit_four (h::(!halfwords)); reset_state())
        !            16:         else add_half h
        !            17: 
        !            18:     structure IEEERealConst =
        !            19:        RealConst(IEEEReal(struct val emitWord = emit_half end))
        !            20:     val realconst = IEEERealConst.realconst
        !            21: end
        !            22: 
        !            23: 
        !            24: 
        !            25: 

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