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 828, Fri May 11 18:32:07 2001 UTC revision 829, Mon May 14 15:30:56 2001 UTC
# Line 962  Line 962 
962              sp ();              sp ();
963              PP.openHVBox strpp (PP.Rel 1);              PP.openHVBox strpp (PP.Rel 1);
964              str "(";              str "(";
965              pr_vdecl ("library", Arrow (Unit, Type "DynLinkage.lib_handle"));              pr_vdecl ("library", Type "DynLinkage.lib_handle");
966              app pr_istruct_arg incomplete_structs;              app pr_istruct_arg incomplete_structs;
967              app pr_iunion_arg incomplete_unions;              app pr_iunion_arg incomplete_unions;
968              str ")";              str ")";
# Line 990  Line 990 
990              (* low-level call operations for all function pointers *)              (* low-level call operations for all function pointers *)
991              app pr_fptr_rti fptr_types;              app pr_fptr_rti fptr_types;
992    
993              (* grab the library handle *)              (* the library handle (handle on shared object) *)
994              nl (); str "val so_h = library ()";              nl (); str "val so_h = library";
995              (* addr handles for global variables *)              (* addr handles for global variables *)
996              app pr_gvar_addr gvars;              app pr_gvar_addr gvars;
997              (* addr handles for global C functions *)              (* addr handles for global C functions *)

Legend:
Removed from v.828  
changed lines
  Added in v.829

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