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

SCM Repository

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

Diff of /trunk/src/compiler/cl-target/cl-target.sml

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

revision 1671, Sun Dec 4 10:56:10 2011 UTC revision 1766, Sat Mar 24 10:09:29 2012 UTC
# Line 453  Line 453 
453                  prFn                  prFn
454                end                end
455    
456          fun genStrandTyDef(targetTy,Strand{state,...},tyName) =          fun genStrandTyDef(targetTy,Strand{state,...},tyName) = (case state
                 (case state  
457                     of [] => CL.D_Comment(["No Strand Defintiion Included"])                     of [] => CL.D_Comment(["No Strand Defintiion Included"])
458                      | _ => CL.D_StructDef(revmap (fn x => (targetTy x, #var x)) state,                  | _ => CL.D_StructDef(
459                                          tyName)                      NONE,
460                        revmap (fn x => (targetTy x, #var x)) state,
461                        SOME tyName)
462                                   (* end case *))                                   (* end case *))
463    
464    
# Line 619  Line 620 
620            | genGlobalStruct (targetTy, globals, tyName) = let            | genGlobalStruct (targetTy, globals, tyName) = let
621                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
622                in                in
623                  CL.D_StructDef(globs, tyName)                  CL.D_StructDef(NONE, globs, SOME tyName)
624                end                end
625    
626        (* 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 629  Line 630 
630                      (fn (x, _) => (globalPtr CL.voidTy, RN.imageDataName x))                      (fn (x, _) => (globalPtr CL.voidTy, RN.imageDataName x))
631                        imgGlobals                        imgGlobals
632                in                in
633                  CL.D_StructDef(globs, tyName)                  CL.D_StructDef(NONE, globs, SOME tyName)
634                end                end
635    
636          fun genGlobals (declFn, targetTy, globals) = let          fun genGlobals (declFn, targetTy, globals) = let

Legend:
Removed from v.1671  
changed lines
  Added in v.1766

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