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/alpha32/instructions/alpha32Props.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/alpha32/instructions/alpha32Props.sml

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

revision 226, Sat Apr 17 17:15:03 1999 UTC revision 235, Sat Apr 17 18:21:47 1999 UTC
# Line 137  Line 137 
137           | I.PSEUDOARITH {oper, ra, rb, rc, tmps} => (rc:: #1 tmps, [ra])           | I.PSEUDOARITH {oper, ra, rb, rc, tmps} => (rc:: #1 tmps, [ra])
138           | I.OPERATEV arg => trap(Oper arg)           | I.OPERATEV arg => trap(Oper arg)
139           (* copy *)           (* copy *)
140    (* and similarly for FCOPY
141             | I.COPY{dst, src, tmp, ...} =>
142               (case tmp
143                 of NONE => (dst, src)
144                  | SOME(I.Direct r) => (d::dst, src)
145                  | SOME(I.Displace{base, disp}) => (dst, base::src)
146                (*esac*))
147    *)
148           | I.COPY{dst, src, tmp=SOME(I.Direct r), ...} => (r::dst, src)           | I.COPY{dst, src, tmp=SOME(I.Direct r), ...} => (r::dst, src)
149           | I.COPY{dst, src, ...} => (dst, src)           | I.COPY{dst, src, ...} => (dst, src)
150           (* floating operate *)           (* floating operate *)
# Line 172  Line 180 
180    
181  (*  (*
182   * $Log: alpha32Props.sml,v $   * $Log: alpha32Props.sml,v $
183     * Revision 1.1.1.1  1999/01/04 21:54:46  george
184     *   Version 110.12
185     *
186   * Revision 1.3  1998/05/25 15:10:48  george   * Revision 1.3  1998/05/25 15:10:48  george
187   *   Fixed RCS keywords   *   Fixed RCS keywords
188   *   *

Legend:
Removed from v.226  
changed lines
  Added in v.235

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