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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/cl-target/cl-target.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/cl-target/cl-target.sml

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

revision 1715, Sat Mar 10 14:42:07 2012 UTC revision 1716, Sat Mar 10 17:08:11 2012 UTC
# Line 451  Line 451 
451    
452          fun genStrandTyDef (targetTy,Strand{state,...}, tyName) = (case state          fun genStrandTyDef (targetTy,Strand{state,...}, tyName) = (case state
453                 of [] => CL.D_Comment(["No Strand Defintiion Included"])                 of [] => CL.D_Comment(["No Strand Defintiion Included"])
454                  | _ => CL.D_StructDef(revmap (fn x => (targetTy x, #var x)) state, tyName)                  | _ => CL.D_StructDef(
455                        NONE,
456                        revmap (fn x => (targetTy x, #var x)) state,
457                        SOME tyName)
458               (* end case *))               (* end case *))
459    
460       (* generates the globals buffers and arguments function *)       (* generates the globals buffers and arguments function *)
# Line 611  Line 614 
614            | genGlobalStruct (targetTy, globals, tyName) = let            | genGlobalStruct (targetTy, globals, tyName) = let
615                val globs = List.map (fn (x : mirror_var) => (targetTy x, #var x)) globals                val globs = List.map (fn (x : mirror_var) => (targetTy x, #var x)) globals
616                in                in
617                  CL.D_StructDef(globs, tyName)                  CL.D_StructDef(NONE, globs, SOME tyName)
618                end                end
619    
620        (* generate a global structure type definition from the image data of the image globals *)        (* generate a global structure type definition from the image data of the image globals *)
# Line 621  Line 624 
624                      (fn (x, _) => (globalPtr CL.voidTy, RN.imageDataName x))                      (fn (x, _) => (globalPtr CL.voidTy, RN.imageDataName x))
625                        imgGlobals                        imgGlobals
626                in                in
627                  CL.D_StructDef(globs, tyName)                  CL.D_StructDef(NONE, globs, SOME tyName)
628                end                end
629    
630          fun genGlobals (declFn, targetTy, globals) = let          fun genGlobals (declFn, targetTy, globals) = let

Legend:
Removed from v.1715  
changed lines
  Added in v.1716

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