diff options
Diffstat (limited to 'test/longdbl.awk')
| -rw-r--r-- | test/longdbl.awk | 159 |
1 files changed, 0 insertions, 159 deletions
diff --git a/test/longdbl.awk b/test/longdbl.awk deleted file mode 100644 index bbe8abae..00000000 --- a/test/longdbl.awk +++ /dev/null @@ -1,159 +0,0 @@ -# From arnold@f7.net Wed Apr 27 09:48:37 2005 -# Return-Path: <arnold@f7.net> -# Received: from localhost (skeeve [127.0.0.1]) -# by skeeve.com (8.12.11/8.12.11) with ESMTP id j3R6mZVm015791 -# for <arnold@localhost>; Wed, 27 Apr 2005 09:48:37 +0300 -# Received: from pop.012.net.il [84.95.5.221] -# by localhost with POP3 (fetchmail-6.2.5) -# for arnold@localhost (single-drop); Wed, 27 Apr 2005 09:48:37 +0300 (IDT) -# Received: from mtain3.012.net.il ([10.220.5.7]) -# by i_mss3.012.net.il (HyperSendmail v2004.12) -# with ESMTP id <0IFK00L1DIZ02530@i_mss3.012.net.il> for arobbins@012.net.il; -# Tue, 26 Apr 2005 22:18:36 +0300 (IDT) -# Received: from VScan3 ([10.220.20.3]) -# by i_mtain3.012.net.il (HyperSendmail v2004.12) -# with ESMTP id <0IFK007U1IZ0U980@i_mtain3.012.net.il> for arobbins@012.net.il -# (ORCPT arobbins@012.net.il); Tue, 26 Apr 2005 22:18:36 +0300 (IDT) -# Received: from i_mtain1.012.net.il ([10.220.5.1]) -# by VScan3 with InterScan Messaging Security Suite; Tue, -# 26 Apr 2005 22:15:22 +0300 -# Received: from f7.net ([209.61.216.22]) -# by i_mtain1.012.net.il (HyperSendmail v2004.12) -# with ESMTP id <0IFK009SIIYRN7G0@i_mtain1.012.net.il> for arobbins@012.net.il; -# Tue, 26 Apr 2005 22:18:33 +0300 (IDT) -# Received: (from arnold@localhost) by f7.net (8.11.7-20030920/8.11.7) -# id j3QJFAg18376 for arobbins@012.net.il; Tue, 26 Apr 2005 15:15:10 -0400 -# Received: from fencepost.gnu.org (fencepost.gnu.org [199.232.76.164]) -# by f7.net (8.11.7-20030920/8.11.7) with ESMTP id j3QJF5J18304 for -# <arnold@skeeve.com>; Tue, 26 Apr 2005 15:15:06 -0400 -# Received: from monty-python.gnu.org ([199.232.76.173]) -# by fencepost.gnu.org with esmtp (Exim 4.34) -# id 1DQVVh-0004gD-CH for bug-gawk@gnu.org; Tue, 26 Apr 2005 15:14:17 -0400 -# Received: from Debian-exim by monty-python.gnu.org with spam-scanned -# (Exim 4.34) id 1DQVYa-0002PR-2b for bug-gawk@gnu.org; Tue, -# 26 Apr 2005 15:17:56 -0400 -# Received: from [129.183.4.8] (helo=ecfrec.frec.bull.fr) -# by monty-python.gnu.org with esmtp (Exim 4.34) -# id 1DQVYZ-0002Lr-EF for bug-gawk@gnu.org; Tue, 26 Apr 2005 15:17:15 -0400 -# Received: from localhost (localhost [127.0.0.1]) -# by ecfrec.frec.bull.fr (Postfix) with ESMTP id 5782819D907 for -# <bug-gawk@gnu.org>; Tue, 26 Apr 2005 21:12:53 +0200 (CEST) -# Received: from ecfrec.frec.bull.fr ([127.0.0.1]) -# by localhost (ecfrec.frec.bull.fr [127.0.0.1]) (amavisd-new, port 10024) -# with ESMTP id 06763-10 for <bug-gawk@gnu.org>; Tue, -# 26 Apr 2005 21:12:51 +0200 (CEST) -# Received: from ecn002.frec.bull.fr (ecn002.frec.bull.fr [129.183.4.6]) -# by ecfrec.frec.bull.fr (Postfix) with ESMTP id 4488B19D906 for -# <bug-gawk@gnu.org>; Tue, 26 Apr 2005 21:12:51 +0200 (CEST) -# Received: from daphne ([129.183.192.6]) -# by ecn002.frec.bull.fr (Lotus Domino Release 5.0.12) -# with ESMTP id 2005042621231613:3312 ; Tue, 26 Apr 2005 21:23:16 +0200 -# Date: Tue, 26 Apr 2005 21:12:49 +0200 (CEST) -# From: Jean-Marc Saffroy <jean-marc.saffroy@ext.bull.net> -# Subject: GNU awk unable to handle 64-bit ints on IA64 -# X-X-Sender: saffroyj@daphne.frec.bull.fr -# To: bug-gawk@gnu.org -# Message-id: <Pine.LNX.4.61.0504261916140.22370@daphne.frec.bull.fr> -# MIME-version: 1.0 -# Content-type: TEXT/PLAIN; charset=US-ASCII; format=flowed -# X-MIMETrack: Itemize by SMTP Server on ECN002/FR/BULL(Release 5.0.12 |February -# 13, 2003) at 26/04/2005 21:23:16, -# Serialize by Router on ECN002/FR/BULL(Release 5.0.12 |February 13, -# 2003) at 26/04/2005 21:23:16, Serialize complete at 26/04/2005 21:23:16 -# X-Virus-Scanned: by amavisd-new at frec.bull.fr -# Original-recipient: rfc822;arobbins@012.net.il -# X-Spam-Checker-Version: SpamAssassin 2.63 (2004-01-11) on skeeve.com -# X-Spam-Level: -# X-Spam-Status: No, hits=-4.9 required=5.0 tests=BAYES_00 autolearn=ham -# version=2.63 -# Status: RO -# -# -# Hello, -# -# I have rounding problems when manipulating 64-bit ints (actually they are -# addresses) on Linux/IA64: -# -# $ echo 0xa000000100000813|./gawk '{printf("0x%lx\n",strtonum($1));}' -# 0xa000000100000800 -# $ echo 0xffffffffffffffff|./gawk '{printf("0x%lx\n",strtonum($1));}' -# 0x8000000000000000 -# $ ./gawk --version|head -1 -# GNU Awk 3.1.4 -# -# The problem seems to be that AWKNUM is defined to be a double, which has a -# 53-bit mantissa. On IA64 with gcc 3.2.3 (maybe other compilers as well) -# there is a long double type with a larger mantissa: -# -# $ grep define.*LDBL_MANT_DIG /usr/lib/gcc-lib/ia64-redhat-linux/3.2.3/include/float.h -# #define LDBL_MANT_DIG 64 -# -# So I changed AWKNUM to be a long double; this does not seem to be -# sufficient, because of some dubious casts to double (there may be others -# left, I didn't check), see patch below. Now it's much nicer: -# -# $ echo 0xa000000100000813|./gawk '{printf("0x%lx\n",strtonum($1));}' -# 0xa000000100000813 -# $ echo 0xffffffffffffffff|./gawk '{printf("0x%lx\n",strtonum($1));}' -# 0xffffffffffffffff -# -# Maybe the gawk configure script should set AWKNUM to be a long double on -# Linux/IA64? -# -# -# Regards, -# -# -- -# Jean-Marc Saffroy - jean-marc.saffroy@ext.bull.net -# -# -# diff -ru gawk-3.1.4/awk.h gawk/awk.h -# --- gawk-3.1.4/awk.h 2004-07-26 16:11:05.000000000 +0200 -# +++ gawk/awk.h 2005-04-26 19:19:10.545419273 +0200 -# @@ -273,7 +273,7 @@ -# /* ------------------ Constants, Structures, Typedefs ------------------ */ -# -# #ifndef AWKNUM -# -#define AWKNUM double -# +#define AWKNUM long double -# #endif -# -# #ifndef TRUE -# diff -ru gawk-3.1.4/builtin.c gawk/builtin.c -# --- gawk-3.1.4/builtin.c 2004-07-13 09:55:28.000000000 +0200 -# +++ gawk/builtin.c 2005-04-26 20:53:41.211365432 +0200 -# @@ -578,7 +578,7 @@ -# char *cend = &cpbuf[30];/* chars, we lose, but seems unlikely */ -# char *cp; -# const char *fill; -# - double tmpval; -# + AWKNUM tmpval; -# char signchar = FALSE; -# size_t len; -# int zero_flag = FALSE; -# @@ -2773,16 +2773,16 @@ -# do_strtonum(NODE *tree) -# { -# NODE *tmp; -# - double d; -# + AWKNUM d; -# -# tmp = tree_eval(tree->lnode); -# -# if ((tmp->flags & (NUMBER|NUMCUR)) != 0) -# - d = (double) force_number(tmp); -# + d = (AWKNUM) force_number(tmp); -# else if (isnondecimal(tmp->stptr)) -# d = nondec2awknum(tmp->stptr, tmp->stlen); -# else -# - d = (double) force_number(tmp); -# + d = (AWKNUM) force_number(tmp); -# -# free_temp(tmp); -# return tmp_number((AWKNUM) d); -# -# -# ##################################################################################### -# This Mail Was Scanned by 012.net Anti Virus Service - Powered by TrendMicro Interscan -# -{ printf("0x%lx\n",strtonum($1)); } |