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
014c0095
Commit
014c0095
authored
Dec 13, 2007
by
Arnaud Charlet
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Update comments.
Minor reformatting. Kill new warnings. From-SVN: r130888
parent
14b7d74b
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
18 additions
and
10 deletions
+18
-10
gcc/ada/g-socket.adb
+8
-0
gcc/ada/g-speche.ads
+9
-10
gcc/ada/mlib-tgt.adb
+1
-0
No files found.
gcc/ada/g-socket.adb
View file @
014c0095
...
...
@@ -573,6 +573,8 @@ package body GNAT.Sockets is
(Socket : Socket_Type;
Server : in out Sock_Addr_Type)
is
pragma Warnings (Off, Server);
Res : C.int;
Sin : aliased Sockaddr_In;
Len : constant C.int := Sin'
Size
/
8
;
...
...
@@ -1376,6 +1378,8 @@ package body GNAT.Sockets is
Item : out Ada.Streams.Stream_Element_Array;
Last : out Ada.Streams.Stream_Element_Offset)
is
pragma Warnings (Off, Stream);
First : Ada.Streams.Stream_Element_Offset := Item'
First
;
Index
:
Ada
.
Streams
.
Stream_Element_Offset
:=
First
-
1
;
Max
:
constant
Ada
.
Streams
.
Stream_Element_Offset
:=
Item
'Last;
...
...
@@ -2111,6 +2115,8 @@ package body GNAT.Sockets is
(
Stream
:
in
out
Datagram_Socket_Stream_Type
;
Item
:
Ada
.
Streams
.
Stream_Element_Array
)
is
pragma
Warnings
(
Off
,
Stream
);
First
:
Ada
.
Streams
.
Stream_Element_Offset
:=
Item
'First;
Index : Ada.Streams.Stream_Element_Offset := First - 1;
Max : constant Ada.Streams.Stream_Element_Offset := Item'
Last
;
...
...
@@ -2144,6 +2150,8 @@ package body GNAT.Sockets is
(
Stream
:
in
out
Stream_Socket_Stream_Type
;
Item
:
Ada
.
Streams
.
Stream_Element_Array
)
is
pragma
Warnings
(
Off
,
Stream
);
First
:
Ada
.
Streams
.
Stream_Element_Offset
:=
Item
'First;
Index : Ada.Streams.Stream_Element_Offset := First - 1;
Max : constant Ada.Streams.Stream_Element_Offset := Item'
Last
;
...
...
gcc/ada/g-speche.ads
View file @
014c0095
...
...
@@ -34,6 +34,7 @@
--
Spelling
checker
--
This
package
provides
a
utility
routine
for
checking
for
bad
spellings
--
for
the
case
of
String
arguments
.
pragma
Warnings
(
Off
);
pragma
Compiler_Unit
;
...
...
@@ -45,16 +46,14 @@ package GNAT.Spelling_Checker is
function
Is_Bad_Spelling_Of
(
Found
:
String
;
Expect
:
String
)
return
Boolean
;
--
Determines
if
the
string
Found
is
a
plausible
misspelling
of
the
--
string
Expect
.
Returns
True
for
an
exact
match
or
a
probably
--
misspelling
,
False
if
no
near
match
is
detected
.
This
routine
--
is
case
sensitive
,
so
the
caller
should
fold
both
strings
to
--
get
a
case
insensitive
match
.
--
Determines
if
the
string
Found
is
a
plausible
misspelling
of
the
string
--
Expect
.
Returns
True
for
an
exact
match
or
a
probably
misspelling
,
False
--
if
no
near
match
is
detected
.
This
routine
is
case
sensitive
,
so
the
--
caller
should
fold
both
strings
to
get
a
case
insensitive
match
.
--
--
Note
:
the
spec
of
this
routine
is
deliberately
rather
vague
.
This
--
routine
is
the
one
used
by
GNAT
itself
to
detect
misspelled
keywords
--
and
identifiers
,
and
is
heuristically
adjusted
to
be
appropriate
to
--
this
usage
.
It
will
work
well
in
any
similar
case
of
named
entities
--
with
relatively
short
mnemonic
names
.
--
Note
:
the
spec
of
this
routine
is
deliberately
rather
vague
.
It
is
used
--
by
GNAT
itself
to
detect
misspelled
keywords
and
identifiers
,
and
is
--
heuristically
adjusted
to
be
appropriate
to
this
usage
.
It
will
work
--
well
in
any
similar
case
of
named
entities
.
end
GNAT
.
Spelling_Checker
;
gcc/ada/mlib-tgt.adb
View file @
014c0095
...
...
@@ -499,4 +499,5 @@ package body MLib.Tgt is
begin
return Full;
end Support_For_Libraries_Default;
end MLib.Tgt;
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