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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/high-to-mid/handleEin.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/high-to-mid/handleEin.sml

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

revision 2845, Fri Dec 12 06:46:23 2014 UTC revision 2847, Mon Dec 15 02:17:32 2014 UTC
# Line 17  Line 17 
17      structure DstV = DstIL.Var      structure DstV = DstIL.Var
18      in      in
19    
20      val testing=1      val testing=0
21      fun setEin(params,index,body)=Ein.EIN{params=params, index=index, body=body}      fun setEin(params,index,body)=Ein.EIN{params=params, index=index, body=body}
22      fun assignEinApp(y,params,index,body,args)= (y,DstIL.EINAPP(setEin(params,index,body),args))      fun assignEinApp(y,params,index,body,args)= (y,DstIL.EINAPP(setEin(params,index,body),args))
23      fun assignEinApp(y,params,index,body,args)= (y,DstIL.EINAPP(setEin(params,index,body),args))      fun assignEinApp(y,params,index,body,args)= (y,DstIL.EINAPP(setEin(params,index,body),args))
# Line 33  Line 33 
33      *  Checks to see if the entire body is 0. If so returns 1.      *  Checks to see if the entire body is 0. If so returns 1.
34      *)      *)
35      fun isZero e=let      fun isZero e=let
36          val _=print(String.concat["\n Started Zero",P.printbody e])          val _=testp["\n Started Zero",P.printbody e]
37          fun iterList []= 1          fun iterList []= 1
38              | iterList(e1::list)=(case (isZero e1)              | iterList(e1::list)=(case (isZero e1)
39              of 0=>0              of 0=>0
# Line 60  Line 60 
60              | E.Conv _             => 1              | E.Conv _             => 1
61              | _                    => 0              | _                    => 0
62              (*end case*))              (*end case*))
63          val _=print(String.concat["\n Is it Zero",P.printbody e,"--", iTos z])          val _=testp["\n Is it Zero",P.printbody e,"--", iTos z]
64          in          in
65              z              z
66          end          end

Legend:
Removed from v.2845  
changed lines
  Added in v.2847

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