Ticket #1674 (closed bug: fixed)

Opened 4 years ago

Last modified 4 years ago

Strange string (non)numification

Reported by: pmichaud Owned by:
Priority: normal Milestone:
Component: none Version: 2.4.0
Severity: medium Keywords:
Cc: Language:
Patch status: Platform:

Description

From an observation by patrickas on #perl6:

pmichaud@orange:~/parrot/trunk$ cat ../x.pir
.sub main
    $S0 = "6foo"
    $N0 = $S0
    print $S0
    print " = "
    say $N0

    $S0 = "16foo"
    $N0 = $S0
    print $S0
    print " = "
    say $N0
.end

pmichaud@orange:~/parrot/trunk$ ./parrot ../x.pir 
6foo = 0
16foo = 16
pmichaud@orange:~/parrot/trunk$ 

This has apparently been around for a long time -- since at least Parrot 1.4.0. It was working fine in Parrot 1.0.0, though:

pmichaud@orange:~/parrot/RELEASE_1_0_0$ cat ../x.pir
.sub main
    $S0 = "6foo"
    $N0 = $S0
    print $S0
    print " = "
    say $N0

    $S0 = "16foo"
    $N0 = $S0
    print $S0
    print " = "
    say $N0
.end

pmichaud@orange:~/parrot/RELEASE_1_0_0$ ./parrot ../x.pir
6foo = 6
16foo = 16
pmichaud@orange:~/parrot/RELEASE_1_0_0$ 

Change History

Changed 4 years ago by bacek

  • status changed from new to closed
  • resolution set to fixed

Fixed in r47432. Thanks for report!

Note: See TracTickets for help on using tickets.