diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-07-31 12:43:51 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-07-31 12:43:51 +0000 |
commit | 99294ec7c8054b92536d14883599ff3bfe7745ee (patch) | |
tree | 2cceec53bc50ced0967dde1d05e9178e27c225ad /caml | |
parent | 1bf0ee95c46859a101610158dd24733099a486bd (diff) | |
download | compcert-99294ec7c8054b92536d14883599ff3bfe7745ee.tar.gz compcert-99294ec7c8054b92536d14883599ff3bfe7745ee.zip |
Added Slabel, Sgoto
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@705 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml')
-rw-r--r-- | caml/CMtypecheck.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/caml/CMtypecheck.ml b/caml/CMtypecheck.ml index dccaadcf..1ac00654 100644 --- a/caml/CMtypecheck.ml +++ b/caml/CMtypecheck.ml @@ -345,6 +345,10 @@ let rec type_stmt env blk ret s = with Error s -> raise (Error (sprintf "In tail call:\n%s" s)) end + | Slabel(lbl, s1) -> + type_stmt env blk ret s1 + | Sgoto lbl -> + () let rec env_of_vars idl = match idl with |