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