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

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

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

revision 742, Thu Nov 30 14:09:32 2000 UTC revision 772, Thu Jan 4 15:36:41 2001 UTC
# Line 341  Line 341 
341                      ?113 $ [numkind kind, bool checked]                      ?113 $ [numkind kind, bool checked]
342                | P.INL_MONOARRAY kind => ?114 $ [numkind kind]                | P.INL_MONOARRAY kind => ?114 $ [numkind kind]
343                | P.INL_MONOVECTOR kind => ?115 $ [numkind kind]                | P.INL_MONOVECTOR kind => ?115 $ [numkind kind]
344                  | P.RAW_LOAD kind => ?116 $ [numkind kind]
345                  | P.RAW_STORE kind => ?117 $ [numkind kind]
346    
347                | P.MKETAG => %?0                | P.MKETAG => %?0
348                | P.WRAP => %?1                | P.WRAP => %?1
# Line 406  Line 408 
408                | P.SUBSCRIPT_REC => %?58                | P.SUBSCRIPT_REC => %?58
409                | P.SUBSCRIPT_RAW64 => %?59                | P.SUBSCRIPT_RAW64 => %?59
410                | P.UNBOXEDASSIGN => %?60                | P.UNBOXEDASSIGN => %?60
411                  | P.RAW_CCALL => %?61
412      end      end
413    
414      fun consig arg = let      fun consig arg = let
# Line 886  Line 889 
889          end          end
890    
891          val op $ = PU.$ II          val op $ = PU.$ II
892          fun inl_info (II.INL_PRIM (p, t)) = "A" $ [primop p, option ty t]          fun inl_info (II.INL_PRIM (p, t)) = "A" $ [primop p, ty t]
893            | inl_info (II.INL_STR sl) = "B" $ [list inl_info sl]            | inl_info (II.INL_STR sl) = "B" $ [list inl_info sl]
894            | inl_info II.INL_NO = "C" $ []            | inl_info II.INL_NO = "C" $ []
895            | inl_info _ = bug "unexpected inl_info in pickmod"            | inl_info _ = bug "unexpected inl_info in pickmod"

Legend:
Removed from v.742  
changed lines
  Added in v.772

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