diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-11-14 21:54:50 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-11-14 21:54:50 +0100 |
commit | 20ea3682027c0725a02797665b58dc4adb382851 (patch) | |
tree | 76250347bbc66272781e9d7e34efeaa88ac39696 /src/ortho/mcode/ortho_code-debug.adb | |
parent | 826d00295979c7b5e88e1150c191ebc2f9302f52 (diff) | |
download | ghdl-20ea3682027c0725a02797665b58dc4adb382851.tar.gz ghdl-20ea3682027c0725a02797665b58dc4adb382851.tar.bz2 ghdl-20ea3682027c0725a02797665b58dc4adb382851.zip |
mcode x86: fix regressions.
Diffstat (limited to 'src/ortho/mcode/ortho_code-debug.adb')
-rw-r--r-- | src/ortho/mcode/ortho_code-debug.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/ortho/mcode/ortho_code-debug.adb b/src/ortho/mcode/ortho_code-debug.adb index 0f3e01ab9..1caa6c0b4 100644 --- a/src/ortho/mcode/ortho_code-debug.adb +++ b/src/ortho/mcode/ortho_code-debug.adb @@ -65,10 +65,8 @@ package body Ortho_Code.Debug is case C is when 'a' => Flag_Debug_Asm := True; - when 'b' => - Flag_Debug_Body := True; when 'B' => - Flag_Debug_Body2 := True; + Flag_Debug_Body := True; when 'c' => Flag_Debug_Code := True; when 'C' => |