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
dc7c0c4d
Commit
dc7c0c4d
authored
May 28, 2008
by
Arnaud Charlet
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* exp_util.adb: Minor reformatting
From-SVN: r136089
parent
3294a391
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
7 deletions
+7
-7
gcc/ada/exp_util.adb
+7
-7
No files found.
gcc/ada/exp_util.adb
View file @
dc7c0c4d
...
@@ -908,9 +908,9 @@ package body Exp_Util is
...
@@ -908,9 +908,9 @@ package body Exp_Util is
function
Component_May_Be_Bit_Aligned
(
Comp
:
Entity_Id
)
return
Boolean
is
function
Component_May_Be_Bit_Aligned
(
Comp
:
Entity_Id
)
return
Boolean
is
begin
begin
--
If
no
component
clause
,
then
everything
is
fine
,
since
the
--
If
no
component
clause
,
then
everything
is
fine
,
since
the
back
end
--
back
end
never
bit
-
misaligns
by
default
,
even
if
there
is
--
never
bit
-
misaligns
by
default
,
even
if
there
is
a
pragma
Packed
for
--
a
pragma
Packed
for
the
record
.
--
the
record
.
if
No
(
Component_Clause
(
Comp
))
then
if
No
(
Component_Clause
(
Comp
))
then
return
False
;
return
False
;
...
@@ -933,8 +933,8 @@ package body Exp_Util is
...
@@ -933,8 +933,8 @@ package body Exp_Util is
then
then
return
False
;
return
False
;
--
Otherwise
if
the
component
is
not
byte
aligned
,
we
--
Otherwise
if
the
component
is
not
byte
aligned
,
we
know
we
have
the
--
know
we
have
the
nasty
unaligned
case
.
--
nasty
unaligned
case
.
elsif
Normalized_First_Bit
(
Comp
)
/=
Uint_0
elsif
Normalized_First_Bit
(
Comp
)
/=
Uint_0
or
else
Esize
(
Comp
)
mod
System_Storage_Unit
/=
Uint_0
or
else
Esize
(
Comp
)
mod
System_Storage_Unit
/=
Uint_0
...
@@ -4039,8 +4039,8 @@ package body Exp_Util is
...
@@ -4039,8 +4039,8 @@ package body Exp_Util is
begin
begin
--
If
we
know
the
component
size
and
it
is
less
than
64
,
then
--
If
we
know
the
component
size
and
it
is
less
than
64
,
then
--
we
are
definitely
OK
.
The
back
end
always
does
assignment
--
we
are
definitely
OK
.
The
back
end
always
does
assignment
of
--
of
misaligned
small
objects
correctly
.
--
misaligned
small
objects
correctly
.
if
Known_Static_Component_Size
(
Ptyp
)
if
Known_Static_Component_Size
(
Ptyp
)
and
then
Component_Size
(
Ptyp
)
<=
64
and
then
Component_Size
(
Ptyp
)
<=
64
...
...
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