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/hppa/hppa.mdl
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/hppa/hppa.mdl

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

revision 1033, Thu Jan 24 05:45:18 2002 UTC revision 1156, Thu Mar 21 22:01:11 2002 UTC
# Line 332  Line 332 
332        fun FBRANCH cmp {f1,f2,t} =        fun FBRANCH cmp {f1,f2,t} =
333            if cmp($f[f1],$f[f2]) then Jmp(%%t) else ()            if cmp($f[f1],$f[f2]) then Jmp(%%t) else ()
334    
335          (*
336        rtl FBRANCH_ ^^        rtl FBRANCH_ ^^
337            [?, !<=>, ==, ?=, !<>, !?>=, <, ?<,            [?, !<=>, ==, ?=, !<>, !?>=, <, ?<,
338             !>=, !?>, <=, ?<=, !>, !?<=, >, ?>,             !>=, !?>, <=, ?<=, !>, !?<=, >, ?>,
# Line 342  Line 343 
343             |!>=|, |!?>|, |<=|, |?<=|, |!>|, |!?<=|, |>|, |?>|,             |!>=|, |!?>|, |<=|, |?<=|, |!>|, |!?<=|, |>|, |?>|,
344             |!<=|, |!?<|, |>=|, |?>=|, |!<|, |!?=|, |<>|, |!=|,             |!<=|, |!?<|, |>=|, |?>=|, |!<|, |!?=|, |<>|, |!=|,
345             |!?|, |<=>|, |?<>|]             |!?|, |<=>|, |?<>|]
346           *)
347          rtl FBRANCH_ ^^
348              [?, ==, ?=, <, ?<,
349               <=, ?<=, >, ?>,
350               >=, ?>=, <>,
351               <=>, ?<>] =
352              map FBRANCH
353              [|?|, |==|, |?=|, |<|, |?<|,
354               |<=|, |?<=|, |>|, |?>|,
355               |>=|, |?>=|, |<>|,
356               |<=>|, |?<>|]
357    
358     end (* RTL *)     end (* RTL *)
359    

Legend:
Removed from v.1033  
changed lines
  Added in v.1156

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