mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fixed a bug in the compiler expansion of COS, SIN and TAN.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-08-10 16:56:05 +02:00
parent 19034bd73c
commit f33a082b14
6 changed files with 28 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ANNOUNCEMENT
View file

@ -1,4 +1,4 @@
Announcement of ECL v9.7.1
Announcement of ECL v9.8.2
==========================
ECL stands for Embeddable Common-Lisp. The ECL project aims to produce an

4
msvc/Makefile
View file

@ -10,8 +10,8 @@ srcdir = ..\src
SHORT_SITE_NAME =
LONG_SITE_NAME =
ECL_VERSION = 9.8.1
ECL_VERSION_NUMBER= 90801
ECL_VERSION = 9.8.2
ECL_VERSION_NUMBER= 90802
ARCHITECTURE = PENTIUM4
SOFTWARE_TYPE = NT
SOFTWARE_VERSION = 5.0

9
src/CHANGELOG
View file

@ -1,3 +1,12 @@
ECL 9.8.2:
==========
* Bugs fixed:
- The C inline expansion for sin, cos, and tan were wrong due to three
recently introduced typos.
ECL 9.8.1:
==========

12
src/cmp/sysfun.lsp
View file

@ -992,20 +992,20 @@
(proclaim-function cis (real) complex :no-side-effects t)
(proclaim-function sinh (number) number :no-side-effects t)
(def-inline sin :always (fixnum-float) :double "sinh((double)(#0))" :exact-return-type t)
(def-inline sin :always (fixnum-float) :float "(float)sinh((double)(#0))" :exact-return-type t)
(def-inline sinh :always (fixnum-float) :double "sinh((double)(#0))" :exact-return-type t)
(def-inline sinh :always (fixnum-float) :float "(float)sinh((double)(#0))" :exact-return-type t)
(proclaim-function asinh (number) number :no-side-effects t)
(proclaim-function cosh (number) number :no-side-effects t)
(def-inline cos :always (fixnum-float) :double "cosh((double)(#0))" :exact-return-type t)
(def-inline cos :always (fixnum-float) :float "(float)cosh((double)(#0))" :exact-return-type t)
(def-inline cosh :always (fixnum-float) :double "cosh((double)(#0))" :exact-return-type t)
(def-inline cosh :always (fixnum-float) :float "(float)cosh((double)(#0))" :exact-return-type t)
(proclaim-function acosh (number) number :no-side-effects t)
(proclaim-function tanh (number) number :no-side-effects t)
(def-inline tan :always (fixnum-float) :double "tanh((double)(#0))" :exact-return-type t)
(def-inline tan :always (fixnum-float) :float "(float)tanh((double)(#0))" :exact-return-type t)
(def-inline tanh :always (fixnum-float) :double "tanh((double)(#0))" :exact-return-type t)
(def-inline tanh :always (fixnum-float) :float "(float)tanh((double)(#0))" :exact-return-type t)
(proclaim-function atanh (number) number :no-side-effects t)

18
src/configure vendored
View file

@ -1,7 +1,7 @@
#! /bin/sh
# From configure.in Revision.
# Guess values for system-dependent variables and create Makefiles.
# Generated by GNU Autoconf 2.63 for ecl 9.8.1.
# Generated by GNU Autoconf 2.63 for ecl 9.8.2.
#
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
# 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
@ -595,8 +595,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
# Identity of this package.
PACKAGE_NAME='ecl'
PACKAGE_TARNAME='ecl'
PACKAGE_VERSION='9.8.1'
PACKAGE_STRING='ecl 9.8.1'
PACKAGE_VERSION='9.8.2'
PACKAGE_STRING='ecl 9.8.2'
PACKAGE_BUGREPORT=''
ac_unique_file="bare.lsp.in"
@ -1368,7 +1368,7 @@ if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
\`configure' configures ecl 9.8.1 to adapt to many kinds of systems.
\`configure' configures ecl 9.8.2 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
@ -1437,7 +1437,7 @@ fi
if test -n "$ac_init_help"; then
case $ac_init_help in
short | recursive ) echo "Configuration of ecl 9.8.1:";;
short | recursive ) echo "Configuration of ecl 9.8.2:";;
esac
cat <<\_ACEOF
@ -1590,7 +1590,7 @@ fi
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
ecl configure 9.8.1
ecl configure 9.8.2
generated by GNU Autoconf 2.63
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@ -1604,7 +1604,7 @@ cat >config.log <<_ACEOF
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
It was created by ecl $as_me 9.8.1, which was
It was created by ecl $as_me 9.8.2, which was
generated by GNU Autoconf 2.63. Invocation command line was
$ $0 $@
@ -13924,7 +13924,7 @@ exec 6>&1
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
This file was extended by ecl $as_me 9.8.1, which was
This file was extended by ecl $as_me 9.8.2, which was
generated by GNU Autoconf 2.63. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@ -13983,7 +13983,7 @@ Report bugs to <bug-autoconf@gnu.org>."
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_version="\\
ecl config.status 9.8.1
ecl config.status 9.8.2
configured by $0, generated by GNU Autoconf 2.63,
with options \\"`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"

2
src/configure.in
View file

@ -8,7 +8,7 @@ dnl AUTOCONF configuration for ECL
dnl Giuseppe Attardi 25.1.1994
dnl
AC_INIT([ecl],[9.8.1],[])
AC_INIT([ecl],[9.8.2],[])
AC_REVISION([$Revision$])
AC_CONFIG_SRCDIR([bare.lsp.in])
AC_CONFIG_AUX_DIR([${srcdir}/gmp])