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/compiler/Semant/pickle/unpickmod-new.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/pickle/unpickmod-new.sml

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

revision 1547, Wed Jul 14 19:40:35 2004 UTC revision 1548, Wed Jul 14 21:25:43 2004 UTC
# Line 283  Line 283 
283          fun ctype () = let          fun ctype () = let
284              fun ct #"\020" = CTypes.C_ARRAY (ctype (), int ())              fun ct #"\020" = CTypes.C_ARRAY (ctype (), int ())
285                | ct #"\021" = CTypes.C_STRUCT (ctypelist ())                | ct #"\021" = CTypes.C_STRUCT (ctypelist ())
286                  | ct #"\022" = CTypes.C_UNION (ctypelist ())
287                | ct c =                | ct c =
288                  Vector.sub (ctype_table, Char.ord c)                  Vector.sub (ctype_table, Char.ord c)
289                  handle General.Subscript => raise Format                  handle General.Subscript => raise Format

Legend:
Removed from v.1547  
changed lines
  Added in v.1548

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