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 1178, Mon Mar 25 20:51:48 2002 UTC revision 1347, Thu Aug 28 21:59:15 2003 UTC
# Line 292  Line 292 
292            | arithopc P.FSIN = "\014"            | arithopc P.FSIN = "\014"
293            | arithopc P.FCOS = "\015"            | arithopc P.FCOS = "\015"
294            | arithopc P.FTAN = "\016"            | arithopc P.FTAN = "\016"
295              | arithopc P.REM = "\017"
296              | arithopc P.DIV = "\018"
297              | arithopc P.MOD = "\019"
298      in      in
299          arithopc oper $ []          arithopc oper $ []
300      end      end
# Line 389  Line 392 
392                | P.RAW_CCALL (SOME i) => ?118 $ [ccall_info i]                | P.RAW_CCALL (SOME i) => ?118 $ [ccall_info i]
393                | P.RAW_RECORD { fblock } => ?119 $ [bool fblock]                | P.RAW_RECORD { fblock } => ?119 $ [bool fblock]
394    
395                  | P.INLMIN kind => ?120 $ [numkind kind]
396                  | P.INLMAX kind => ?121 $ [numkind kind]
397                  | P.INLABS kind => ?122 $ [numkind kind]
398    
399                  | P.TEST_INF i => ?123 $ [int i]
400                  | P.TRUNC_INF i => ?124 $ [int i]
401                  | P.EXTEND_INF i => ?125 $ [int i]
402                  | P.COPY_INF i => ?126 $ [int i]
403    
404                | P.MKETAG => %?0                | P.MKETAG => %?0
405                | P.WRAP => %?1                | P.WRAP => %?1
406                | P.UNWRAP => %?2                | P.UNWRAP => %?2
# Line 435  Line 447 
447                | P.GETSPECIAL => %?40                | P.GETSPECIAL => %?40
448                | P.USELVAR => %?41                | P.USELVAR => %?41
449                | P.DEFLVAR => %?42                | P.DEFLVAR => %?42
450                | P.INLDIV => %?43                | P.INLNOT => %?43
451                | P.INLMOD => %?44                | P.INLCOMPOSE => %?44
452                | P.INLREM => %?45                | P.INLBEFORE => %?45
453                | P.INLMIN => %?46                | P.INL_ARRAY => %?46
454                | P.INLMAX => %?47                | P.INL_VECTOR => %?47
455                | P.INLABS => %?48                | P.ISOLATE => %?48
456                | P.INLNOT => %?49                | P.WCAST => %?49
457                | P.INLCOMPOSE => %?50                | P.NEW_ARRAY0 => %?50
458                | P.INLBEFORE => %?51                | P.GET_SEQ_DATA => %?51
459                | P.INL_ARRAY => %?52                | P.SUBSCRIPT_REC => %?52
460                | P.INL_VECTOR => %?53                | P.SUBSCRIPT_RAW64 => %?53
461                | P.ISOLATE => %?54                | P.UNBOXEDASSIGN => %?54
462                | P.WCAST => %?55                | P.RAW_CCALL NONE => %?55
463                | P.NEW_ARRAY0 => %?56                | P.INLIGNORE => %?56
464                | P.GET_SEQ_DATA => %?57                | P.INLIDENTITY => %?57
               | P.SUBSCRIPT_REC => %?58  
               | P.SUBSCRIPT_RAW64 => %?59  
               | P.UNBOXEDASSIGN => %?60  
               | P.RAW_CCALL NONE => %?61  
465      end      end
466    
467      fun consig arg = let      fun consig arg = let

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

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