From 84a74bfad0f55483ebc491812dc8595576489966 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 20 Nov 2013 12:53:13 -0800
Subject: [PATCH] pcre: fix bug with macosx .

---
 extra/pcre/ffi/ffi.factor   | 10 +++++-----
 extra/pcre/info/info.factor | 12 +++++++-----
 2 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/extra/pcre/ffi/ffi.factor b/extra/pcre/ffi/ffi.factor
index 5985ef3c79..3bba6dc95b 100644
--- a/extra/pcre/ffi/ffi.factor
+++ b/extra/pcre/ffi/ffi.factor
@@ -137,15 +137,15 @@ CONSTANT: PCRE_CONFIG_UTF16                  10
 CONSTANT: PCRE_CONFIG_JITTARGET              11
 CONSTANT: PCRE_CONFIG_UTF32                  12
 
-
 STRUCT: pcre_extra
-    { flags int }
+    { flags ulonglong }
     { study_data void* }
-    { match_limit long }
+    { match_limit ulonglong }
     { callout_data void* }
     { tables uchar* }
-    { match_limit_recursion int }
-    { mark uchar** } ;
+    { match_limit_recursion ulonglong }
+    { mark uchar** }
+    { executable_jit void* } ;
 
 FUNCTION: void pcre_config ( int what, void* where ) ;
 
diff --git a/extra/pcre/info/info.factor b/extra/pcre/info/info.factor
index 29a4c40436..faad07969c 100644
--- a/extra/pcre/info/info.factor
+++ b/extra/pcre/info/info.factor
@@ -4,7 +4,7 @@ USING:
     arrays
     io.encodings.utf8
     kernel
-    math
+    math math.bitwise
     pcre.ffi pcre.utils
     sequences ;
 IN: pcre.info
@@ -17,18 +17,20 @@ IN: pcre.info
     PCRE_INFO_NAMECOUNT fullinfo ;
 
 : name-table ( pcre extra -- addr )
-    PCRE_INFO_NAMETABLE fullinfo ;
+    [ drop alien-address 32 on-bits unmask ]
+    [ PCRE_INFO_NAMETABLE fullinfo ] 2bi + ;
 
 : name-entry-size ( pcre extra -- size )
     PCRE_INFO_NAMEENTRYSIZE fullinfo ;
 
 : name-table-entry ( addr -- group-index group-name )
-    [ <alien> 1 alien-unsigned-1 ] [ 2 + <alien> utf8 alien>string ] bi ;
+    [ <alien> 1 alien-unsigned-1 ]
+    [ 2 + <alien> utf8 alien>string ] bi ;
 
 : options ( pcre -- opts )
     f PCRE_INFO_OPTIONS fullinfo ;
 
 ! Exported
 : name-table-entries ( pcre extra -- addrs )
-    [ name-table ] [ name-entry-size ] [ name-count ] 2tri gen-array-addrs
-    [ name-table-entry 2array ] map ;
+    [ name-table ] [ name-entry-size ] [ name-count ] 2tri
+    gen-array-addrs [ name-table-entry 2array ] map ;