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/i-iptr-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffi-lib/internals/i-iptr-fn.sml

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

revision 828, Fri May 11 18:32:07 2001 UTC revision 837, Fri Jun 1 17:27:54 2001 UTC
# Line 33  Line 33 
33   *)   *)
34  functor PointerToIncompleteType () :> POINTER_TO_INCOMPLETE_TYPE = struct  functor PointerToIncompleteType () :> POINTER_TO_INCOMPLETE_TYPE = struct
35    
36      type 'c iptr = (C.uchar, unit, 'c) C.ptr      type 'c iptr = (C.uchar, 'c) C.ptr
37      type 'c iptr' = (C.uchar, unit, 'c) C.ptr'      type 'c iptr' = (C.uchar, 'c) C.ptr'
38    
39      val typ'rw = C.T.pointer C.T.uchar      val typ'rw = C.T.pointer C.T.uchar
40      val typ'ro = C.T.ro typ'rw      val typ'ro = C.T.ro typ'rw
# Line 57  Line 57 
57      val inject = C.Ptr.inject      val inject = C.Ptr.inject
58      val inject' = C.Ptr.inject'      val inject' = C.Ptr.inject'
59    
60      val project = C.Ptr.project      val cast = C.Ptr.cast
61      val project' = C.Ptr.project'      val cast' = C.Ptr.cast'
62    
63      val null = C.Ptr.null      val null = C.Ptr.null
64      val null' = C.Ptr.null'      val null' = C.Ptr.null'

Legend:
Removed from v.828  
changed lines
  Added in v.837

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