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
3394f792
Commit
3394f792
authored
Dec 22, 2014
by
yoogx
Browse files
* Defend against small strings
parent
b0c9cdca
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/core/tree/ocarina-property_sets.adb
View file @
3394f792
...
...
@@ -151,7 +151,7 @@ package body Ocarina.Property_Sets is
Tag
:
constant
String
:=
"%property_set%"
;
begin
if
S
(
S
'
First
+
1
)
=
'_'
then
if
S
'
Length
>
2
and
then
S
(
S
'
First
+
1
)
=
'_'
then
Set_Str_To_Name_Buffer
(
S
(
S
'
First
+
2
..
S
'
Last
));
else
Set_Str_To_Name_Buffer
(
S
);
...
...
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