HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix up comment convention on the arch-tag lines.
[bpt/emacs.git]
/
lisp
/
calc
/
calc-bin.el
diff --git
a/lisp/calc/calc-bin.el
b/lisp/calc/calc-bin.el
index
2dde621
..
4424d24
100644
(file)
--- a/
lisp/calc/calc-bin.el
+++ b/
lisp/calc/calc-bin.el
@@
-1,7
+1,7
@@
;;; calc-bin.el --- binary functions for Calc
;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
;;; calc-bin.el --- binary functions for Calc
;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007 Free Software Foundation, Inc.
+;; 2005, 2006, 2007
, 2008
Free Software Foundation, Inc.
;; Author: David Gillespie <daveg@synaptics.com>
;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
;; Author: David Gillespie <daveg@synaptics.com>
;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
@@
-10,7
+10,7
@@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version
2
, or (at your option)
+;; the Free Software Foundation; either version
3
, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@@
-34,13
+34,13
@@
;;; Some useful numbers
(defconst math-bignum-logb-digit-size
;;; Some useful numbers
(defconst math-bignum-logb-digit-size
- (
eval-when-compile (logb math-bignum-digit-size)
)
+ (
logb math-bignum-digit-size
)
"The logb of the size of a bignum digit.
This is the largest value of B such that 2^B is less than
the size of a Calc bignum digit.")
(defconst math-bignum-digit-power-of-two
"The logb of the size of a bignum digit.
This is the largest value of B such that 2^B is less than
the size of a Calc bignum digit.")
(defconst math-bignum-digit-power-of-two
- (e
val-when-compile (expt 2 (logb math-bignum-digit-size)
))
+ (e
xpt 2 (logb math-bignum-digit-size
))
"The largest power of 2 less than the size of a Calc bignum digit.")
;;; b-prefix binary commands.
"The largest power of 2 less than the size of a Calc bignum digit.")
;;; b-prefix binary commands.
@@
-816,5
+816,5
@@
the size of a Calc bignum digit.")
(provide 'calc-bin)
(provide 'calc-bin)
-;;
;
arch-tag: f6dba7bc-53b2-41ae-919c-c266ab0ca8b3
+;; arch-tag: f6dba7bc-53b2-41ae-919c-c266ab0ca8b3
;;; calc-bin.el ends here
;;; calc-bin.el ends here