summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-08-02 10:32:01 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-08-02 10:32:01 +0000
commit0f4b663008b5032408c35f3557d9d5c2790d3fcb (patch)
tree60ab7022a0c6f1632b74bf965475fcce8e70fe6b /regcomp.c
parentf0d0442576ea74c58911be43ef48f5977fe2e1fa (diff)
downloadperl-0f4b663008b5032408c35f3557d9d5c2790d3fcb.tar.gz
More 64-bit fixing. One known bug of that kind
remains, 32-bit platforms using long long in the test t/pragma/utf8 subtests 1-3 fail. (Update: change #3884 fixed that one.) p4raw-link: @3884 (not found) p4raw-id: //depot/cfgperl@3880
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index fac31e6991..03e2c74e38 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -698,7 +698,11 @@ S_study_chunk(pTHX_ regnode **scanp, I32 *deltap, regnode *last, scan_data_t *da
FAIL("variable length lookbehind not implemented");
}
else if (minnext > U8_MAX) {
+#ifdef UV_IS_QUAD
+ FAIL2("lookbehind longer than %" PERL_PRIu64 " not implemented", (UV)U8_MAX);
+#else
FAIL2("lookbehind longer than %d not implemented", U8_MAX);
+#endif
}
scan->flags = minnext;
}