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
5b59d757
Commit
5b59d757
authored
May 20, 1993
by
Richard Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(F_check): Check NO_LONG_DOUBLE_IO.
From-SVN: r4518
parent
99977c61
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
1 deletions
+10
-1
gcc/enquire.c
+10
-1
No files found.
gcc/enquire.c
View file @
5b59d757
...
@@ -26,6 +26,8 @@
...
@@ -26,6 +26,8 @@
(fake_f_rep): Clear all of u, initially. Make the ints in u unsigned.
(fake_f_rep): Clear all of u, initially. Make the ints in u unsigned.
(f_define): Use ordinary constants for long double
(f_define): Use ordinary constants for long double
if it's same width as double. Make __convert_long_double_i unsigned.
if it's same width as double. Make __convert_long_double_i unsigned.
Richard Stallman, May 93:
In F_check, check NO_LONG_DOUBLE_IO.
COMPILING
COMPILING
With luck and a following wind, just the following will work:
With luck and a following wind, just the following will work:
...
@@ -2146,13 +2148,19 @@ Procedure F_check(precision, val1) int precision; Long_double val1; {
...
@@ -2146,13 +2148,19 @@ Procedure F_check(precision, val1) int precision; Long_double val1; {
that sscanf read the number back identically. Harsh yes, but
that sscanf read the number back identically. Harsh yes, but
sometimes you've got to be cruel to be kind.
sometimes you've got to be cruel to be kind.
*/
*/
Long_double
new1
;
Number
val
,
new
,
diff
;
Number
val
,
new
,
diff
;
double
rem
;
double
rem
;
int
e
;
int
e
;
char
*
rep
;
char
*
rep
;
char
*
f2
;
char
*
f2
;
#ifdef NO_LONG_DOUBLE_IO
double
new1
;
/* On the Sun 3, sscanf clobbers 4 words,
which leads to a crash when this function tries to return. */
f2
=
"%le"
;
/* Input */
#else
Long_double
new1
;
if
(
sizeof
(
double
)
==
sizeof
(
Long_double
))
{
if
(
sizeof
(
double
)
==
sizeof
(
Long_double
))
{
/* Assume they're the same, and use non-stdc format */
/* Assume they're the same, and use non-stdc format */
/* This is for stdc compilers using non-stdc libraries */
/* This is for stdc compilers using non-stdc libraries */
...
@@ -2161,6 +2169,7 @@ Procedure F_check(precision, val1) int precision; Long_double val1; {
...
@@ -2161,6 +2169,7 @@ Procedure F_check(precision, val1) int precision; Long_double val1; {
/* It had better support Le then */
/* It had better support Le then */
f2
=
"%Le"
;
f2
=
"%Le"
;
}
}
#endif
val
=
val1
;
val
=
val1
;
rep
=
f_rep
(
precision
,
(
Long_double
)
val
);
rep
=
f_rep
(
precision
,
(
Long_double
)
val
);
if
(
setjmp
(
lab
)
==
0
)
{
if
(
setjmp
(
lab
)
==
0
)
{
...
...
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