Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
fef30568
Commit
fef30568
authored
Jun 06, 2015
by
yoogx
Browse files
* By default, do not raise an error
For ticket #37
parent
4cfb1c4b
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/core/common_files/errors.adb
View file @
fef30568
...
...
@@ -34,8 +34,8 @@
with
Ada
.
Command_Line
;
use
Ada
.
Command_Line
;
with
GNAT
.
OS_Lib
;
use
GNAT
.
OS_Lib
;
with
GNAT
.
Directory_Operations
;
use
GNAT
.
Directory_Operations
;
with
Ocarina
.
Output
;
use
Ocarina
.
Output
;
with
Ocarina
.
Namet
;
use
Ocarina
.
Namet
;
with
Ocarina
.
Output
;
use
Ocarina
.
Output
;
with
Ocarina
.
Namet
;
use
Ocarina
.
Namet
;
package
body
Errors
is
...
...
@@ -43,7 +43,7 @@ package body Errors is
-- Use_Exception_To_Exit --
---------------------------
Use_Exception
:
Boolean
:=
Tru
e
;
Use_Exception
:
Boolean
:=
Fals
e
;
procedure
Use_Exception_To_Exit
is
begin
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment