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/zstring.sml
ViewVC logotype

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

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

revision 1014, Tue Jan 15 16:32:43 2002 UTC revision 1015, Tue Jan 15 21:46:00 2002 UTC
# Line 45  Line 45 
45          end          end
46          fun cpML { from, to } = cpML' { from = from, to = Light.ptr to }          fun cpML { from, to } = cpML' { from = from, to = Light.ptr to }
47    
48          fun dupML' s =          fun dupML' s = let
49              Option.map (fn z => (cpML' { from = s, to = z }; z))              val z = C.alloc' C.S.uchar (Word.fromInt (size s + 1))
50                         (C.alloc' C.S.uchar (Word.fromInt (size s + 1)))          in
51          fun dupML s =              cpML' { from = s, to = z };
52              Option.map (fn z => (cpML { from = s, to = z }; z))              z
53                         (C.alloc C.T.uchar (Word.fromInt (size s + 1)))          end
54    
55            fun dupML s = let
56                val z = C.alloc C.T.uchar (Word.fromInt (size s + 1))
57            in
58                cpML { from = s, to = z };
59                z
60            end
61      end      end
62  end  end

Legend:
Removed from v.1014  
changed lines
  Added in v.1015

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