r77420 - in /branches/upstream/libcoro-perl/current: ./ Coro/ EV/ Event/
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Wed Jul 13 08:50:26 UTC 2011
Author: ghedo-guest
Date: Wed Jul 13 08:50:17 2011
New Revision: 77420
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77420
Log:
[svn-upgrade] new version libcoro-perl (6.020)
Modified:
branches/upstream/libcoro-perl/current/Changes
branches/upstream/libcoro-perl/current/Coro.pm
branches/upstream/libcoro-perl/current/Coro/AIO.pm
branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm
branches/upstream/libcoro-perl/current/Coro/BDB.pm
branches/upstream/libcoro-perl/current/Coro/Channel.pm
branches/upstream/libcoro-perl/current/Coro/Debug.pm
branches/upstream/libcoro-perl/current/Coro/Handle.pm
branches/upstream/libcoro-perl/current/Coro/LWP.pm
branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm
branches/upstream/libcoro-perl/current/Coro/RWLock.pm
branches/upstream/libcoro-perl/current/Coro/Select.pm
branches/upstream/libcoro-perl/current/Coro/Semaphore.pm
branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm
branches/upstream/libcoro-perl/current/Coro/Signal.pm
branches/upstream/libcoro-perl/current/Coro/Socket.pm
branches/upstream/libcoro-perl/current/Coro/Specific.pm
branches/upstream/libcoro-perl/current/Coro/State.pm
branches/upstream/libcoro-perl/current/Coro/Storable.pm
branches/upstream/libcoro-perl/current/Coro/Timer.pm
branches/upstream/libcoro-perl/current/Coro/Util.pm
branches/upstream/libcoro-perl/current/Coro/jit-amd64-unix.pl
branches/upstream/libcoro-perl/current/EV/EV.pm
branches/upstream/libcoro-perl/current/Event/Event.pm
branches/upstream/libcoro-perl/current/META.json
Modified: branches/upstream/libcoro-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Changes?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Changes (original)
+++ branches/upstream/libcoro-perl/current/Changes Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/AIO.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/AIO.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/AIO.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/AIO.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm Wed Jul 13 08:50:17 2011
@@ -164,7 +164,7 @@
use Coro;
use AnyEvent ();
-our $VERSION = 6.01;
+our $VERSION = 6.02;
#############################################################################
# idle handler
Modified: branches/upstream/libcoro-perl/current/Coro/BDB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/BDB.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/BDB.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/BDB.pm Wed Jul 13 08:50:17 2011
@@ -47,7 +47,7 @@
use base Exporter::;
-our $VERSION = 6.01;
+our $VERSION = 6.02;
our $WATCHER;
BDB::set_sync_prepare {
Modified: branches/upstream/libcoro-perl/current/Coro/Channel.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Channel.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Channel.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Channel.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/Debug.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Debug.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Debug.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Debug.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/Handle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Handle.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Handle.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Handle.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/LWP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/LWP.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/LWP.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/LWP.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/RWLock.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/RWLock.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/RWLock.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/RWLock.pm Wed Jul 13 08:50:17 2011
@@ -38,7 +38,7 @@
use Coro ();
-our $VERSION = 6.01;
+our $VERSION = 6.02;
=item $l = new Coro::RWLock;
Modified: branches/upstream/libcoro-perl/current/Coro/Select.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Select.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Select.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Select.pm Wed Jul 13 08:50:17 2011
@@ -67,7 +67,7 @@
use base Exporter::;
-our $VERSION = 6.01;
+our $VERSION = 6.02;
our @EXPORT_OK = "select";
sub import {
Modified: branches/upstream/libcoro-perl/current/Coro/Semaphore.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Semaphore.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Semaphore.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Semaphore.pm Wed Jul 13 08:50:17 2011
@@ -40,7 +40,7 @@
use Coro ();
-our $VERSION = 6.01;
+our $VERSION = 6.02;
=item new [inital count]
Modified: branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm Wed Jul 13 08:50:17 2011
@@ -35,7 +35,7 @@
use common::sense;
-our $VERSION = 6.01;
+our $VERSION = 6.02;
use Coro::Semaphore ();
Modified: branches/upstream/libcoro-perl/current/Coro/Signal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Signal.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Signal.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Signal.pm Wed Jul 13 08:50:17 2011
@@ -38,7 +38,7 @@
use Coro::Semaphore ();
-our $VERSION = 6.01;
+our $VERSION = 6.02;
=item $sig = new Coro::Signal;
Modified: branches/upstream/libcoro-perl/current/Coro/Socket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Socket.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Socket.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Socket.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/Specific.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Specific.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Specific.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Specific.pm Wed Jul 13 08:50:17 2011
@@ -36,7 +36,7 @@
use common::sense;
-our $VERSION = 6.01;
+our $VERSION = 6.02;
=item new
Modified: branches/upstream/libcoro-perl/current/Coro/State.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/State.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/State.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/State.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/Storable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Storable.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Storable.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Storable.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/Timer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Timer.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Timer.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Timer.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Util.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Util.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Util.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Coro/jit-amd64-unix.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/jit-amd64-unix.pl?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/jit-amd64-unix.pl (original)
+++ branches/upstream/libcoro-perl/current/Coro/jit-amd64-unix.pl Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/EV/EV.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/EV/EV.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/EV/EV.pm (original)
+++ branches/upstream/libcoro-perl/current/EV/EV.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/Event/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Event/Event.pm?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Event/Event.pm (original)
+++ branches/upstream/libcoro-perl/current/Event/Event.pm Wed Jul 13 08:50:17 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: branches/upstream/libcoro-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/META.json?rev=77420&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/META.json (original)
+++ branches/upstream/libcoro-perl/current/META.json Wed Jul 13 08:50:17 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",
More information about the Pkg-perl-cvs-commits
mailing list