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/LTL.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/LTL.v')
-rw-r--r-- | backend/LTL.v | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/backend/LTL.v b/backend/LTL.v index de108458..27fee8ab 100644 --- a/backend/LTL.v +++ b/backend/LTL.v @@ -197,16 +197,6 @@ Definition parent_locset (stack: list stackframe) : locset := | Stackframe f sp ls bb :: stack' => ls end. -(* REVISE -(** [getslot sl ofs ty rs] looks up the value of location [S sl ofs ty] in [rs], - and normalizes it to the type [ty] of this location. *) - -Definition getslot (sl: slot) (ofs: Z) (ty: typ) (rs: locset) : val := - Val.load_result - (match ty with Tint => Mint32 | Tfloat => Mfloat64 | Tlong => Mint64 end) - (rs (S sl ofs ty)). -*) - Inductive step: state -> trace -> state -> Prop := | exec_start_block: forall s f sp pc rs m bb, (fn_code f)!pc = Some bb -> |