Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
R
riscv-gcc-1
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
lvzhengyang
riscv-gcc-1
Commits
2400f4e5
Commit
2400f4e5
authored
Sep 05, 2005
by
Arnaud Charlet
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor reformatting.
Regenerated. From-SVN: r103897
parent
1525324e
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
30 additions
and
31 deletions
+30
-31
gcc/ada/csinfo.adb
+30
-31
No files found.
gcc/ada/csinfo.adb
View file @
2400f4e5
...
@@ -6,7 +6,7 @@
...
@@ -6,7 +6,7 @@
--
--
--
--
--
B
o
d
y
--
--
B
o
d
y
--
--
--
--
--
--
Copyright
(
C
)
1992
-
200
1
Free
Software
Foundation
,
Inc
.
--
--
Copyright
(
C
)
1992
-
200
5
Free
Software
Foundation
,
Inc
.
--
--
--
--
--
--
GNAT
is
free
software
;
you
can
redistribute
it
and
/
or
modify
it
under
--
--
GNAT
is
free
software
;
you
can
redistribute
it
and
/
or
modify
it
under
--
--
terms
of
the
GNU
General
Public
License
as
published
by
the
Free
Soft
-
--
--
terms
of
the
GNU
General
Public
License
as
published
by
the
Free
Soft
-
--
...
@@ -149,7 +149,6 @@ procedure CSinfo is
...
@@ -149,7 +149,6 @@ procedure CSinfo is
procedure
Sort
(
A
:
in
out
VStringA
)
is
procedure
Sort
(
A
:
in
out
VStringA
)
is
Temp
:
VString
;
Temp
:
VString
;
begin
begin
<<
Sort
>>
<<
Sort
>>
for
J
in
1
..
A
'Length - 1 loop
for
J
in
1
..
A
'Length - 1 loop
...
@@ -189,34 +188,35 @@ begin
...
@@ -189,34 +188,35 @@ begin
Set (Flags, "18", V ("R"));
Set (Flags, "18", V ("R"));
-- Special fields table. The following fields are not recorded or checked
-- Special fields table. The following fields are not recorded or checked
-- by Csinfo, since they are specially handled. This means that he both
-- by Csinfo, since they are specially handled. This means that both the
-- the field definitions, and the corresponding subprograms are ignored.
-- field definitions, and the corresponding subprograms are ignored.
Set (Special, "Analyzed", True);
Set (Special, "Analyzed", True);
Set (Special, "Assignment_OK", True);
Set (Special, "Assignment_OK", True);
Set (Special, "Associated_Node", True);
Set (Special, "Associated_Node", True);
Set (Special, "Cannot_Be_Constant", True);
Set (Special, "Cannot_Be_Constant", True);
Set (Special, "Chars", True);
Set (Special, "Chars", True);
Set (Special, "Comes_From_Source", True);
Set (Special, "Comes_From_Source", True);
Set (Special, "Do_Overflow_Check", True);
Set (Special, "Do_Overflow_Check", True);
Set (Special, "Do_Range_Check", True);
Set (Special, "Do_Range_Check", True);
Set (Special, "Entity", True);
Set (Special, "Entity", True);
Set (Special, "Error_Posted", True);
Set (Special, "Entity_Or_Associated_Node", True);
Set (Special, "Etype", True);
Set (Special, "Error_Posted", True);
Set (Special, "Evaluate_Once", True);
Set (Special, "Etype", True);
Set (Special, "First_Itype", True);
Set (Special, "Evaluate_Once", True);
Set (Special, "Has_Dynamic_Itype", True);
Set (Special, "First_Itype", True);
Set (Special, "Has_Dynamic_Range_Check", True);
Set (Special, "Has_Dynamic_Itype", True);
Set (Special, "Has_Dynamic_Length_Check", True);
Set (Special, "Has_Dynamic_Range_Check", True);
Set (Special, "Has_Private_View", True);
Set (Special, "Has_Dynamic_Length_Check", True);
Set (Special, "Is_Controlling_Actual", True);
Set (Special, "Has_Private_View", True);
Set (Special, "Is_Overloaded", True);
Set (Special, "Is_Controlling_Actual", True);
Set (Special, "Is_Static_Expression", True);
Set (Special, "Is_Overloaded", True);
Set (Special, "Left_Opnd", True);
Set (Special, "Is_Static_Expression", True);
Set (Special, "Must_Not_Freeze", True);
Set (Special, "Left_Opnd", True);
Set (Special, "Parens", True);
Set (Special, "Must_Not_Freeze", True);
Set (Special, "Raises_Constraint_Error", True);
Set (Special, "Parens", True);
Set (Special, "Right_Opnd", True);
Set (Special, "Raises_Constraint_Error", True);
Set (Special, "Right_Opnd", True);
-- Loop to acquire information from node definitions in sinfo.ads,
-- Loop to acquire information from node definitions in sinfo.ads,
-- checking for consistency in Op/Flag assignments to each synonym
-- checking for consistency in Op/Flag assignments to each synonym
...
@@ -256,7 +256,6 @@ begin
...
@@ -256,7 +256,6 @@ begin
Match (Field, Break_Field);
Match (Field, Break_Field);
if not Present (Special, Synonym) then
if not Present (Special, Synonym) then
if Present (Fields, Synonym) then
if Present (Fields, Synonym) then
if Field /= Get (Fields, Synonym) then
if Field /= Get (Fields, Synonym) then
Put_Line
Put_Line
...
...
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