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
f4e9fba4
Commit
f4e9fba4
authored
Sep 12, 2007
by
Arnaud Charlet
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor reformatting.
From-SVN: r128434
parent
c5067c78
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
14 additions
and
8 deletions
+14
-8
gcc/ada/a-calend-vms.adb
+0
-1
gcc/ada/a-calend-vms.ads
+2
-1
gcc/ada/a-calend.adb
+0
-1
gcc/ada/a-calend.ads
+12
-5
No files found.
gcc/ada/a-calend-vms.adb
View file @
f4e9fba4
...
...
@@ -1136,5 +1136,4 @@ begin
end
loop
;
end
;
end
if
;
end
Ada
.
Calendar
;
gcc/ada/a-calend-vms.ads
View file @
f4e9fba4
...
...
@@ -6,7 +6,7 @@
--
--
--
S
p
e
c
--
--
--
--
Copyright
(
C
)
1992
-
200
6
,
Free
Software
Foundation
,
Inc
.
--
--
Copyright
(
C
)
1992
-
200
7
,
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
--
...
...
@@ -38,6 +38,7 @@
--
This
is
the
Alpha
/
VMS
version
with
System
.
OS_Primitives
;
package
Ada
.
Calendar
is
package
OSP
renames
System
.
OS_Primitives
;
...
...
gcc/ada/a-calend.adb
View file @
f4e9fba4
...
...
@@ -1385,5 +1385,4 @@ begin
end
loop
;
end
;
end
if
;
end
Ada
.
Calendar
;
gcc/ada/a-calend.ads
View file @
f4e9fba4
...
...
@@ -53,7 +53,9 @@ package Ada.Calendar is
function
Clock
return
Time
;
--
The
returned
time
value
is
the
number
of
nanoseconds
since
the
start
--
of
Ada
time
(
1901
-
01
-
01
00
:
00
:
00.0
UTC
).
--
of
Ada
time
(
1901
-
01
-
01
00
:
00
:
00.0
UTC
).
If
leap
seconds
are
enabled
,
--
the
result
will
contain
all
elapsed
leap
seconds
since
the
start
of
--
Ada
time
until
now
.
function
Year
(
Date
:
Time
)
return
Year_Number
;
function
Month
(
Date
:
Time
)
return
Month_Number
;
...
...
@@ -169,11 +171,16 @@ private
-- 1972-06-30 23:59:59.0
-- 1972-07-01 00:00:00.0
-- When a new leap second is
added, the following steps must be carried
-- out:
-- When a new leap second is
introduced, the following steps must be
--
carried
out:
-- 1) Increment Leap_Seconds_Count by one
-- 2) Add an entry to the end of table Leap_Second_Dates
-- 1) Increment Leap_Seconds_Count in a-calend.adb by one
-- 2) Increment LS_Count in xleaps.adb by one
-- 3) Add the new date to the aggregate of array LS_Dates in
-- xleaps.adb
-- 4) Compile and execute xleaps
-- 5) Replace the values of Leap_Second_Times in a-calend.adb with the
-- aggregate generated by xleaps
-- The algorithms that build the actual leap second values and discover
-- how many leap seconds have occured between two dates do not need any
...
...
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