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 /sml/trunk/src/MLRISC/ppc/c-calls/ppc-macosx.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/c-calls/ppc-macosx.sml

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

revision 1544, Wed Jul 14 16:08:37 2004 UTC revision 1545, Wed Jul 14 18:33:15 2004 UTC
# Line 336  Line 336 
336              | assignArgs ((Args locs') :: locs, (ARGS args') :: args, stms) =              | assignArgs ((Args locs') :: locs, (ARGS args') :: args, stms) =
337                  raise Fail "ARGS constructor is obsolete"                  raise Fail "ARGS constructor is obsolete"
338              | assignArgs ((Args locs') :: locs, ARG exp :: args, stms) = let              | assignArgs ((Args locs') :: locs, ARG exp :: args, stms) = let
339                (* MLRISC expression for address inside the struct *)                (* MLRISC expression for address inside the source struct *)
340                  fun addr 0 = T.LOAD(wordTy, exp, memRg)                  fun addr 0 = T.LOAD(wordTy, exp, memRg)
341                    | addr offset = T.LOAD(wordTy, T.ADD(wordTy, exp, T.LI offset), memRg)                    | addr offset = T.LOAD(wordTy, T.ADD(wordTy, exp, T.LI offset), memRg)
342                  fun copy ([], _, stms) = assignArgs(locs, args, stms)                  fun copy ([], _, stms) = assignArgs(locs, args, stms)

Legend:
Removed from v.1544  
changed lines
  Added in v.1545

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