Strange compiler behavior?

BlitzMax Forums/BlitzMax Programming/Strange compiler behavior?

Pineapple

(Posted 2015) [#1]

Why is this code behaving strangely? I'm compiling it on OSX using 1.50.

The code in this box does not work as expected. (It prints "" and then "a test".)

superstrict

local list:tlist = new tlist
list.addlast("hello")
list.addlast("world")
print strings.join(" ", list)
print strings.join(" ", ["a", "test"])

extern "c"
    function bbStringJoin$(delim$, bits$[]) ' from blitz_string.c
end extern

type strings
    function stringarray$[](bits:object)
        local strarray$[]
        if string[](bits)
            strarray = string[](bits)
        elseif object[](bits)
            local strbits$[] = string[](bits)
            local strarray$[] = new string[strbits.length]
            for local i%=0 until strbits.length
                strarray[i] = strbits[i].tostring()
            next
        else
            local list:tlist = tlist(bits)
            local strarray$[] = new string[list.count()]
            local i%=0
            for local value:object = eachin list
                strarray[i] = value.tostring()
                i :+ 1
            next
        endif
        return strarray
    end function
    function join$(delim$, bits:object)
        return bbStringJoin(delim, stringarray(bits))
    end function
end type

The code in this box works as expected. (It prints "hello world" and then "a test".) The only difference is the addition of a redundant return statement. I have helpfully singled out the relevant line by appending to it "wtf?"

superstrict

local list:tlist = new tlist
list.addlast("hello")
list.addlast("world")
print strings.join(" ", list)
print strings.join(" ", ["a", "test"])

extern "c"
    function bbStringJoin$(delim$, bits$[]) ' from blitz_string.c
end extern

type strings
    function stringarray$[](bits:object)
        local strarray$[]
        if string[](bits)
            strarray = string[](bits)
        elseif object[](bits)
            local strbits$[] = string[](bits)
            local strarray$[] = new string[strbits.length]
            for local i%=0 until strbits.length
                strarray[i] = strbits[i].tostring()
            next
        else
            local list:tlist = tlist(bits)
            local strarray$[] = new string[list.count()]
            local i%=0
            for local value:object = eachin list
                strarray[i] = value.tostring()
                i :+ 1
            next
            return strarray ' wtf?
        endif
        return strarray
    end function
    function join$(delim$, bits:object)
        return bbStringJoin(delim, stringarray(bits))
    end function
end type

LT	(Posted 2015) [#2]

local strarray is declared twice ... the outer return is using the outer, unmodified declaration.

Pineapple

(Posted 2015) [#3]

Ha, I feel smart. Thanks for pointing that out.