1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
# 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)); }
|
