Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/c-util/world.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/c-util/world.sml

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

revision 1862, Sun Apr 22 19:45:47 2012 UTC revision 2049, Sun Oct 21 18:22:07 2012 UTC
# Line 9  Line 9 
9    (* create the declaration for the world type *)    (* create the declaration for the world type *)
10      val genStruct : TargetUtil.target_desc * (CLang.ty * string) list -> CLang.decl      val genStruct : TargetUtil.target_desc * (CLang.ty * string) list -> CLang.decl
11    
12      (* generate code to register an error message *)
13        val errorMsgAdd : CLang.exp -> CLang.stm
14    
15    end = struct    end = struct
16    
17      structure CL = CLang      structure CL = CLang
# Line 32  Line 35 
35            prefix @ tgtFields,            prefix @ tgtFields,
36            NONE)            NONE)
37    
38        fun errorMsgAdd msg =
39              CL.mkCall("biffMsgAdd", [CL.mkIndirect(CL.mkVar "wrld", "errors"), msg])
40    
41    end    end

Legend:
Removed from v.1862  
changed lines
  Added in v.2049

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