diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-12 10:47:47 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-12 17:18:07 +0200 |
| commit | 8b76e2ecdd355e0088fd0542d5acd492a6a89ec2 (patch) | |
| tree | 37dacce3bb19e7ef3c1664eae8527f81b0ffdfbf /backend/Asmexpandaux.ml | |
| parent | 6f622eba1bb242bbbda107a2ad36245c69841360 (diff) | |
| download | compcert-kvx-8b76e2ecdd355e0088fd0542d5acd492a6a89ec2.tar.gz compcert-kvx-8b76e2ecdd355e0088fd0542d5acd492a6a89ec2.zip | |
Changed expand_debug to emit less labels.
If a label is printed before a list of debug annotations we can use it
for the debug annotations and don't need to add an extra label.
Bug 17392
Diffstat (limited to 'backend/Asmexpandaux.ml')
| -rw-r--r-- | backend/Asmexpandaux.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/backend/Asmexpandaux.ml b/backend/Asmexpandaux.ml index 25be9be3..59d8d8db 100644 --- a/backend/Asmexpandaux.ml +++ b/backend/Asmexpandaux.ml @@ -133,6 +133,7 @@ let expand_debug id sp preg simple l = | _ -> aux None scopes rest end + | (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 *) let rec move_debug acc bcc = function |