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/src/ml-nlffigen/gen.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffigen/gen.sml

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

revision 835, Wed May 23 18:30:31 2001 UTC revision 836, Fri May 25 19:28:51 2001 UTC
# Line 152  Line 152 
152                | _ => NONE                | _ => NONE
153          end          end
154    
155            val cgtys = List.filter (not o isSome o incomplete o #spec) gtys
156    
157          fun istruct (K, tag) = concat ["I_", K, "_", tag]          fun istruct (K, tag) = concat ["I_", K, "_", tag]
158    
159          fun rwro S.RW = Type "rw"          fun rwro S.RW = Type "rw"
# Line 208  Line 210 
210            | wtn_f_ty_p p (S.ARR { t, d, ... }) = let            | wtn_f_ty_p p (S.ARR { t, d, ... }) = let
211                  val (w, f) = wtn_f_ty t                  val (w, f) = wtn_f_ty t
212              in              in
213                  (Con ("arr", [w, f, dim_ty d]), f)                  (Con ("arr", [w, dim_ty d]), f)
214              end              end
215            | wtn_f_ty_p p (S.FPTR spec) = wtn_f_fptr_p p spec            | wtn_f_ty_p p (S.FPTR spec) = wtn_f_fptr_p p spec
216    
# Line 432  Line 434 
434              app pr_union_tag unions;              app pr_union_tag unions;
435              app pr_struct_structure structs;              app pr_struct_structure structs;
436              app pr_union_structure unions;              app pr_union_structure unions;
437              if not (List.null gtys) then              if not (List.null cgtys) then
438                  (nl (); nl (); str "(* RTI for typedefs *)";                  (nl (); nl (); str "(* RTI for typedefs *)";
439                   app pr_gty_rti gtys)                   app pr_gty_rti cgtys)
440              else ();              else ();
441              if not (List.null gvars) then              if not (List.null gvars) then
442                  (nl (); nl (); str "(* object handles for global variables *)";                  (nl (); nl (); str "(* object handles for global variables *)";
# Line 1015  Line 1017 
1017              app pr_union_structure unions;              app pr_union_structure unions;
1018    
1019              (* RTI for C typedefs *)              (* RTI for C typedefs *)
1020              app pr_gty_rti gtys;              app pr_gty_rti cgtys;
1021              (* (suspended) objects for global variables *)              (* (suspended) objects for global variables *)
1022              app pr_gvar_obj gvars;              app pr_gvar_obj gvars;
1023              (* RTI for function pointers corresponding to global C functions *)              (* RTI for function pointers corresponding to global C functions *)

Legend:
Removed from v.835  
changed lines
  Added in v.836

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