SCM Repository
[smlnj] Diff of /sml/trunk/src/MLRISC/ppc/instructions/ppcCells.sml
Diff of /sml/trunk/src/MLRISC/ppc/instructions/ppcCells.sml
Parent Directory
| 
Revision Log
| 
Patch
| 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 |
|
|
