[perl #40863] [TODO] Tcl - Actually support bignums

[via RT]

# New Ticket Created by  Matt Diephouse 
# Please include the string:  [perl #40863]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40863 >


Tcl currently has this code in pge2past.tg:

     $S0 = node['decimal']
     $I0 = length $S0
     if $I0 < 10 goto decimal
     if $I0 > 10 goto bignum_hack

     if $S0 >= "2147483647" goto bignum_hack

   decimal:
     $S0 = node
     past['value'] = $S0
     past['class'] = "TclInt"
     .return (past)

   bignum_hack:
     past['value'] = 0
     past['class'] = "TclInt"
     .return(past)

This checks if the value is too big to be represented by a normal  
integer. If it is, then it sets the value to zero. This makes any  
tests fail, but it makes them at least compile. It shouldn't be too  
much harder to make numbers promote properly.

--
Matt Diephouse