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/branches/SMLNJ/src/MLRISC/sparc/instructions/sparcProps.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/sparc/instructions/sparcProps.sml

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

revision 468, Wed Nov 10 22:42:52 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 185  Line 185 
185          | I.Ticc{r,i,...} => oper(i,[],[r])          | I.Ticc{r,i,...} => oper(i,[],[r])
186          | I.RDY{d,...} => ([d],[])          | I.RDY{d,...} => ([d],[])
187          | I.WRY{r,i,...} => oper(i,[],[r])          | I.WRY{r,i,...} => oper(i,[],[r])
188          | I.ANNOTATION{a=BasicAnnotations.DEFUSER(d,u),...} => (d,u)          | I.ANNOTATION{a, i, ...} =>
189          | I.ANNOTATION{i,...} => defUseR i             (case #peek BasicAnnotations.DEFUSER a of
190                  SOME(d,u) => (d,u)
191                | NONE => defUseR i
192               )
193          | _ => ([],[])          | _ => ([],[])
194      end      end
195    
# Line 204  Line 207 
207        | I.FMOVfcc{r,d,...} => ([d],[r,d])        | I.FMOVfcc{r,d,...} => ([d],[r,d])
208        | I.FCOPY{src,dst,tmp=SOME(I.FDirect r),...} => (r::dst,src)        | I.FCOPY{src,dst,tmp=SOME(I.FDirect r),...} => (r::dst,src)
209        | I.FCOPY{src,dst,...} => (dst,src)        | I.FCOPY{src,dst,...} => (dst,src)
210        | I.ANNOTATION{a=BasicAnnotations.DEFUSEF(d,u),...} => (d,u)        | I.ANNOTATION{a, i, ...} =>
211        | I.ANNOTATION{i,...} => defUseF i            (case #peek BasicAnnotations.DEFUSEF a of
212                 SOME(d,u) => (d,u)
213               | NONE => defUseF i
214              )
215        | _ => ([],[])        | _ => ([],[])
216    
217    fun defUse C.GP = defUseR    fun defUse C.GP = defUseR
# Line 215  Line 221 
221    (*========================================================================    (*========================================================================
222     *  Annotations     *  Annotations
223     *========================================================================*)     *========================================================================*)
224    fun getAnnotations(I.ANNOTATION{i,a}) = a::getAnnotations i    fun getAnnotations(I.ANNOTATION{i,a}) =
225      | getAnnotations _ = []         let val (i,an) = getAnnotations i in (i,a::an) end
226        | getAnnotations i = (i,[])
227    fun annotate(i,a) = I.ANNOTATION{i=i,a=a}    fun annotate(i,a) = I.ANNOTATION{i=i,a=a}
228    
229    (*========================================================================    (*========================================================================

Legend:
Removed from v.468  
changed lines
  Added in v.469

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