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/hppa/instructions/hppaProps.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/hppa/instructions/hppaProps.sml

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

revision 439, Wed Sep 15 16:37:27 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 199  Line 199 
199        | I.FSTOREX {b, x, ...}       => ([],  [b,x])        | I.FSTOREX {b, x, ...}       => ([],  [b,x])
200        | I.FLOAD {b, ...}            => ([],  [b])        | I.FLOAD {b, ...}            => ([],  [b])
201        | I.FLOADX{b, x, ...}         => ([],  [b,x])        | I.FLOADX{b, x, ...}         => ([],  [b,x])
202        | I.ANNOTATION{a=BasicAnnotations.DEFUSER(d,u),...} => (d,u)        | I.ANNOTATION{a, i, ...} =>
203        | I.ANNOTATION{i,...}         => defUseR i             (case #peek BasicAnnotations.DEFUSER a of
204                  SOME(d,u) => (d,u)
205                | NONE => defUseR i
206               )
207        | _   => ([],[])        | _   => ([],[])
208    end    end
209    
# Line 218  Line 221 
221         | I.BLE{defs, uses, ...}    => (#2 defs, #2 uses)         | I.BLE{defs, uses, ...}    => (#2 defs, #2 uses)
222         | I.FCOPY{dst, src, tmp=SOME(I.FDirect f), ...} => (f::dst, src)         | I.FCOPY{dst, src, tmp=SOME(I.FDirect f), ...} => (f::dst, src)
223         | I.FCOPY{dst, src, ...}    => (dst, src)         | I.FCOPY{dst, src, ...}    => (dst, src)
224         | I.ANNOTATION{a=BasicAnnotations.DEFUSEF(d,u),...} => (d,u)         | I.ANNOTATION{a, i, ...} =>
225         | I.ANNOTATION{i,...}       => defUseF i             (case #peek BasicAnnotations.DEFUSEF a of
226                  SOME(d,u) => (d,u)
227                | NONE => defUseF i
228               )
229         | _ => ([],[])         | _ => ([],[])
230    
231    fun defUse C.GP = defUseR    fun defUse C.GP = defUseR
# Line 229  Line 235 
235    (*========================================================================    (*========================================================================
236     *  Annotations     *  Annotations
237     *========================================================================*)     *========================================================================*)
238    fun getAnnotations(I.ANNOTATION{i,a}) = a::getAnnotations i    fun getAnnotations(I.ANNOTATION{i,a}) =
239      | getAnnotations _ = []         let val (i,an) = getAnnotations i in (i,a::an) end
240        | getAnnotations i = (i,[])
241    fun annotate(i,a) = I.ANNOTATION{i=i,a=a}    fun annotate(i,a) = I.ANNOTATION{i=i,a=a}
242    
243    (*========================================================================    (*========================================================================

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

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