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
c0b1738d
Commit
c0b1738d
authored
Oct 26, 2001
by
Richard Kenner
Committed by
Geert Bosch
Oct 26, 2001
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* gmem.c (__gnat_gmem_read_next): Properly check for EOF
From-SVN: r46552
parent
5b09c153
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
3 deletions
+8
-3
gcc/ada/ChangeLog
+4
-0
gcc/ada/gmem.c
+4
-3
No files found.
gcc/ada/ChangeLog
View file @
c0b1738d
2001-10-26 Richard Kenner <kenner@gnat.com>
* gmem.c (__gnat_gmem_read_next): Properly check for EOF
2001-10-26 Richard Kenner <kenner@gnat.com>
* decl.c (validate_size): Modify message for bad size to avoid
implication that compiler is modifying the size.
...
...
gcc/ada/gmem.c
View file @
c0b1738d
...
...
@@ -140,16 +140,17 @@ __gnat_gmem_read_next (buf)
{
void
*
addr
;
int
size
;
char
c
;
int
j
;
if
((
c
=
fgetc
(
gmemfile
))
==
EOF
)
j
=
fgetc
(
gmemfile
);
if
(
j
==
EOF
)
{
fclose
(
gmemfile
);
sprintf
(
buf
,
"Program exited."
);
}
else
{
switch
(
c
)
switch
(
j
)
{
case
'A'
:
fread
(
&
addr
,
sizeof
(
char
*
),
1
,
gmemfile
);
...
...
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