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 1177, Mon Mar 25 16:49:18 2002 UTC revision 1178, Mon Mar 25 20:51:48 2002 UTC
# Line 294  Line 294 
294          and ctypelist () = list ctypeListM ctype ()          and ctypelist () = list ctypeListM ctype ()
295    
296          fun ccalltype() = let          fun ccalltype() = let
297              fun ct #"\000" = P.CCALL_INT32              fun ct #"\000" = P.CCI32
298                | ct #"\001" = P.CCALL_REAL64                | ct #"\001" = P.CCI64
299                | ct #"\002" = P.CCALL_ML_PTR                | ct #"\002" = P.CCR64
300                  | ct #"\003" = P.CCML
301                | ct _       = raise Format                | ct _       = raise Format
302          in  nonshare ct          in  nonshare ct
303          end          end
# Line 343  Line 344 
344                | po #"\116" = P.RAW_LOAD (numkind ())                | po #"\116" = P.RAW_LOAD (numkind ())
345                | po #"\117" = P.RAW_STORE (numkind ())                | po #"\117" = P.RAW_STORE (numkind ())
346                | po #"\118" = P.RAW_CCALL (SOME (ccall_info ()))                | po #"\118" = P.RAW_CCALL (SOME (ccall_info ()))
347                | po #"\119" = P.RAW_RECORD{tag=bool (),sz=int ()}                | po #"\119" = P.RAW_RECORD { fblock = bool () }
348                | po c =                | po c =
349                  Vector.sub (primop_table, Char.ord c)                  Vector.sub (primop_table, Char.ord c)
350                  handle General.Subscript => raise Format                  handle General.Subscript => raise Format

Legend:
Removed from v.1177  
changed lines
  Added in v.1178

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