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/branches/blume-private-devel/src/MLRISC/x86/c-calls/ia32-svid.sml
ViewVC logotype

Diff of /sml/branches/blume-private-devel/src/MLRISC/x86/c-calls/ia32-svid.sml

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

revision 1595, Fri Aug 6 23:07:17 2004 UTC revision 1596, Sun Aug 8 05:22:41 2004 UTC
# Line 193  Line 193 
193                    | Ty.C_float => (SOME(FReg(fltTy, st0, NONE)), NONE, 0)                    | Ty.C_float => (SOME(FReg(fltTy, st0, NONE)), NONE, 0)
194                    | Ty.C_double => (SOME(FReg(dblTy, st0, NONE)), NONE, 0)                    | Ty.C_double => (SOME(FReg(dblTy, st0, NONE)), NONE, 0)
195                    | Ty.C_long_double => (SOME(FReg(xdblTy, st0, NONE)), NONE, 0)                    | Ty.C_long_double => (SOME(FReg(xdblTy, st0, NONE)), NONE, 0)
196                    | Ty.C_unsigned I_long_long => raise Fail "register pair"                    | Ty.C_unsigned Ty.I_long_long => raise Fail "register pair"
197                    | Ty.C_signed I_long_long => raise Fail "register pair"                    | Ty.C_signed Ty.I_long_long => raise Fail "register pair"
198                      | Ty.C_unsigned _ =>
199                          (* Should we distinguish between different word
200                           * sized here? -- Matthias *)
201                          (SOME(Reg(wordTy,eax,NONE)),NONE,0)
202                      | Ty.C_signed _ =>
203                          (* Should we distinguish between different int
204                           * sized here? -- Matthias *)
205                          (SOME(Reg(wordTy,eax,NONE)),NONE,0)
206                    | Ty.C_PTR => (SOME(Reg(wordTy, eax, NONE)), NONE, 0)                    | Ty.C_PTR => (SOME(Reg(wordTy, eax, NONE)), NONE, 0)
207                    | Ty.C_ARRAY _ => error "array return type"                    | Ty.C_ARRAY _ => error "array return type"
208                    | Ty.C_STRUCT tys => let                    | Ty.C_STRUCT tys => let

Legend:
Removed from v.1595  
changed lines
  Added in v.1596

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