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 /MLRISC/trunk/c-calls/c-types.sml
ViewVC logotype

Diff of /MLRISC/trunk/c-calls/c-types.sml

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

revision 2994, Thu Apr 17 23:34:02 2008 UTC revision 2995, Fri Apr 18 06:59:04 2008 UTC
# Line 40  Line 40 
40          paramTys : c_type list          paramTys : c_type list
41        }        }
42    
43        (* eliminate unions and structs *)
44        fun flattenCTy cTy = (case cTy
45            of (C_STRUCT cTys |
46                C_UNION cTys ) => List.concat (List.map flattenCTy cTys)
47             | cTy => [cTy])
48    
49    
50    end    end

Legend:
Removed from v.2994  
changed lines
  Added in v.2995

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