SCM Repository
Diff of /branches/vis12/src/compiler/c-util/c-ty-translate.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 2023, Wed Oct 10 12:27:13 2012 UTC | revision 2024, Wed Oct 10 13:36:38 2012 UTC | |
|---|---|---|
| # | Line 35 | Line 35 |
| 35 | structure CL = CLang | structure CL = CLang |
| 36 | structure N = CNames | structure N = CNames |
| 37 | ||
| 38 | (* translate a type to its internal Diderot represenation *) | (* translate a type to its internal Diderot representation *) |
| 39 | fun toType ty = (case ty | fun toType ty = (case ty |
| 40 | of Ty.BoolTy => CL.T_Named "bool" | of Ty.BoolTy => CL.T_Named "bool" |
| 41 | | Ty.StringTy => CL.T_Named "Diderot_string_t" | | Ty.StringTy => CL.T_Named "Diderot_string_t" |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
