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 /MLRISC/trunk/c-call/varargs/interp/x86-gen.sml
ViewVC logotype

Diff of /MLRISC/trunk/c-call/varargs/interp/x86-gen.sml

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

revision 3216, Mon Aug 18 20:20:52 2008 UTC revision 3217, Mon Aug 18 21:17:43 2008 UTC
# Line 1  Line 1 
1    (* x86-gen.sml
2     *
3     * X86-specific portion of the interpreter.
4     *)
5    
6  structure X86Gen =  structure X86Gen =
7    struct    struct
8    
# Line 30  Line 35 
35      fun getArg i =      fun getArg i =
36              T.LOAD(defTy, T.ADD(defTy, T.REG(defTy, C.ebp), lit (4*i+8)), T.Region.memory)              T.LOAD(defTy, T.ADD(defTy, T.REG(defTy, C.ebp), lit (4*i+8)), T.Region.memory)
37    
38    (* generate the x86 vararg interpreter *)    (* MLRISC code for the x86 vararg interpreter *)
39      fun gen () = let      fun gen () = let
40             val largsReg = C.newReg()             val largsReg = C.newReg()
41           (* we align the frame to a 16-bytes to support Mac OS. *)           (* we align the frame to a 16-bytes to support Mac OS. *)

Legend:
Removed from v.3216  
changed lines
  Added in v.3217

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