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
57aed6d6
Commit
57aed6d6
authored
Jul 23, 2009
by
Arnaud Charlet
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor reformatting.
From-SVN: r149980
parent
212863c0
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
12 deletions
+13
-12
gcc/ada/g-sse.ads
+12
-10
gcc/ada/g-ssvety.ads
+1
-2
No files found.
gcc/ada/g-sse.ads
View file @
57aed6d6
...
@@ -47,30 +47,31 @@
...
@@ -47,30 +47,31 @@
-- with Ada.Unchecked_Conversion;
-- with Ada.Unchecked_Conversion;
-- with GNAT.SSE.Vector_Types; use GNAT.SSE; use GNAT.SSE.Vector_Types;
-- with GNAT.SSE.Vector_Types; use GNAT.SSE; use GNAT.SSE.Vector_Types;
--
-- procedure SSE_Base is
-- procedure SSE_Base is
--
-- -- Core operations
-- -- Core operations
--
-- function mm_add_ss (A, B : M128) return M128;
-- function mm_add_ss (A, B : M128) return M128;
-- pragma Import (Intrinsic, mm_add_ss, "__builtin_ia32_addss");
-- pragma Import (Intrinsic, mm_add_ss, "__builtin_ia32_addss");
--
-- -- User views / conversions or overlays
-- -- User views / conversions or overlays
--
-- type Vf32_View is array (1 .. 4) of Float;
-- type Vf32_View is array (1 .. 4) of Float;
-- for Vf32_View'
Alignment
use
VECTOR_ALIGN
;
-- for Vf32_View'
Alignment
use
VECTOR_ALIGN
;
--
--
function
To_M128
is
new
Ada
.
Unchecked_Conversion
(
Vf32_View
,
M128
);
--
function
To_M128
is
new
Ada
.
Unchecked_Conversion
(
Vf32_View
,
M128
);
--
--
X
,
Y
,
Z
:
M128
;
--
X
,
Y
,
Z
:
M128
;
--
--
Vz
:
Vf32_View
;
--
Vz
:
Vf32_View
;
--
for
Vz
'Address use Z'
Address
;
--
for
Vz
'Address use Z'
Address
;
--
begin
--
begin
--
X
:=
To_M128
((
1.0
,
1.0
,
2.0
,
2.0
));
--
X
:=
To_M128
((
1.0
,
1.0
,
2.0
,
2.0
));
--
Y
:=
To_M128
((
2.0
,
2.0
,
1.0
,
1.0
));
--
Y
:=
To_M128
((
2.0
,
2.0
,
1.0
,
1.0
));
--
Z
:=
mm_add_ss
(
X
,
Y
);
--
Z
:=
mm_add_ss
(
X
,
Y
);
--
--
if
vz
/=
(
3.0
,
1.0
,
2.0
,
2.0
)
then
--
if
vz
/=
(
3.0
,
1.0
,
2.0
,
2.0
)
then
--
raise
Program_Error
;
--
raise
Program_Error
;
--
end
if
;
--
end
if
;
...
@@ -79,7 +80,8 @@
...
@@ -79,7 +80,8 @@
--
Use
of
Unchecked_Union
is
very
tempting
,
however
hits
difficulties
with
--
Use
of
Unchecked_Union
is
very
tempting
,
however
hits
difficulties
with
--
e
.
g
.
implicit
front
-
end
expanded
equality
operators
,
which
typically
--
e
.
g
.
implicit
front
-
end
expanded
equality
operators
,
which
typically
--
feature
a
subcase
comparing
the
m128
components
,
not
supported
by
the
--
feature
a
subcase
comparing
the
m128
components
,
not
supported
by
the
--
middle
-
end
.
--
middle
-
end
.
This
needs
more
explanation
,
should
it
be
fixed
???
It
--
reads
like
a
bug
in
this
paragraph
.
package
GNAT
.
SSE
is
package
GNAT
.
SSE
is
type
Float32
is
new
Float
;
type
Float32
is
new
Float
;
...
...
gcc/ada/g-ssvety.ads
View file @
57aed6d6
...
@@ -2,7 +2,7 @@
...
@@ -2,7 +2,7 @@
--
--
--
--
--
GNAT
COMPILER
COMPONENTS
--
--
GNAT
COMPILER
COMPONENTS
--
--
--
--
--
--
G
N
A
T
.
S
S
E
.
V
e
c
t
o
r
_
T
y
p
e
s
--
--
G
N
A
T
.
S
S
E
.
V
E
C
T
O
R
_
T
Y
P
E
S
--
--
--
--
--
--
S
p
e
c
--
--
S
p
e
c
--
--
--
--
--
...
@@ -54,7 +54,6 @@ package GNAT.SSE.Vector_Types is
...
@@ -54,7 +54,6 @@ package GNAT.SSE.Vector_Types is
type
M128i
is
private
;
--
SSE
>=
2
type
M128i
is
private
;
--
SSE
>=
2
private
private
--
GCC
'wise, vector operations operate on objects of vector modes,
--
GCC
'wise, vector operations operate on objects of vector modes,
-- conveyed through vector types obtained by setting an attribute on what
-- conveyed through vector types obtained by setting an attribute on what
-- looks like a component typedef. For example, in C (xmmintrin.h):
-- looks like a component typedef. For example, in C (xmmintrin.h):
...
...
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