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/compiler/CPS/convert/convert.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CPS/convert/convert.sml

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

revision 5014, Sun Apr 28 20:24:18 2019 UTC revision 5015, Mon Apr 29 01:51:55 2019 UTC
# Line 106  Line 106 
106            (* end case *))            (* end case *))
107    
108      fun recordFL(ul,_,w,ce) =      fun recordFL(ul,_,w,ce) =
109            RECORD(RK_FBLOCK, map (fn u => (u,OFFp 0)) ul, w, ce)            RECORD(RK_RAW64BLOCK, map (fn u => (u,OFFp 0)) ul, w, ce)
110    
111      fun recordNM(ul,ts,w,ce) =      fun recordNM(ul,ts,w,ce) =
112        let fun g (FLTt sz::r,u::z,l,h) =        let fun g (FLTt sz::r,u::z,l,h) =
# Line 252  Line 252 
252    
253              | AP.RAW_LOAD nk => PKL (P.RAWLOAD{ kind = numkind nk })              | AP.RAW_LOAD nk => PKL (P.RAWLOAD{ kind = numkind nk })
254              | AP.RAW_STORE nk => PKS (P.RAWSTORE{ kind = numkind nk })              | AP.RAW_STORE nk => PKS (P.RAWSTORE{ kind = numkind nk })
255              | AP.RAW_RECORD{ fblock = false } => PKP (P.RAWRECORD (SOME RK_I32BLOCK))              | AP.RAW_RECORD{ align64 = false } => PKP (P.RAWRECORD (SOME RK_RAWBLOCK))
256              | AP.RAW_RECORD{ fblock = true } => PKP (P.RAWRECORD (SOME RK_FBLOCK))              | AP.RAW_RECORD{ align64 = true } => PKP (P.RAWRECORD (SOME RK_RAW64BLOCK))
257    
258              | _ => bug (concat["bad primop in map_primop: ", AP.prPrimop p, "\n"])              | _ => bug (concat["bad primop in map_primop: ", AP.prPrimop p, "\n"])
259            (* end case *))            (* end case *))

Legend:
Removed from v.5014  
changed lines
  Added in v.5015

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