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-call/archs/x86-64-svid-fn.sml
ViewVC logotype

Diff of /MLRISC/trunk/c-call/archs/x86-64-svid-fn.sml

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

revision 3210, Fri Aug 15 18:35:05 2008 UTC revision 3211, Fri Aug 15 18:50:42 2008 UTC
# Line 12  Line 12 
12      structure T = T      structure T = T
13      structure C = AMD64Cells      structure C = AMD64Cells
14      structure CB = CellsBasis      structure CB = CellsBasis
15      structure CTy = CTypes      structure CTy = CType
16    
17      val wordTy = 64      val wordTy = 64
18      val mem = T.Region.memory      val mem = T.Region.memory
# Line 95  Line 95 
95              end              end
96    
97    (* convert a C type into its eight bytes *)    (* convert a C type into its eight bytes *)
98      fun eightBytesOfCTy cTy = eightBytesOfCTys (CTypes.flattenCTy cTy, [], [])      fun eightBytesOfCTy cTy = eightBytesOfCTys (CType.flattenCTy cTy, [], [])
99    
100    (* classify a C type into its location kind (assuming that aggregates cannot be passed in registers) *)    (* classify a C type into its location kind (assuming that aggregates cannot be passed in registers) *)
101      fun kindOfCTy (CTy.C_float | CTy.C_double | CTy.C_long_double) = FPR      fun kindOfCTy (CTy.C_float | CTy.C_double | CTy.C_long_double) = FPR

Legend:
Removed from v.3210  
changed lines
  Added in v.3211

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