#

#   [USEMAP]

#   

#                            Problem Report gnu/7821

#                                       

#   awk in free(): warning: chunk is already free.

#   

#   Confidential

#          no

#          

#   Severity

#          serious

#          

#   Priority

#          medium

#          

#   Responsible

#          freebsd-bugs@freebsd.org

#          

#   State

#          suspended

#          

#   Class

#          sw-bug

#          

#   Submitter-Id

#          current-users

#          

#   Arrival-Date

#          Thu Sep 3 10:30:00 PDT 1998

#          

#   Last-Modified

#          Thu Sep 17 02:04:26 PDT 1998

#          

#   Originator

#          Alexander Litvin archer@lucky.net

#          

#   Organization

#          

#

#Lucky Net ltd.

#

#   Release

#          FreeBSD 3.0-CURRENT i386

#          

#   Environment

#          

#

#FreeBSD grape.carrier.kiev.ua 3.0-CURRENT FreeBSD 3.0-CURRENT #121: Thu Sep  3

#1

#1:21:44 EEST 1998     archer@grape.carrier.kiev.ua:/usr/src/sys/compile/GRAPE

#i

#386

#

#   Description

#          

#

#The problem first appeared when GNU awk in 3.0-CURRENT was apgraded to

#3.0.3. I run C-News, which uses awk extensively. After awk apgrade C-News

#expire stopped to work. It appeared that some GNU awk 3.0.3 programms when

#given absolutely legitimate input fail, giving out a number of messages:

#

#awk in free(): warning: chunk is already free.

#

#   How-To-Repeat

#          

#

#Run the following awk program (it is cut out of C-News expire scripts).

#I was not able to cut it down more -- omitting some portions of the

#code (e.g. OFMT line), make error go away in this case, though it

#certainly does not fix awk.

#

#----------------cut-here----------------

#!/usr/bin/awk -f

BEGIN {

        OFMT = "%.12g"

        big = 99999999999

        lowest = big

        small = 0

        highest = small

}

$0 ~ /^[0-9]+$/ {

        if ($1 < lowest)

                lowest = $1

        if ($1 > highest)

                highest = $1

        next

}

# $0 ~ /^[a-z]+/ {

$0 ~ /^[[:lower:]]+/ {

        print dir, highest, lowest

        dir = $0

        lowest = big

        highest = small

}

#----------------cut-here----------------

#

#To get the error, just give this script the following input:

#----------------cut-here----------------

#a

#1

#b

#----------------cut-here----------------

#

#   Fix

#          

#

#I was not able to track the error in awk sources. As a workaround,

#I just reverted to GNU awk 2.15.5.

#

#   Audit-Trail

#          

#

#State-Changed-From-To: open-suspended

#State-Changed-By: phk

#State-Changed-When: Thu Sep 17 02:04:08 PDT 1998

#State-Changed-Why:

#reported to GNU maintainer.

#

#   Submit Followup

#     _________________________________________________________________

#                                      

#   

#    www@freebsd.org