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/branches/SMLNJ/src/compiler/Semant/modules/moduleutil.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/Semant/modules/moduleutil.sml

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

revision 105, Thu May 28 21:30:17 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 225  Line 225 
225                              info = II.selInfo(dinfo,slot), path = sp,                              info = II.selInfo(dinfo,slot), path = sp,
226                              typ = ref(transType entities spec)})                              typ = ref(transType entities spec)})
227    
228           | CONspec{spec=T.DATACON{name, const, typ, rep, sign}, slot} =>           | CONspec{spec=T.DATACON{name, const, typ, rep, sign, lazyp}, slot} =>
229               let val newrep =               let val newrep =
230                     case (rep, slot)                     case (rep, slot)
231                      of (A.EXN _, SOME i) => A.EXN (A.selAcc(dacc,i))                      of (A.EXN _, SOME i) => A.EXN (A.selAcc(dacc,i))
# Line 233  Line 233 
233    
234                in V.CON(T.DATACON{rep=newrep, name=name,                in V.CON(T.DATACON{rep=newrep, name=name,
235                                   typ=transType entities typ,                                   typ=transType entities typ,
236                                   const=const, sign=sign})                                   const=const, sign=sign, lazyp=lazyp})
237               end               end
238    
239           | _ => bug "mkVal: wrong spec")           | _ => bug "mkVal: wrong spec")
# Line 475  Line 475 
475    
476  (*  (*
477   * $Log: moduleutil.sml,v $   * $Log: moduleutil.sml,v $
478     * Revision 1.2  1998/05/15 03:42:51  dbm
479     *   Added lazyp field as appropriate.
480     *
481   * Revision 1.1.1.1  1998/04/08 18:39:28  george   * Revision 1.1.1.1  1998/04/08 18:39:28  george
482   * Version 110.5   * Version 110.5
483   *   *

Legend:
Removed from v.105  
changed lines
  Added in v.106

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