From d917282c117041fa1ef3249798f8d9694f601a3e Mon Sep 17 00:00:00 2001
From: Andreas Schwab <schwab@linux-m68k.org>
Date: Fri, 21 Feb 2014 20:18:38 +0100
Subject: [PATCH] Allow negative numbers when searching for parent

A pointer when viewed as signed integer may look negative.
---
 lib/B/Utils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/B/Utils.pm b/lib/B/Utils.pm
index 9886e7e..a18944b 100644
--- a/lib/B/Utils.pm
+++ b/lib/B/Utils.pm
@@ -208,7 +208,7 @@ sub B::OP::_parent_impl {
     return (
         $op->sibling->_parent_impl( $target, "$cx$$op S " )
             || (
-              $cx =~ /^(?:\d+ S )*(?:\d+ N )*$/
+              $cx =~ /^(?:-?\d+ S )*(?:-?\d+ N )*$/
             ? $op->next->_parent_impl( $target, "$cx$$op N " )
             : ()
             )