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 3037, Tue May 27 06:30:07 2008 UTC revision 3038, Tue May 27 23:48:15 2008 UTC
# Line 40  Line 40 
40          paramTys : c_type list          paramTys : c_type list
41        }        }
42    
43      (* eliminate unions and structs *)      (* eliminate aggregates in a C type *)
44      fun flattenCTy cTy = (case cTy      fun flattenCTy cTy = (case cTy
45          of (C_STRUCT cTys |          of (C_STRUCT cTys |
46              C_UNION cTys ) => List.concat (List.map flattenCTy cTys)              C_UNION cTys ) => List.concat (List.map flattenCTy cTys)
47             | C_ARRAY (cTy, n) => List.tabulate (n, fn _ => cTy)
48           | cTy => [cTy])           | cTy => [cTy])
49    
50    

Legend:
Removed from v.3037  
changed lines
  Added in v.3038

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