Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
O
Ocarina
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
TASTE
Ocarina
Commits
3c49520a
Commit
3c49520a
authored
Aug 02, 2015
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* When scanning for an identifier, ensure we are still in the
boundaries of the buffer Fix for issue #47
parent
e656306b
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
12 additions
and
2 deletions
+12
-2
src/frontends/aadl/ocarina-fe_aadl-lexer.adb
src/frontends/aadl/ocarina-fe_aadl-lexer.adb
+3
-2
tests/MANIFEST
tests/MANIFEST
+1
-0
tests/github/issue_47/test.aadl
tests/github/issue_47/test.aadl
+6
-0
tests/github/issue_47/test.aadl.out
tests/github/issue_47/test.aadl.out
+2
-0
No files found.
src/frontends/aadl/ocarina-fe_aadl-lexer.adb
View file @
3c49520a
...
...
@@ -379,8 +379,9 @@ package body Ocarina.FE_AADL.Lexer is
Display_Name_Buffer
(
Display_Name_Len
)
:=
Buffer
(
Token_Location
.
Scan
);
Token_Location
.
Scan
:=
Token_Location
.
Scan
+
1
;
while
Is_Identifier_Character
(
Buffer
(
Token_Location
.
Scan
))
loop
while
Token_Location
.
Scan
<=
Token_Location
.
EOF
and
then
Is_Identifier_Character
(
Buffer
(
Token_Location
.
Scan
))
loop
Add_Char_To_Name_Buffer
(
To_Lower
(
Buffer
(
Token_Location
.
Scan
)));
Display_Name_Len
:=
Display_Name_Len
+
1
;
...
...
tests/MANIFEST
View file @
3c49520a
...
...
@@ -289,5 +289,6 @@ tests/github/issue_22/p.aadl
tests/github/issue_35/test.aadl
tests/github/issue_36/test.aadl
tests/github/issue_39/pb1.aadl
tests/github/issue_47/test.aadl
tests/root_system/test.aadl
tests/github/issue_47/test.aadl
0 → 100644
View file @
3c49520a
package
test
public
system
s
end
s
;
end
test
\ No newline at end of file
tests/github/issue_47/test.aadl.out
0 → 100644
View file @
3c49520a
test.aadl:6:09: parsing Package_Specification, token ';' is expected, found [EOF]
Cannot parse AADL specifications
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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