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

SCM Repository

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

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

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

revision 457, Wed Oct 27 12:08:13 2010 UTC revision 458, Wed Oct 27 12:29:00 2010 UTC
# Line 10  Line 10 
10  structure LowOps =  structure LowOps =
11    struct    struct
12    
13      datatype ty = BoolTy | StringTy | IntTy | VecTy of int      type ty = LowILTypes.ty
14    
15      val realTy = VecTy 0      val samety = LowILTypes.same
16        val hashty = LowILTypes.hash
17      fun samety (ty1 : ty, ty2) = (ty1 = ty2)      val tyToString = LowILTypes.toString
     fun hashty BoolTy = 0w1  
       | hashty StringTy = 0w2  
       | hashty IntTy = 0w3  
       | hashty (VecTy d) = Word.fromInt d + 0w4  
     fun tyToString BoolTy = "bool"  
       | tyToString StringTy = "string"  
       | tyToString IntTy = "int"  
       | tyToString (VecTy 0) = "real"  
       | tyToString (VecTy d) = "vec" ^ Int.toString d  
18    
19      fun sameint (i1 : int, i2) = (i1 = i2)      fun sameint (i1 : int, i2) = (i1 = i2)
20      fun hashint i = Word.fromInt i      fun hashint i = Word.fromInt i
# Line 37  Line 28 
28    
29    end    end
30    
31  structure MidIL = SSAFn(LowOps)  structure LowIL = SSAFn(
32      structure Ty = LowILTypes
33      structure Op = LowOps)

Legend:
Removed from v.457  
changed lines
  Added in v.458

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