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/compiler/CodeGen/main/machine-gen.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CodeGen/main/machine-gen.sml

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

revision 1015, Tue Jan 15 21:46:00 2002 UTC revision 1016, Tue Jan 15 23:10:06 2002 UTC
# Line 53  Line 53 
53     structure ExpandCpys =     structure ExpandCpys =
54       CFGExpandCopies       CFGExpandCopies
55           (structure CFG = CFG           (structure CFG = CFG
56            structure ExpandCopies =             structure Shuffle = Shuffle)
              struct  
                 structure I = I  
                 fun expandCopies(I.COPY{k, dst, src, tmp, ...}) =  
                      (case k  
                        of CellsBasis.GP => Shuffle.shuffle{dst=dst, src=src, tmp=tmp}  
                         | CellsBasis.FP => Shuffle.shufflefp{dst=dst, src=src, tmp=tmp}  
                         | _ => MLRiscErrorMsg.error ("MachineGen", "expandCopies")  
                      (*esac*))  
                   | expandCopies(I.ANNOTATION{i, ...}) = expandCopies(i)  
                   | expandCopies instr = [instr]  
              end  
           )  
57    
58     fun omitFramePointer(cfg as G.GRAPH graph) = let     fun omitFramePointer(cfg as G.GRAPH graph) = let
59       val CFG.INFO{annotations, ...} = #graph_info graph       val CFG.INFO{annotations, ...} = #graph_info graph

Legend:
Removed from v.1015  
changed lines
  Added in v.1016

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