diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-06 11:32:22 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-06 11:32:22 +0000 |
| commit | 76555ffd2403b3ebf1ea353063c16763e6493722 (patch) | |
| tree | 16b044dd521b32f4f8f3b759f15b811196679274 /backend/Mach.v | |
| parent | 52808842306243ed922eb8e7cf0525f1d890198c (diff) | |
| download | compcert-kvx-76555ffd2403b3ebf1ea353063c16763e6493722.tar.gz compcert-kvx-76555ffd2403b3ebf1ea353063c16763e6493722.zip | |
Refactoring: move definition of chunk_of_type to AST.v.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2238 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Mach.v')
| -rw-r--r-- | backend/Mach.v | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/backend/Mach.v b/backend/Mach.v index 5030de1e..ec48195c 100644 --- a/backend/Mach.v +++ b/backend/Mach.v @@ -123,9 +123,6 @@ value of the return address that the Asm code generated later will store in the reserved location. *) -Definition chunk_of_type (ty: typ) := - match ty with Tint => Mint32 | Tfloat => Mfloat64al32 | Tlong => Mint64 end. - Definition load_stack (m: mem) (sp: val) (ty: typ) (ofs: int) := Mem.loadv (chunk_of_type ty) m (Val.add sp (Vint ofs)). |