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

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

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

revision 1008, Fri Dec 14 21:01:29 2001 UTC revision 1009, Wed Jan 9 19:44:22 2002 UTC
# Line 45  Line 45 
45       infix 2 :=       infix 2 :=
46       infix 3 << >> ~>>       infix 3 << >> ~>>
47    
      (* rtl COPY{dst,src} = $r[forall dst] := $r[forall src]  
      rtl FCOPY{dst,src} = $f[forall dst] := $f[forall src] *)  
   
48       (* How to align addresses *)       (* How to align addresses *)
49       fun align4 addr      = andb(addr,notb 3)       fun align4 addr      = andb(addr,notb 3)
50       fun align8 addr      = andb(addr,notb 7)       fun align8 addr      = andb(addr,notb 7)
# Line 600  Line 597 
597       asm: ``<oper>\t<ra>, <rb>, <rc><emit_cellset("tmps",tmps)>''       asm: ``<oper>\t<ra>, <rb>, <rc><emit_cellset("tmps",tmps)>''
598       rtl: ``PSEUDOARITH_<oper>''       rtl: ``PSEUDOARITH_<oper>''
599    
    (* Copy instructions *)  
    | COPY of {dst: $GP list, src: $GP list,  
               impl:instruction list option ref, tmp: ea option}  
      asm: emitInstrs (Shuffle.shuffle{tmp,dst,src})  
      rtl: ``COPY''  
   
    | FCOPY of {dst: $FP list, src: $FP list,  
                impl:instruction list option ref, tmp: ea option}  
      asm: emitInstrs (Shuffle.shufflefp{tmp,dst,src})  
      rtl: ``FCOPY''  
   
600     (* Floating Point Unary Operation *)     (* Floating Point Unary Operation *)
601     | FUNARY of {oper:funary, fb: $FP, fc: $FP}     | FUNARY of {oper:funary, fb: $FP, fc: $FP}
602       asm: ``<oper>\t<fb>, <fc>''       asm: ``<oper>\t<fb>, <fc>''

Legend:
Removed from v.1008  
changed lines
  Added in v.1009

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