diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2018-09-12 18:35:24 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2018-09-12 18:35:24 +0200 |
| commit | 4927777d089c56001098781f8923dd4292b148ad (patch) | |
| tree | 6a83b3c8e3f53e2252fef08a43f0fb97c8e2050c | |
| parent | 1062e38b07d76d88d9bd11155d8500c157784026 (diff) | |
| download | compcert-4927777d089c56001098781f8923dd4292b148ad.tar.gz compcert-4927777d089c56001098781f8923dd4292b148ad.zip | |
Simplified code. Bug 24067
| -rw-r--r-- | backend/Asmexpandaux.ml | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/backend/Asmexpandaux.ml b/backend/Asmexpandaux.ml index 1b250457..f5c76925 100644 --- a/backend/Asmexpandaux.ml +++ b/backend/Asmexpandaux.ml @@ -153,10 +153,10 @@ let expand_debug id sp preg simple l = aux None scopes rest end | (Pbuiltin(EF_annot (kind, _, _),_,_) as annot)::rest -> - if P.to_int kind = 2 && lbl_follows rest then begin - simple annot; simple builtin_nop; aux None scopes rest - end else - simple annot; aux None scopes rest + simple annot; + if P.to_int kind = 2 && lbl_follows rest then + simple builtin_nop; + aux None scopes rest | (Plabel lbl)::rest -> simple (Plabel lbl); aux (Some lbl) scopes rest | i::rest -> simple i; aux None scopes rest in (* We need to move all closing debug annotations before the last real statement *) @@ -174,10 +174,10 @@ let expand_debug id sp preg simple l = let expand_simple simple l = let rec aux = function | (Pbuiltin(EF_annot (kind, _, _),_,_) as annot)::rest -> - if P.to_int kind = 2 && lbl_follows rest then begin - simple annot; simple builtin_nop; aux rest - end else - simple annot; aux rest + simple annot; + if P.to_int kind = 2 && lbl_follows rest then + simple builtin_nop; + aux rest | i::rest -> simple i; aux rest | [] -> () in aux l |