Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/branches/primop-branch-2/src/compiler/FLINT/trans/translate.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-2/src/compiler/FLINT/trans/translate.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1682, Tue Nov 9 23:48:09 2004 UTC revision 1683, Thu Nov 11 00:12:41 2004 UTC
# Line 445  Line 445 
445  val lt_unit = LT.ltc_unit  val lt_unit = LT.ltc_unit
446    
447  val lt_ipair = lt_tup [lt_int, lt_int]  val lt_ipair = lt_tup [lt_int, lt_int]
448    val lt_i32pair = lt_tup [lt_int32, lt_int32]
449  val lt_icmp = lt_arw (lt_ipair, lt_bool)  val lt_icmp = lt_arw (lt_ipair, lt_bool)
450  val lt_ineg = lt_arw (lt_int, lt_int)  val lt_ineg = lt_arw (lt_int, lt_int)
451  val lt_intop = lt_arw (lt_ipair, lt_int)  val lt_intop = lt_arw (lt_ipair, lt_int)
# Line 503  Line 504 
504    end    end
505    
506  fun inlineShift(shiftOp, kind, clear) =  fun inlineShift(shiftOp, kind, clear) =
507    let fun shiftLimit (PO.UINT lim) = WORD(Word.fromInt lim)    let fun shiftLimit (PO.UINT lim | PO.INT lim) = WORD(Word.fromInt lim)
508          | shiftLimit _ = bug "unexpected case in shiftLimit"          | shiftLimit _ = bug "unexpected case in shiftLimit"
509    
510        val p = mkv() val vp = VAR p        val p = mkv() val vp = VAR p
# Line 649  Line 650 
650                FN (v, argt, VAR v)                FN (v, argt, VAR v)
651            end            end
652    
653            | g (PO.CVT64) = let val v = mkv () in FN (v, lt_i32pair, VAR v) end
654    
655          | g (PO.INLSUBSCRIPTV) =          | g (PO.INLSUBSCRIPTV) =
656                let val (tc1, t1) = case ts of [z] => (z, lt_tyc z)                let val (tc1, t1) = case ts of [z] => (z, lt_tyc z)
657                                      | _ => bug "unexpected ty for INLSUBV"                                      | _ => bug "unexpected ty for INLSUBV"

Legend:
Removed from v.1682  
changed lines
  Added in v.1683

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0