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
bd75ff94
Commit
bd75ff94
authored
Jun 08, 2015
by
Eric Botcazou
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add missing file.
From-SVN: r224208
parent
90af5990
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
147 additions
and
0 deletions
+147
-0
gcc/ada/system-dragonfly-x86_64.ads
+147
-0
No files found.
gcc/ada/system-dragonfly-x86_64.ads
0 → 100644
View file @
bd75ff94
------------------------------------------------------------------------------
--
--
--
GNAT
RUN
-
TIME
COMPONENTS
--
--
--
--
S
Y
S
T
E
M
--
--
--
--
S
p
e
c
--
--
(
DragonFly
BSD
/
x86_64
Version
)
--
--
--
--
Copyright
(
C
)
1992
-
2015
,
Free
Software
Foundation
,
Inc
.
--
--
--
--
This
specification
is
derived
from
the
Ada
Reference
Manual
for
use
with
--
--
GNAT
.
The
copyright
notice
above
,
and
the
license
provisions
that
follow
--
--
apply
solely
to
the
contents
of
the
part
following
the
private
keyword
.
--
--
--
--
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
-
--
--
ware
Foundation
;
either
version
3
,
or
(
at
your
option
)
any
later
ver
-
--
--
sion
.
GNAT
is
distributed
in
the
hope
that
it
will
be
useful
,
but
WITH
-
--
--
OUT
ANY
WARRANTY
;
without
even
the
implied
warranty
of
MERCHANTABILITY
--
--
or
FITNESS
FOR
A
PARTICULAR
PURPOSE
.
--
--
--
--
As
a
special
exception
under
Section
7
of
GPL
version
3
,
you
are
granted
--
--
additional
permissions
described
in
the
GCC
Runtime
Library
Exception
,
--
--
version
3.1
,
as
published
by
the
Free
Software
Foundation
.
--
--
--
--
You
should
have
received
a
copy
of
the
GNU
General
Public
License
and
--
--
a
copy
of
the
GCC
Runtime
Library
Exception
along
with
this
program
;
--
--
see
the
files
COPYING3
and
COPYING
.
RUNTIME
respectively
.
If
not
,
see
--
--
<
http
://
www
.
gnu
.
org
/
licenses
/>.
--
--
--
--
GNAT
was
originally
developed
by
the
GNAT
team
at
New
York
University
.
--
--
Extensive
contributions
were
provided
by
Ada
Core
Technologies
Inc
.
--
--
--
------------------------------------------------------------------------------
package
System
is
pragma
Pure
;
--
Note
that
we
take
advantage
of
the
implementation
permission
to
make
--
this
unit
Pure
instead
of
Preelaborable
;
see
RM
13.7.1
(
15
).
In
Ada
--
2005
,
this
is
Pure
in
any
case
(
AI
-
362
).
pragma
No_Elaboration_Code_All
;
--
Allow
the
use
of
that
restriction
in
units
that
WITH
this
unit
type
Name
is
(
SYSTEM_NAME_GNAT
);
System_Name
:
constant
Name
:=
SYSTEM_NAME_GNAT
;
--
System
-
Dependent
Named
Numbers
Min_Int
:
constant
:=
Long_Long_Integer
'First;
Max_Int : constant := Long_Long_Integer'
Last
;
Max_Binary_Modulus
:
constant
:=
2
**
Long_Long_Integer
'Size;
Max_Nonbinary_Modulus : constant := 2 ** Integer'
Size
-
1
;
Max_Base_Digits
:
constant
:=
Long_Long_Float
'Digits;
Max_Digits : constant := Long_Long_Float'
Digits
;
Max_Mantissa
:
constant
:=
63
;
Fine_Delta
:
constant
:=
2.0
**
(-
Max_Mantissa
);
Tick
:
constant
:=
0.000
_001
;
--
Storage
-
related
Declarations
type
Address
is
private
;
pragma
Preelaborable_Initialization
(
Address
);
Null_Address
:
constant
Address
;
Storage_Unit
:
constant
:=
8
;
Word_Size
:
constant
:=
64
;
Memory_Size
:
constant
:=
2
**
64
;
--
Address
comparison
function
"<"
(
Left
,
Right
:
Address
)
return
Boolean
;
function
"<="
(
Left
,
Right
:
Address
)
return
Boolean
;
function
">"
(
Left
,
Right
:
Address
)
return
Boolean
;
function
">="
(
Left
,
Right
:
Address
)
return
Boolean
;
function
"="
(
Left
,
Right
:
Address
)
return
Boolean
;
pragma
Import
(
Intrinsic
,
"<"
);
pragma
Import
(
Intrinsic
,
"<="
);
pragma
Import
(
Intrinsic
,
">"
);
pragma
Import
(
Intrinsic
,
">="
);
pragma
Import
(
Intrinsic
,
"="
);
--
Other
System
-
Dependent
Declarations
type
Bit_Order
is
(
High_Order_First
,
Low_Order_First
);
Default_Bit_Order
:
constant
Bit_Order
:=
Low_Order_First
;
pragma
Warnings
(
Off
,
Default_Bit_Order
);
--
kill
constant
condition
warning
--
Priority
-
related
Declarations
(
RM
D
.1
)
Max_Priority
:
constant
Positive
:=
30
;
Max_Interrupt_Priority
:
constant
Positive
:=
31
;
subtype
Any_Priority
is
Integer
range
0
..
31
;
subtype
Priority
is
Any_Priority
range
0
..
30
;
subtype
Interrupt_Priority
is
Any_Priority
range
31
..
31
;
Default_Priority
:
constant
Priority
:=
15
;
private
type
Address
is
mod
Memory_Size
;
Null_Address
:
constant
Address
:=
0
;
--------------------------------------
--
System
Implementation
Parameters
--
--------------------------------------
--
These
parameters
provide
information
about
the
target
that
is
used
--
by
the
compiler
.
They
are
in
the
private
part
of
System
,
where
they
--
can
be
accessed
using
the
special
circuitry
in
the
Targparm
unit
--
whose
source
should
be
consulted
for
more
detailed
descriptions
--
of
the
individual
switch
values
.
Backend_Divide_Checks
:
constant
Boolean
:=
False
;
Backend_Overflow_Checks
:
constant
Boolean
:=
True
;
Command_Line_Args
:
constant
Boolean
:=
True
;
Configurable_Run_Time
:
constant
Boolean
:=
False
;
Denorm
:
constant
Boolean
:=
True
;
Duration_32_Bits
:
constant
Boolean
:=
False
;
Exit_Status_Supported
:
constant
Boolean
:=
True
;
Fractional_Fixed_Ops
:
constant
Boolean
:=
False
;
Frontend_Layout
:
constant
Boolean
:=
False
;
Machine_Overflows
:
constant
Boolean
:=
False
;
Machine_Rounds
:
constant
Boolean
:=
True
;
Preallocated_Stacks
:
constant
Boolean
:=
False
;
Signed_Zeros
:
constant
Boolean
:=
True
;
Stack_Check_Default
:
constant
Boolean
:=
False
;
Stack_Check_Probes
:
constant
Boolean
:=
True
;
Stack_Check_Limits
:
constant
Boolean
:=
False
;
Support_Aggregates
:
constant
Boolean
:=
True
;
Support_Atomic_Primitives
:
constant
Boolean
:=
True
;
Support_Composite_Assign
:
constant
Boolean
:=
True
;
Support_Composite_Compare
:
constant
Boolean
:=
True
;
Support_Long_Shifts
:
constant
Boolean
:=
True
;
Always_Compatible_Rep
:
constant
Boolean
:=
False
;
Suppress_Standard_Library
:
constant
Boolean
:=
False
;
Use_Ada_Main_Program_Name
:
constant
Boolean
:=
False
;
ZCX_By_Default
:
constant
Boolean
:=
True
;
end
System
;
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