diff options
| author | Tristan Gingold <gingold@adacore.com> | 2016-01-05 06:44:53 +0100 |
|---|---|---|
| committer | Tristan Gingold <gingold@adacore.com> | 2016-01-06 18:38:37 +0100 |
| commit | b5797a5cef6d25817da7998f6263afa53e196d25 (patch) | |
| tree | ad3b67a93d16e8a06fab2d7a8c4d8993ff101b8a /src/ortho/debug/ortho_debug-disp.adb | |
| parent | 955e964b024de556c4c0db8fd745c6abdb8052fe (diff) | |
| download | ghdl-b5797a5cef6d25817da7998f6263afa53e196d25.tar.gz ghdl-b5797a5cef6d25817da7998f6263afa53e196d25.tar.bz2 ghdl-b5797a5cef6d25817da7998f6263afa53e196d25.zip | |
mcode: add support for x86-64
Diffstat (limited to 'src/ortho/debug/ortho_debug-disp.adb')
| -rw-r--r-- | src/ortho/debug/ortho_debug-disp.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/ortho/debug/ortho_debug-disp.adb b/src/ortho/debug/ortho_debug-disp.adb index 05eed1c66..bcca8dbd1 100644 --- a/src/ortho/debug/ortho_debug-disp.adb +++ b/src/ortho/debug/ortho_debug-disp.adb @@ -730,8 +730,10 @@ package body Ortho_Debug.Disp is while El /= O_Cnode_Null loop Set_Mark; Disp_Ident (El.E_Name); - Put (" = "); - Put (Image (El.E_Val)); + if False then + Put (" = "); + Put (Image (El.E_Val)); + end if; El := El.E_Next; exit when El = O_Cnode_Null; Put (", "); |