CVS: sml-dist/src/compiler/TopLevel/backend amd64-ccall.sml, NONE, 1.1 amd64-stdcall.sml, NONE, 1.1

Update of /cvsroot/smlnj/sml-dist/src/compiler/TopLevel/backend
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv30638/src/compiler/TopLevel/backend

Added Files:
	amd64-ccall.sml amd64-stdcall.sml 
Log Message:
merged amd64 code from Mike Rainey

--- NEW FILE: amd64-ccall.sml ---
(* backend/amd64-ccall.sml
 *
 * (C) 2006 The Fellowship of SML/NJ
 *)
local
    (* turn on "fast-fp"... *)
    val _ = MLRiscControl.flag "x86-fast-fp" := true
in
structure AMD64CCallBackend =
          BackendFn (structure M = AMD64MC (structure CCallParams = struct
					      val frameAlign = 16 (* 4? *)
					      val returnSmallStructsInRegs = false
					    end
                                          val abi_variant = NONE)
		     val cproto_conv = "ccall")
end

--- NEW FILE: amd64-stdcall.sml ---
(* backend/amd64-stdcall.sml
 *
 * (C) 2006 The Fellowship of SML/NJ
 *)
local
    (* turn on "fast-fp"... *)
    val _ = MLRiscControl.flag "x86-fast-fp" := true
in
structure AMD64StdCallBackend =
          BackendFn (structure M = AMD64MC (structure CCallParams = struct
					      val frameAlign = 16 (* 4? *)
					      val returnSmallStructsInRegs = false
					    end
                                          val abi_variant = NONE)
		     val cproto_conv = "stdcall")
end


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV