diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-18 18:33:12 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-18 18:33:12 +0100 |
| commit | f54bfbcebc7a7f9fbb9a413c2f2210051d0485cc (patch) | |
| tree | 817cd92172549e4aabcb3dcb31eab167a30b3076 | |
| parent | 2d3765bc9176f59f88b5369c3a508f84e25f4b5f (diff) | |
| download | ghdl-f54bfbcebc7a7f9fbb9a413c2f2210051d0485cc.tar.gz ghdl-f54bfbcebc7a7f9fbb9a413c2f2210051d0485cc.tar.bz2 ghdl-f54bfbcebc7a7f9fbb9a413c2f2210051d0485cc.zip | |
ortho_debug: suppress one more check with Disable_Checks.
| -rw-r--r-- | src/ortho/debug/ortho_debug.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/ortho/debug/ortho_debug.adb b/src/ortho/debug/ortho_debug.adb index 6e9b2b89d..3645b89e8 100644 --- a/src/ortho/debug/ortho_debug.adb +++ b/src/ortho/debug/ortho_debug.adb @@ -222,6 +222,9 @@ package body Ortho_Debug is is Res : Boolean; begin + if Disable_Checks then + return; + end if; case Decl.Kind is when ON_Interface_Decl => Res := Decl.Func_Scope.Alive; |