From d3e2d64d5bb497d659167c3a7d39079f50726579 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Sun, 10 Nov 2013 05:55:19 +0100
Subject: [PATCH] pcre: ensure we aren't using 16 or 32 bit pcre because that's
 not tested

---
 extra/pcre/ffi/ffi.factor    | 6 ++++++
 extra/pcre/pcre-tests.factor | 4 ++++
 2 files changed, 10 insertions(+)

diff --git a/extra/pcre/ffi/ffi.factor b/extra/pcre/ffi/ffi.factor
index adf63bd8ac..5985ef3c79 100644
--- a/extra/pcre/ffi/ffi.factor
+++ b/extra/pcre/ffi/ffi.factor
@@ -132,6 +132,10 @@ CONSTANT: PCRE_CONFIG_STACKRECURSE            5
 CONSTANT: PCRE_CONFIG_UNICODE_PROPERTIES      6
 CONSTANT: PCRE_CONFIG_MATCH_LIMIT_RECURSION   7
 CONSTANT: PCRE_CONFIG_BSR                     8
+CONSTANT: PCRE_CONFIG_JIT                     9
+CONSTANT: PCRE_CONFIG_UTF16                  10
+CONSTANT: PCRE_CONFIG_JITTARGET              11
+CONSTANT: PCRE_CONFIG_UTF32                  12
 
 
 STRUCT: pcre_extra
@@ -187,3 +191,5 @@ FUNCTION: int pcre_get_substring_list ( c-string subject,
 FUNCTION: c-string pcre_version ( ) ;
 
 FUNCTION: uchar* pcre_maketables ( ) ;
+
+FUNCTION: void pcre_free ( void* pcre ) ;
diff --git a/extra/pcre/pcre-tests.factor b/extra/pcre/pcre-tests.factor
index 3963c5b2d4..2a78fa4a0b 100644
--- a/extra/pcre/pcre-tests.factor
+++ b/extra/pcre/pcre-tests.factor
@@ -35,6 +35,10 @@ os unix? [ [ 10 ] [ PCRE_CONFIG_NEWLINE config ] unit-test ] when
 
 [ 1 ] [ PCRE_CONFIG_UNICODE_PROPERTIES config ] unit-test
 
+! libpcre must not support 16 or 32 bit code points.
+[ 0 ] [ PCRE_CONFIG_UTF16 config ] unit-test
+[ 0 ] [ PCRE_CONFIG_UTF32 config ] unit-test
+
 ! Tests for findall
 [
     { { f "1999-01-12" } { "year" "1999" } { "month" "01" } { "day" "12" } }