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
b9fc2aa9
Commit
b9fc2aa9
authored
Nov 18, 2015
by
yoogx
Browse files
* Add symbolic traceback (if supported by host, see GNAT
User's Guide for details.
parent
4f5c3e4c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/core/common_files/errors.adb
View file @
b9fc2aa9
...
...
@@ -32,6 +32,7 @@
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
GNAT
.
Traceback
.
Symbolic
;
use
GNAT
.
Traceback
.
Symbolic
;
with
Ocarina
.
Output
;
use
Ocarina
.
Output
;
with
Ocarina
.
Namet
;
use
Ocarina
.
Namet
;
...
...
@@ -227,6 +228,8 @@ package body Errors is
"============================+"
);
Write_Eol
;
Write_Line
(
Ada
.
Exceptions
.
Exception_Information
(
E
));
Write_Line
(
"Symbolic Traceback:"
);
Write_Line
(
Symbolic_Traceback
(
E
));
OS_Exit
(
3
);
end
Display_Bug_Box
;
...
...
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