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

SCM Repository

[smlnj] View of /sml/trunk/src/MLRISC/demo/eg-alpha.sml
ViewVC logotype

View of /sml/trunk/src/MLRISC/demo/eg-alpha.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 744 - (download) (annotate)
Fri Dec 8 04:11:42 2000 UTC (18 years, 9 months ago) by leunga
File size: 927 byte(s)

   A CVS update record!

   Changed type cell from int to datatype, and numerous other changes.
   Affect every client of MLRISC.  Lal says this can be bootstrapped on all
   machines.  See smlnj/HISTORY for details.

   Tag:  leunga-20001207-cell-monster-hack
(*---------------------------------------------------------------------------
 * Here's an example: factorial for alpha.
 *---------------------------------------------------------------------------*)
fun eg2() = (* fact(n) *)
let open AlphaBackEnd
    val fact  = C.newReg()
    val i     = C.newReg()
    val n     = C.GPReg 0  (* let's say r0 is the input/output parameter *)
    val loop  = Label.newLabel "loop"
    val exit  = Label.newLabel "exit"
in  codegen
      (Label.newLabel "factorial",
       [T.MV(64, i,    T.REG(64, n)),
        T.MV(64, fact, T.LI 1),
        T.DEFINE loop,
        T.BCC(T.CMP(64, T.LE, T.REG(64, n), T.LI 0), exit),
        T.MV(64, fact, T.MULS(64, T.REG(64, i), T.REG(64, fact))),
        T.MV(64, i,    T.SUB(64, T.REG(64, i), T.LI 1)),
        T.JMP(T.LABEL(LabelExp.LABEL loop), []),
        T.DEFINE exit,
        T.MV(64, n, T.REG(64, fact)),
        T.RET []
       ]
      )
end

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