Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5a9807a8
Commit
5a9807a8
authored
Aug 09, 2005
by
Thien-Thi Nguyen
Browse files
(Fexpt): Use floats for negative exponent.
parent
48b194fd
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
1 deletion
+6
-1
src/ChangeLog
src/ChangeLog
+4
-0
src/floatfns.c
src/floatfns.c
+2
-1
No files found.
src/ChangeLog
View file @
5a9807a8
2005-08-09 Thien-Thi Nguyen <ttn@gnu.org>
* floatfns.c (Fexpt): Use floats for negative exponent.
2005-08-08 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* gtkutil.c (xg_modify_menubar_widgets): Remove semicolon that
...
...
src/floatfns.c
View file @
5a9807a8
...
...
@@ -461,7 +461,8 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
CHECK_NUMBER_OR_FLOAT
(
arg1
);
CHECK_NUMBER_OR_FLOAT
(
arg2
);
if
(
INTEGERP
(
arg1
)
/* common lisp spec */
&&
INTEGERP
(
arg2
))
/* don't promote, if both are ints */
&&
INTEGERP
(
arg2
)
/* don't promote, if both are ints, and */
&&
0
<=
XINT
(
arg2
))
/* we are sure the result is not fractional */
{
/* this can be improved by pre-calculating */
EMACS_INT
acc
,
x
,
y
;
/* some binary powers of x then accumulating */
Lisp_Object
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