diff options
| -rw-r--r-- | src/ortho/debug/ortho_debug-disp.adb | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/ortho/debug/ortho_debug-disp.adb b/src/ortho/debug/ortho_debug-disp.adb index 2725668..7067056 100644 --- a/src/ortho/debug/ortho_debug-disp.adb +++ b/src/ortho/debug/ortho_debug-disp.adb @@ -442,13 +442,6 @@ package body Ortho_Debug.Disp is is Known : constant Boolean := Ctype /= O_Tnode_Null; begin - -- Sanity check. - if Known then - if Ctype /= C.Ctype then - raise Program_Error; - end if; - end if; - case C.Kind is when OC_Unsigned_Lit => if False and then (C.U_Val >= Character'Pos(' ') |