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/compiler/FLINT/trans/translate.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/trans/translate.sml

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

revision 1248, Wed Jun 19 16:24:19 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.1248  
changed lines
  Added in v.1249

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