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/branches/primop-branch-2/src/compiler/FLINT/trans/translate.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-2/src/compiler/FLINT/trans/translate.sml

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

revision 1183, Fri Mar 29 19:09:48 2002 UTC revision 1249, Tue Jun 25 21:23:40 2002 UTC
# Line 530  Line 530 
530                  val fequal =                  val fequal =
531                      PRIM (PO.CMP { oper = PO.EQL, kind = nk }, lt_cmp, [])                      PRIM (PO.CMP { oper = PO.EQL, kind = nk }, lt_cmp, [])
532              in              in
533                  COND (APP (fequal, RECORD [VAR y, VAR y]), VAR x, VAR y)                  COND (APP (fequal, RECORD [VAR y, VAR y]), VAR y, VAR x)
534              end              end
535            | _ => VAR y            | _ => VAR y
536  in  in

Legend:
Removed from v.1183  
changed lines
  Added in v.1249

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