[Bug 838551] New: syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

            Bug ID: 838551
        QA Contact: extras-qa(a)fedoraproject.org
          Severity: high
               URL: https://rt.perl.org/rt3/Public/Bug/Display.html?id=113
                    980
           Version: 16
          Priority: unspecified
                CC: cweyl(a)alumni.drew.edu, iarnell(a)gmail.com,
                    jplesnik(a)redhat.com, kasal(a)ucw.cz, lkundrak(a)v3.sk,
                    mmaslano(a)redhat.com,
                    perl-devel(a)lists.fedoraproject.org, ppisar(a)redhat.com,
                    psabata(a)redhat.com, rc040203(a)freenet.de,
                    tcallawa(a)redhat.com
          Assignee: mmaslano(a)redhat.com
           Summary: syscall() truncates return value to 32 bits
        Regression: ---
      Story Points: ---
    Classification: Fedora
                OS: Unspecified
          Reporter: ppisar(a)redhat.com
              Type: Bug
     Documentation: ---
          Hardware: x86_64
        Mount Type: ---
            Status: ASSIGNED
         Component: perl
           Product: Fedora

There is problem when calling generic syscall() function on 64-bit
architectures. The return value is clamped to 32 bits.

Can be reproduced with mmap or mremap syscalls:

>  #!/usr/bin/perl -w
>  use strict;
>
>  sub find_vdso()
>  {
>        open my $maps, '<', '/proc/self/maps' or die;
>        /^(.*?)-.*\[vdso\]$/ and return hex $1 for <$maps>;
>  }
>  
>  my $vdso_addr = find_vdso || die 'not 64-bit linux?';
>
>  my $ret = syscall 25,         # __NR_mremap
>                $vdso_addr,     # old_addr
>                1,              # old_len
>                1,              # new_len
>                0,              # flags
>                0;              # new_addr (unused)
>
>  $ret == $vdso_addr or die "FAILED\n"; 
Fixed in upstream commit:

commit f9344c91a4ca48288bba30dc94a2d712d0659670
Author: Oleg Nesterov <oleg(a)redhat.com&gt;
Date:   Wed Jul 4 08:21:15 2012 -0700

    [perl #113980] pp_syscall: "I32 retval" truncates the returned value

    I noticed today that syscall(9, ...) (mmap) doesn't work for me.

    The problem is obvious, pp_syscall() uses I32 for retval and the
    "long" address doesn't fit into "int".

    The one-liner below should fix the problem.

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

Petr Pisar <ppisar(a)redhat.com&gt; changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Assignee|mmaslano(a)redhat.com         |ppisar(a)redhat.com

--- Comment #1 from Petr Pisar <ppisar(a)redhat.com&gt; ---
perl 5.14.2 and 5.16.1 are affected.

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

Petr Pisar <ppisar(a)redhat.com&gt; changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |MODIFIED
   Fixed In Version|                            |perl-5.16.1-233.fc19

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

--- Comment #2 from Fedora Update System <updates(a)fedoraproject.org&gt; ---
perl-5.16.1-230.fc18 has been submitted as an update for Fedora 18.
https://admin.fedoraproject.org/updates/perl-5.16.1-230.fc18

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

--- Comment #3 from Fedora Update System <updates(a)fedoraproject.org&gt; ---
perl-5.14.2-214.fc17 has been submitted as an update for Fedora 17.
https://admin.fedoraproject.org/updates/perl-5.14.2-214.fc17

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

--- Comment #4 from Fedora Update System <updates(a)fedoraproject.org&gt; ---
perl-5.14.2-200.fc16 has been submitted as an update for Fedora 16.
https://admin.fedoraproject.org/updates/perl-5.14.2-200.fc16

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

Fedora Update System <updates(a)fedoraproject.org&gt; changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|MODIFIED                    |ON_QA

--- Comment #5 from Fedora Update System <updates(a)fedoraproject.org&gt; ---
Package perl-5.16.1-230.fc18:
* should fix your issue,
* was pushed to the Fedora 18 testing repository,
* should be available at your local mirror within two days.
Update it with:
# su -c 'yum update --enablerepo=updates-testing perl-5.16.1-230.fc18'
as soon as you are able to.
Please go to the following url:
https://admin.fedoraproject.org/updates/FEDORA-2012-13814/perl-5.16.1-230...
then log in and leave karma (feedback).

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

--- Comment #6 from Fedora Update System <updates(a)fedoraproject.org&gt; ---
perl-5.16.1-231.fc18 has been submitted as an update for Fedora 18.
https://admin.fedoraproject.org/updates/perl-5.16.1-231.fc18

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

--- Comment #7 from Fedora Update System <updates(a)fedoraproject.org&gt; ---
perl-5.14.2-215.fc17 has been submitted as an update for Fedora 17.
https://admin.fedoraproject.org/updates/perl-5.14.2-215.fc17

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

--- Comment #8 from Fedora Update System <updates(a)fedoraproject.org&gt; ---
perl-5.14.2-201.fc16 has been submitted as an update for Fedora 16.
https://admin.fedoraproject.org/updates/perl-5.14.2-201.fc16

-- 
You are receiving this mail because:
You are on the CC list for the bug.

[Bug 838551] syscall() truncates return value to 32 bits

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=838551

Fedora Update System <updates(a)fedoraproject.org&gt; changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ON_QA                       |CLOSED
         Resolution|---                         |ERRATA
        Last Closed|                            |2012-09-20 16:39:03

--- Comment #9 from Fedora Update System <updates(a)fedoraproject.org&gt; ---
perl-5.16.1-231.fc18 has been pushed to the Fedora 18 stable repository.  If
problems still persist, please make note of it in this bug report.

-- 
You are receiving this mail because:
You are on the CC list for the bug.