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/alpha/mltree/alpha.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/alpha/mltree/alpha.sml

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

revision 814, Tue May 1 15:44:45 2001 UTC revision 815, Fri May 4 05:09:10 2001 UTC
# Line 294  Line 294 
294    
295    fun selectInstructions    fun selectInstructions
296          (instrStream as          (instrStream as
297           S.STREAM{emit,beginCluster,endCluster,           S.STREAM{emit,beginCluster,endCluster,getAnnotations,
298                    defineLabel,entryLabel,pseudoOp,annotation,                    defineLabel,entryLabel,pseudoOp,annotation,
299                    exitBlock,comment,...}) =                    exitBlock,comment,...}) =
300    let    let
# Line 468  Line 468 
468                I.IMMop(toInt(n))                I.IMMop(toInt(n))
469              else let val tmpR = newReg()              else let val tmpR = newReg()
470                   in  loadImmed(n,zeroR,tmpR,[]); I.REGop tmpR end                   in  loadImmed(n,zeroR,tmpR,[]); I.REGop tmpR end
471          | opn(e as (T.CONST _ | T.LABEL _)) = I.LABop e          | opn(e as T.CONST _) = I.LABop e
472          | opn(T.LABEXP x) = I.LABop x          | opn(T.LABEXP x) = I.LABop x
473          | opn e = I.REGop(expr e)          | opn e = I.REGop(expr e)
474    
# Line 1501  Line 1501 
1501             entryLabel  = entryLabel,             entryLabel  = entryLabel,
1502             comment     = comment,             comment     = comment,
1503             annotation  = annotation,             annotation  = annotation,
1504               getAnnotations = getAnnotations,
1505             exitBlock   = fn regs => exitBlock(cellset regs)             exitBlock   = fn regs => exitBlock(cellset regs)
1506           }           }
1507     in  self()     in  self()

Legend:
Removed from v.814  
changed lines
  Added in v.815

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