Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
d10c3754
Commit
d10c3754
authored
Oct 24, 2018
by
Maxime Perrotin
Browse files
Work on Concurrency view
parent
e750bfd3
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/taste-concurrency_view.ads
View file @
d10c3754
...
...
@@ -35,7 +35,7 @@ package TASTE.Concurrency_View is
Name
:
Unbounded_String
;
Provided
:
Protected_Block_PIs
.
Map
;
Required
:
Interfaces_Maps
.
Map
;
Calling_Threads
:
String_
Vectors
.
Vector
;
Calling_Threads
:
String_
Sets
.
Set
;
Node
:
Option_Node
.
Option
;
end
record
;
...
...
src/taste-parser_utils.adb
View file @
d10c3754
...
...
@@ -125,7 +125,7 @@ package body TASTE.Parser_Utils is
if
Result
.
Version
then
raise
Exit_From_Command_Line
;
end
if
;
if
Result
.
Output_Dir
.
all
'
Length
=
0
then
if
Result
.
Output_Dir
=
null
or
else
Result
.
Output_Dir
.
all
'
Length
=
0
then
Result
.
Output_Dir
:=
new
String
'(
"."
);
end
if
;
end
Parse_Command_Line
;
...
...
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