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/ppc/instructions/ppcCells.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/instructions/ppcCells.sml

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

revision 1592, Thu Aug 5 16:53:03 2004 UTC revision 1593, Thu Aug 5 22:19:45 2004 UTC
# Line 42  Line 42 
42     exception PPCCells     exception PPCCells
43     fun error msg = MLRiscErrorMsg.error("PPCCells",msg)     fun error msg = MLRiscErrorMsg.error("PPCCells",msg)
44     open CellsBasis     open CellsBasis
45     fun showGPWithSize (r, ty) = (fn (r, _) => Int.toString r     fun showGPWithSize (r, ty) = (fn (r, _) => (if ( ! PPCAsmSyntax.ibm_syntax)
46                                           then ("r" ^ (Int.toString r))
47                                           else (Int.toString r))
48                                  ) (r, ty)                                  ) (r, ty)
49     and showFPWithSize (r, ty) = (fn (f, _) => Int.toString f     and showFPWithSize (r, ty) = (fn (f, _) => (if ( ! PPCAsmSyntax.ibm_syntax)
50                                           then ("f" ^ (Int.toString f))
51                                           else (Int.toString r))
52                                  ) (r, ty)                                  ) (r, ty)
53     and showCCWithSize (r, ty) = (fn (cr, _) => "cr" ^ (Int.toString cr)     and showCCWithSize (r, ty) = (fn (cr, _) => "cr" ^ (Int.toString cr)
54                                  ) (r, ty)                                  ) (r, ty)

Legend:
Removed from v.1592  
changed lines
  Added in v.1593

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