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/call/located-arg-fn.sml
ViewVC logotype

Diff of /MLRISC/trunk/c-call/varargs/call/located-arg-fn.sml

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

revision 3226, Thu Sep 18 03:28:24 2008 UTC revision 3227, Thu Sep 18 06:06:40 2008 UTC
# Line 21  Line 21 
21    (* converts a sequence of arguments and staged allocation locations to located arguments *)    (* converts a sequence of arguments and staged allocation locations to located arguments *)
22      val mkLocatedArgs : (Vararg.arg list * SA.loc list) -> located_arg list      val mkLocatedArgs : (Vararg.arg list * SA.loc list) -> located_arg list
23    
24        val toString : located_arg -> string
25    
26    end = struct    end = struct
27    
28      structure V = Vararg      structure V = Vararg
# Line 70  Line 72 
72    (* converts a sequence of arguments and staged allocation locations to located arguments *)    (* converts a sequence of arguments and staged allocation locations to located arguments *)
73      val mkLocatedArgs = List.concat o ListPair.mapEq mkLocatedArg      val mkLocatedArgs = List.concat o ListPair.mapEq mkLocatedArg
74    
75        fun k2s CK.GPR = "GPR"
76          | k2s CK.FPR = "FPR"
77          | k2s CK.STK = "STK"
78          | k2s CK.FSTK = "FSTK"
79        val i2s = Int.toString
80    
81        fun toString {k, width, narrowing, offset, arg, loc} =
82            "{k="^k2s k^",width="^i2s width^",narrowing="^i2s (Option.getOpt(narrowing, width))^",offset="^i2s offset^",loc="^i2s loc^"}"
83    
84    end    end

Legend:
Removed from v.3226  
changed lines
  Added in v.3227

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