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

Diff of /sml/trunk/src/MLRISC/ppc/mltree/ppc.sml

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

revision 1273, Thu Oct 10 17:13:35 2002 UTC revision 1334, Thu May 22 22:46:30 2003 UTC
# Line 327  Line 327 
327                  | T.LEU => (I.FALSE, I.GT)                  | T.LEU => (I.FALSE, I.GT)
328                  | T.GTU => (I.TRUE,  I.GT)                  | T.GTU => (I.TRUE,  I.GT)
329                  | T.GEU => (I.FALSE, I.LT)                  | T.GEU => (I.FALSE, I.LT)
330                    | (T.SETCC | T.MISC_COND _) => error "branch(CMP)"
331               (*esac*))               (*esac*))
332              val ccreg = if true then CR0 else newCCreg() (* XXX *)              val ccreg = if true then CR0 else newCCreg() (* XXX *)
333              val addr = I.LabelOp(T.LABEL lab)              val addr = I.LabelOp(T.LABEL lab)
# Line 360  Line 361 
361                | (T.LE | T.LEU) => branch(I.FALSE, I.GT)                | (T.LE | T.LEU) => branch(I.FALSE, I.GT)
362                | (T.GE | T.GEU) => branch(I.FALSE, I.LT)                | (T.GE | T.GEU) => branch(I.FALSE, I.LT)
363                | (T.GT | T.GTU) => branch(I.TRUE, I.GT)                | (T.GT | T.GTU) => branch(I.TRUE, I.GT)
364                  | (T.SETCC | T.MISC_COND _) => error "branch(CC)"
365            end            end
366          | branch(cmp as T.FCMP(fty, cond, _, _), lab, an) =          | branch(cmp as T.FCMP(fty, cond, _, _), lab, an) =
367            let val ccreg = if true then CR0 else newCCreg() (* XXX *)            let val ccreg = if true then CR0 else newCCreg() (* XXX *)
# Line 389  Line 391 
391                | T.?<= => branch(I.FALSE,  ccreg, I.FG)                | T.?<= => branch(I.FALSE,  ccreg, I.FG)
392                | T.<>  => test2bits(I.FL, I.FG)                | T.<>  => test2bits(I.FL, I.FG)
393                | T.?=  => test2bits(I.FU, I.FE)                | T.?=  => test2bits(I.FU, I.FE)
394                  | (T.SETFCC | T.MISC_FCOND _) => error "branch(FCMP)"
395               (*esac*)               (*esac*)
396            end            end
397          | branch _ = error "branch"          | branch _ = error "branch"

Legend:
Removed from v.1273  
changed lines
  Added in v.1334

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