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/ml-nlffi-lib/internals/c-int.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffi-lib/internals/c-int.sml

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

revision 1030, Fri Jan 18 21:45:37 2002 UTC revision 1031, Mon Jan 21 22:15:18 2002 UTC
# Line 402  Line 402 
402          fun null t = cast t vNull          fun null t = cast t vNull
403          val null' = CMemory.null          val null' = CMemory.null
404    
405            val fnull' = CMemory.null
406            fun fnull t = Heavy.fptr t fnull'
407    
408          val vIsNull = CMemory.isNull          val vIsNull = CMemory.isNull
409          fun isNull p = vIsNull (inject p)          fun isNull p = vIsNull (inject p)
410          val isNull' = CMemory.isNull          val isNull' = CMemory.isNull
411    
412            fun isFNull (p, _) = CMemory.isNull p
413            val isFNull' = CMemory.isNull
414    
415          fun |+! s (p, i) = p ++ (Word.toInt s * i)          fun |+! s (p, i) = p ++ (Word.toInt s * i)
416          fun |-! s (p, p') = (p -- p') div Word.toInt s          fun |-! s (p, p') = (p -- p') div Word.toInt s
417    

Legend:
Removed from v.1030  
changed lines
  Added in v.1031

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