Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] View of /trunk/src/compiler/IL/gen/low-il.in
ViewVC logotype

View of /trunk/src/compiler/IL/gen/low-il.in

Parent Directory Parent Directory | Revision Log Revision Log


Revision 458 - (download) (annotate)
Wed Oct 27 12:29:00 2010 UTC (9 years, 8 months ago) by jhr
File size: 714 byte(s)
  Working on LowIL
(* low-il.in
 *
 * COPYRIGHT (c) 2010 The Diderot Project (http://diderot-language.cs.uchicago.edu)
 * All rights reserved.
 *
 * Lower-level version of the Diderot IL input file.
 *
 *)

structure LowOps =
  struct

    type ty = LowILTypes.ty

    val samety = LowILTypes.same
    val hashty = LowILTypes.hash
    val tyToString = LowILTypes.toString

    fun sameint (i1 : int, i2) = (i1 = i2)
    fun hashint i = Word.fromInt i
    fun intToString i = Int.toString i

    fun samestring (s1 : string, s2) = (s1 = s2)
    val hashstring = HashString.hashString
    fun stringToString s = String.concat["\"", s, "\""]

@BODY@

  end

structure LowIL = SSAFn(
  structure Ty = LowILTypes
  structure Op = LowOps)

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