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
361e12ab
Commit
361e12ab
authored
Sep 23, 2013
by
yoogx
Browse files
* (Unit_Name): special processing for Standard package
parent
cda5b018
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-ada_tree-nutils.adb
View file @
361e12ab
...
...
@@ -3245,6 +3245,10 @@ package body Ocarina.Backends.Ada_Tree.Nutils is
Fatal
=>
True
);
end
if
;
if
To_Lower
(
Name_Buffer
(
1
..
Pos
-
1
))
=
"standard"
then
return
No_Name
;
end
if
;
Set_Str_To_Name_Buffer
(
Name_Buffer
(
1
..
Pos
-
1
));
return
Name_Find
;
end
Unit_Name
;
...
...
src/backends/ocarina-backends-ada_tree-nutils.ads
View file @
361e12ab
...
...
@@ -948,7 +948,8 @@ package Ocarina.Backends.Ada_Tree.Nutils is
function
Unit_Name
(
N
:
Name_Id
)
return
Name_Id
;
-- Given an ENTITY fully qualified name A.B.C.D, returns A.B.C
-- Raises an arror if the name does not contains any dot.
-- Raises an error if the name does not contains any dot.
-- Return No_Name is unit name is Standard
function
Local_Name
(
N
:
Name_Id
)
return
Name_Id
;
-- Given an ENTITY fully qualified name A.B.C.D, returns D
...
...
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