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/x86/omit-frameptr/x86omit-frameptr.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/omit-frameptr/x86omit-frameptr.sml

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

revision 1333, Thu May 22 17:12:13 2003 UTC revision 1334, Thu May 22 22:46:30 2003 UTC
# Line 345  Line 345 
345             val {visited, delta=d} = Option.getOpt(HT.find info nid, noInfo)             val {visited, delta=d} = Option.getOpt(HT.find info nid, noInfo)
346             fun sameDelta(NONE, NONE) = true             fun sameDelta(NONE, NONE) = true
347               | sameDelta(SOME i1: Int32.int option, SOME i2) = i1 = i2               | sameDelta(SOME i1: Int32.int option, SOME i2) = i1 = i2
348                 | sameDelta _ = false
349           in           in
350             if visited then (if sameDelta(d, delta) then () else error "dfs")             if visited then (if sameDelta(d, delta) then () else error "dfs")
351             else let             else let

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

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