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 1612, Wed Aug 11 02:45:25 2004 UTC revision 1613, Wed Aug 11 03:35:58 2004 UTC
# Line 43  Line 43 
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, _) => (if ( ! PPCAsmSyntax.ibm_syntax)     fun showGPWithSize (r, ty) = (fn (r, _) => (if ( ! PPCAsmSyntax.ibm_syntax)
46                                         then ("r" ^ (Int.toString r))                                         then (Int.toString r)
47                                         else (Int.toString r))                                         else ("r" ^ (Int.toString r)))
48                                  ) (r, ty)                                  ) (r, ty)
49     and showFPWithSize (r, ty) = (fn (f, _) => (if ( ! PPCAsmSyntax.ibm_syntax)     and showFPWithSize (r, ty) = (fn (f, _) => (if ( ! PPCAsmSyntax.ibm_syntax)
50                                         then ("f" ^ (Int.toString f))                                         then (Int.toString f)
51                                         else (Int.toString r))                                         else ("f" ^ (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.1612  
changed lines
  Added in v.1613

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