r77422 - in /trunk/libcoro-perl: ./ Coro/ EV/ Event/ debian/

ghedo-guest at users.alioth.debian.org ghedo-guest at users.alioth.debian.org
Wed Jul 13 08:52:08 UTC 2011 

Author: ghedo-guest
Date: Wed Jul 13 08:52:06 2011
New Revision: 77422

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77422
Log:
IGNORE-VERSION: 6.020-1
Provides fix for Gentoo
* New upstream release

Modified:
    trunk/libcoro-perl/Changes
    trunk/libcoro-perl/Coro.pm
    trunk/libcoro-perl/Coro/AIO.pm
    trunk/libcoro-perl/Coro/AnyEvent.pm
    trunk/libcoro-perl/Coro/BDB.pm
    trunk/libcoro-perl/Coro/Channel.pm
    trunk/libcoro-perl/Coro/Debug.pm
    trunk/libcoro-perl/Coro/Handle.pm
    trunk/libcoro-perl/Coro/LWP.pm
    trunk/libcoro-perl/Coro/MakeMaker.pm
    trunk/libcoro-perl/Coro/RWLock.pm
    trunk/libcoro-perl/Coro/Select.pm
    trunk/libcoro-perl/Coro/Semaphore.pm
    trunk/libcoro-perl/Coro/SemaphoreSet.pm
    trunk/libcoro-perl/Coro/Signal.pm
    trunk/libcoro-perl/Coro/Socket.pm
    trunk/libcoro-perl/Coro/Specific.pm
    trunk/libcoro-perl/Coro/State.pm
    trunk/libcoro-perl/Coro/Storable.pm
    trunk/libcoro-perl/Coro/Timer.pm
    trunk/libcoro-perl/Coro/Util.pm
    trunk/libcoro-perl/Coro/jit-amd64-unix.pl
    trunk/libcoro-perl/EV/EV.pm
    trunk/libcoro-perl/Event/Event.pm
    trunk/libcoro-perl/META.json
    trunk/libcoro-perl/debian/changelog

Modified: trunk/libcoro-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Changes?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Changes (original)
+++ trunk/libcoro-perl/Changes Wed Jul 13 08:52:06 2011
@@ -3,6 +3,12 @@
 TODO: should explore PerlIO::coroaio (perl leaks like hell).
 TODO: channel->maxsize(newsize)?
 TODO: http://www.microsoft.com/msj/archive/s2ce.aspx
+
+6.02  Wed Jul 13 04:35:19 CEST 2011
+	- "improve portability to Gentoo" - gentoo manages to put perl variables
+          in memory areas that are farther than 2gb apart, which the jit couldn't
+          handle and barfed. now it's just a bit slower on gentoo and similar
+          systems.
 
 6.01  Sun Jul  3 12:31:14 CEST 2011
 	- workarounds are good, but the test for whether pthreads are used

Modified: trunk/libcoro-perl/Coro.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro.pm (original)
+++ trunk/libcoro-perl/Coro.pm Wed Jul 13 08:52:06 2011
@@ -344,7 +344,7 @@
 our $main;    # main coro
 our $current; # current coro
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub rouse_cb rouse_wait);
 our %EXPORT_TAGS = (

Modified: trunk/libcoro-perl/Coro/AIO.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/AIO.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/AIO.pm (original)
+++ trunk/libcoro-perl/Coro/AIO.pm Wed Jul 13 08:52:06 2011
@@ -69,7 +69,7 @@
 
 use base Exporter::;
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 our @EXPORT    = (@IO::AIO::EXPORT, qw(aio_wait));
 our @EXPORT_OK = @IO::AIO::EXPORT_OK;

Modified: trunk/libcoro-perl/Coro/AnyEvent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/AnyEvent.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/AnyEvent.pm (original)
+++ trunk/libcoro-perl/Coro/AnyEvent.pm Wed Jul 13 08:52:06 2011
@@ -164,7 +164,7 @@
 use Coro;
 use AnyEvent ();
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 #############################################################################
 # idle handler

Modified: trunk/libcoro-perl/Coro/BDB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/BDB.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/BDB.pm (original)
+++ trunk/libcoro-perl/Coro/BDB.pm Wed Jul 13 08:52:06 2011
@@ -47,7 +47,7 @@
 
 use base Exporter::;
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 our $WATCHER;
 
 BDB::set_sync_prepare {

Modified: trunk/libcoro-perl/Coro/Channel.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Channel.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Channel.pm (original)
+++ trunk/libcoro-perl/Coro/Channel.pm Wed Jul 13 08:52:06 2011
@@ -35,7 +35,7 @@
 use Coro ();
 use Coro::Semaphore ();
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 sub DATA (){ 0 }
 sub SGET (){ 1 }

Modified: trunk/libcoro-perl/Coro/Debug.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Debug.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Debug.pm (original)
+++ trunk/libcoro-perl/Coro/Debug.pm Wed Jul 13 08:52:06 2011
@@ -121,7 +121,7 @@
 use Coro::AnyEvent ();
 use Coro::Timer ();
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 our %log;
 our $SESLOGLEVEL = exists $ENV{PERL_CORO_DEFAULT_LOGLEVEL} ? $ENV{PERL_CORO_DEFAULT_LOGLEVEL} : -1;

Modified: trunk/libcoro-perl/Coro/Handle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Handle.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Handle.pm (original)
+++ trunk/libcoro-perl/Coro/Handle.pm Wed Jul 13 08:52:06 2011
@@ -45,7 +45,7 @@
 
 use base 'Exporter';
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 our @EXPORT = qw(unblock);
 
 =item $fh = new_from_fh Coro::Handle $fhandle [, arg => value...]

Modified: trunk/libcoro-perl/Coro/LWP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/LWP.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/LWP.pm (original)
+++ trunk/libcoro-perl/Coro/LWP.pm Wed Jul 13 08:52:06 2011
@@ -126,7 +126,7 @@
 use Net::FTP ();
 use Net::NNTP ();
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 *Socket::inet_aton = \&Coro::Util::inet_aton;
 

Modified: trunk/libcoro-perl/Coro/MakeMaker.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/MakeMaker.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/MakeMaker.pm (original)
+++ trunk/libcoro-perl/Coro/MakeMaker.pm Wed Jul 13 08:52:06 2011
@@ -7,7 +7,7 @@
 
 our $installsitearch;
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 our @EXPORT_OK = qw(&coro_args $installsitearch);
 
 my %opt;

Modified: trunk/libcoro-perl/Coro/RWLock.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/RWLock.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/RWLock.pm (original)
+++ trunk/libcoro-perl/Coro/RWLock.pm Wed Jul 13 08:52:06 2011
@@ -38,7 +38,7 @@
 
 use Coro ();
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 =item $l = new Coro::RWLock;
 

Modified: trunk/libcoro-perl/Coro/Select.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Select.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Select.pm (original)
+++ trunk/libcoro-perl/Coro/Select.pm Wed Jul 13 08:52:06 2011
@@ -67,7 +67,7 @@
 
 use base Exporter::;
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 our @EXPORT_OK = "select";
 
 sub import {

Modified: trunk/libcoro-perl/Coro/Semaphore.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Semaphore.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Semaphore.pm (original)
+++ trunk/libcoro-perl/Coro/Semaphore.pm Wed Jul 13 08:52:06 2011
@@ -40,7 +40,7 @@
 
 use Coro ();
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 =item new [inital count]
 

Modified: trunk/libcoro-perl/Coro/SemaphoreSet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/SemaphoreSet.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/SemaphoreSet.pm (original)
+++ trunk/libcoro-perl/Coro/SemaphoreSet.pm Wed Jul 13 08:52:06 2011
@@ -35,7 +35,7 @@
 
 use common::sense;
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 use Coro::Semaphore ();
 

Modified: trunk/libcoro-perl/Coro/Signal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Signal.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Signal.pm (original)
+++ trunk/libcoro-perl/Coro/Signal.pm Wed Jul 13 08:52:06 2011
@@ -38,7 +38,7 @@
 
 use Coro::Semaphore ();
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 =item $sig = new Coro::Signal;
 

Modified: trunk/libcoro-perl/Coro/Socket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Socket.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Socket.pm (original)
+++ trunk/libcoro-perl/Coro/Socket.pm Wed Jul 13 08:52:06 2011
@@ -73,7 +73,7 @@
 
 use base qw(Coro::Handle IO::Socket::INET);
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 our (%_proto, %_port);
 

Modified: trunk/libcoro-perl/Coro/Specific.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Specific.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Specific.pm (original)
+++ trunk/libcoro-perl/Coro/Specific.pm Wed Jul 13 08:52:06 2011
@@ -36,7 +36,7 @@
 
 use common::sense;
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 =item new
 

Modified: trunk/libcoro-perl/Coro/State.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/State.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/State.pm (original)
+++ trunk/libcoro-perl/Coro/State.pm Wed Jul 13 08:52:06 2011
@@ -90,7 +90,7 @@
 use XSLoader;
 
 BEGIN {
-   our $VERSION = 6.01;
+   our $VERSION = 6.02;
 
    # must be done here because the xs part expects it to exist
    # it might exist already because Coro::Specific created it.

Modified: trunk/libcoro-perl/Coro/Storable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Storable.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Storable.pm (original)
+++ trunk/libcoro-perl/Coro/Storable.pm Wed Jul 13 08:52:06 2011
@@ -84,7 +84,7 @@
 use Storable;
 use base "Exporter";
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 our @EXPORT = qw(thaw freeze nfreeze blocking_thaw blocking_freeze blocking_nfreeze);
 
 our $GRANULARITY = 0.01;

Modified: trunk/libcoro-perl/Coro/Timer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Timer.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Timer.pm (original)
+++ trunk/libcoro-perl/Coro/Timer.pm Wed Jul 13 08:52:06 2011
@@ -30,7 +30,7 @@
 use Coro ();
 use Coro::AnyEvent ();
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 our @EXPORT_OK = qw(timeout sleep);
 
 # compatibility with older programs

Modified: trunk/libcoro-perl/Coro/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/Util.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/Util.pm (original)
+++ trunk/libcoro-perl/Coro/Util.pm Wed Jul 13 08:52:06 2011
@@ -41,7 +41,7 @@
 our @EXPORT = qw(gethostbyname gethostbyaddr);
 our @EXPORT_OK = qw(inet_aton fork_eval);
 
-our $VERSION = 6.01;
+our $VERSION = 6.02;
 
 our $MAXPARALLEL = 16; # max. number of parallel jobs
 

Modified: trunk/libcoro-perl/Coro/jit-amd64-unix.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Coro/jit-amd64-unix.pl?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Coro/jit-amd64-unix.pl (original)
+++ trunk/libcoro-perl/Coro/jit-amd64-unix.pl Wed Jul 13 08:52:06 2011
@@ -42,15 +42,19 @@
    my $gencopy = sub {
       my ($save) = shift;
 
-      # all perl variables must be within 32-bits of this address
-      my $curbase = $vars[$#vars >> 1][0];
+      my $curbase = undef;
 
-      my $code = "\x48\xbe" . pack "Q", $curbase; # mov imm64, %rsi
+      my $code;
 
       my $curslot = 0;
 
       for (@vars) {
          my ($addr, $asize, $slot, $ssize) = @$_;
+
+         if (!defined $curbase || abs ($curbase - $addr) > 0x7ffffff) {
+            $curbase = $addr + 128;
+            $code .= "\x48\xbe" . pack "Q", $curbase; # mov imm64, %rsi
+         }
 
          my $slotofs = $slot - $curslot;
 
@@ -89,15 +93,12 @@
 
       # we *could* combine adjacent vars, but this is not very common
 
-      $vars[-1][0] - $vars[0][0] <= 0x7fffffff
-         or die "JIT failed, perl var spread >31 bit\n";
-
       my $load = $gencopy->(0);
       my $save = $gencopy->(1);
 
-      #open my $fh, ">dat"; syswrite $fh, $save; system "objdump -b binary -m i386 -M x86-64 -D dat";
-      #warn length $load;
-      #warn length $save;
+      #open my $fh, ">dat"; syswrite $fh, $save; system "objdump -b binary -m i386 -M x86-64 -D dat";#d#
+      #warn length $load;#d#
+      #warn length $save;#d#
 
       ($load, $save)
    }

Modified: trunk/libcoro-perl/EV/EV.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/EV/EV.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/EV/EV.pm (original)
+++ trunk/libcoro-perl/EV/EV.pm Wed Jul 13 08:52:06 2011
@@ -60,7 +60,7 @@
 use XSLoader;
 
 BEGIN {
-   our $VERSION = 6.01;
+   our $VERSION = 6.02;
 
    local $^W = 0; # avoid redefine warning for Coro::ready;
    XSLoader::load __PACKAGE__, $VERSION;

Modified: trunk/libcoro-perl/Event/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/Event/Event.pm?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/Event/Event.pm (original)
+++ trunk/libcoro-perl/Event/Event.pm Wed Jul 13 08:52:06 2011
@@ -92,7 +92,7 @@
 our @EXPORT = qw(loop unloop sweep);
 
 BEGIN {
-   our $VERSION = 6.01;
+   our $VERSION = 6.02;
 
    local $^W = 0; # avoid redefine warning for Coro::ready;
    XSLoader::load __PACKAGE__, $VERSION;

Modified: trunk/libcoro-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/META.json?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/META.json (original)
+++ trunk/libcoro-perl/META.json Wed Jul 13 08:52:06 2011
@@ -11,7 +11,7 @@
    },
    "generated_by" : "ExtUtils::MakeMaker::JSONMETA version 7.000",
    "distribution_type" : "module",
-   "version" : "6.01",
+   "version" : "6.02",
    "name" : "Coro",
    "author" : [],
    "license" : "unknown",

Modified: trunk/libcoro-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcoro-perl/debian/changelog?rev=77422&op=diff
==============================================================================
--- trunk/libcoro-perl/debian/changelog (original)
+++ trunk/libcoro-perl/debian/changelog Wed Jul 13 08:52:06 2011
@@ -1,3 +1,12 @@
+libcoro-perl (6.020-1) UNRELEASED; urgency=low
+
+  IGNORE-VERSION: 6.020-1
+  Provides fix for Gentoo
+
+  * New upstream release
+
+ -- Alessandro Ghedini <al3xbio at gmail.com>  Wed, 13 Jul 2011 10:50:43 +0200
+
 libcoro-perl (6.010-1) UNRELEASED; urgency=low
 
   IGNORE-VERSION: 6.010-1

More information about the Pkg-perl-cvs-commits mailing list