This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp".
The branch, master has been updated via 9c4bcc617b25fdcbac0bd8372cdc545dfa1f0bd7 (commit) from 5b9111e975748929ddcdd9052c5b5ec8138dcca5 (commit)
Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below.
- Log ----------------------------------------------------------------- commit 9c4bcc617b25fdcbac0bd8372cdc545dfa1f0bd7 Author: Raymond Toy toy.raymond@gmail.com Date: Wed Dec 18 08:20:56 2013 -0800
Move ieee754_rem_pio2 to os-common.c. Remove the version in from x86-arch.c and ppc-arch.c
diff --git a/src/lisp/os-common.c b/src/lisp/os-common.c index 2ba4bfd..90458c9 100755 --- a/src/lisp/os-common.c +++ b/src/lisp/os-common.c @@ -542,3 +542,19 @@ os_guard_control_stack(int zone, int guard) }
#endif /* not RED_ZONE_HIT */ + + +/* Simple interface to __ieee754_rem_pio2 */ +int ieee754_rem_pio2(double x, double *y0, double *y1) +{ + extern int __ieee754_rem_pio2(double x, double *y); + + double y[2]; + int n; + + n = __ieee754_rem_pio2(x, y); + *y0 = y[0]; + *y1 = y[1]; + + return n; +} diff --git a/src/lisp/ppc-arch.c b/src/lisp/ppc-arch.c index 6c2ef6b..c46b99c 100644 --- a/src/lisp/ppc-arch.c +++ b/src/lisp/ppc-arch.c @@ -723,17 +723,3 @@ arch_linkage_entry(unsigned long retaddr) / LinkageEntrySize; } #endif - -int ieee754_rem_pio2(double x, double *y0, double *y1) -{ - extern int __ieee754_rem_pio2(double x, double *y); - - double y[2]; - int n; - - n = __ieee754_rem_pio2(x, y); - *y0 = y[0]; - *y1 = y[1]; - - return n; -} diff --git a/src/lisp/x86-arch.c b/src/lisp/x86-arch.c index 5670334..c694cea 100644 --- a/src/lisp/x86-arch.c +++ b/src/lisp/x86-arch.c @@ -521,19 +521,3 @@ arch_linkage_entry(unsigned long retaddr) return ((retaddr - 5) - FOREIGN_LINKAGE_SPACE_START) / LinkageEntrySize; } #endif /* LINKAGE_TABLE */ - -int ieee754_rem_pio2(double x, double *y0, double *y1) -{ - extern int __ieee754_rem_pio2(double x, double *y); - - double y[2]; - int n; - - n = __ieee754_rem_pio2(x, y); - *y0 = y[0]; - *y1 = y[1]; - - return n; -} - -
-----------------------------------------------------------------------
Summary of changes: src/lisp/os-common.c | 16 ++++++++++++++++ src/lisp/ppc-arch.c | 14 -------------- src/lisp/x86-arch.c | 16 ---------------- 3 files changed, 16 insertions(+), 30 deletions(-)
hooks/post-receive