Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
faca07fb
Commit
faca07fb
authored
May 05, 1995
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(read1): Handle long EMACS_INT in atol.
parent
5d5b907f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
1 deletion
+6
-1
src/lread.c
src/lread.c
+6
-1
No files found.
src/lread.c
View file @
faca07fb
...
...
@@ -1442,7 +1442,12 @@ read1 (readcharfun, pch, first_in_list)
if
(
p1
[
-
1
]
==
'.'
)
p1
[
-
1
]
=
'\0'
;
#endif
XSETINT
(
val
,
atoi
(
read_buffer
));
if
(
sizeof
(
int
)
==
sizeof
(
EMACS_INT
))
XSETINT
(
val
,
atoi
(
read_buffer
));
else
if
(
sizeof
(
long
)
==
sizeof
(
EMACS_INT
))
XSETINT
(
val
,
atol
(
read_buffer
));
else
abort
();
return
val
;
}
}
...
...
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