diff --git a/extra/pcre/pcre.factor b/extra/pcre/pcre.factor index bfd16ce835..963c1613af 100644 --- a/extra/pcre/pcre.factor +++ b/extra/pcre/pcre.factor @@ -60,7 +60,7 @@ ERROR: pcre-error value ; : name-table ( pcre extra -- addr ) [ drop alien-address 32 on-bits unmask ] - [ PCRE_INFO_NAMETABLE pcre-fullinfo ] 2bi + ; + [ PCRE_INFO_NAMETABLE pcre-fullinfo int uint deref ] 2bi + ; : name-entry-size ( pcre extra -- size ) PCRE_INFO_NAMEENTRYSIZE pcre-fullinfo ;