[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2013-12-a-14-g9c4bcc6

[Raymond Toy]

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 at 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
-- 
CMU Common Lisp