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
6e9ecd1f
Commit
6e9ecd1f
authored
Apr 18, 2016
by
Vincent Celier
Committed by
Arnaud Charlet
Apr 18, 2016
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* gcc-interface/decl.c: Rename Descendent -> Descendant
From-SVN: r235104
parent
f3a59e2e
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
3 additions
and
2 deletions
+3
-2
gcc/ada/ChangeLog
+1
-0
gcc/ada/gcc-interface/decl.c
+2
-2
No files found.
gcc/ada/ChangeLog
View file @
6e9ecd1f
...
...
@@ -31,6 +31,7 @@
sem_ch4.adb, atree.adb, atree.ads, sem_warn.adb, treepr.adb,
exp_ch3.ads, exp_unst.adb: Change "descendent" to
"descendant" in comments, error messages and identifiers.
* gcc-interface/decl.c: Ditto.
2016-04-18 Eric Botcazou <ebotcazou@adacore.com>
...
...
gcc/ada/gcc-interface/decl.c
View file @
6e9ecd1f
...
...
@@ -5857,7 +5857,7 @@ gnat_to_gnu_param (Entity_Id gnat_param, Mechanism_Type mech,
/* For GCC builtins, pass Address integer types as (void *) */
if
(
Convention
(
gnat_subprog
)
==
Convention_Intrinsic
&&
Present
(
Interface_Name
(
gnat_subprog
))
&&
Is_Descend
e
nt_Of_Address
(
Etype
(
gnat_param
)))
&&
Is_Descend
a
nt_Of_Address
(
Etype
(
gnat_param
)))
gnu_param_type
=
ptr_type_node
;
/* Arrays are passed as pointers to element type for foreign conventions. */
...
...
@@ -8603,7 +8603,7 @@ intrin_return_compatible_p (intrin_binding_t * inb)
return
true
;
/* If return type is Address (integer type), map it to void *. */
if
(
Is_Descend
e
nt_Of_Address
(
Etype
(
inb
->
gnat_entity
)))
if
(
Is_Descend
a
nt_Of_Address
(
Etype
(
inb
->
gnat_entity
)))
ada_return_type
=
ptr_type_node
;
/* Check return types compatibility otherwise. Note that this
...
...
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