GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-28 12:18:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix the parsing of large integers

Browse Source
This commit is contained in:
Krasimir Angelov
2023-03-02 10:45:51 +01:00
parent f7ca8afa81
commit 97bb8ae3f6
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/runtime/c/pgf/expr.cxx
View File

@@ -659,14 +659,21 @@ PgfExpr PgfExprParser::parse_term()
return e; return e;
} }
case PGF_TOKEN_INT: { case PGF_TOKEN_INT: {
size_t size = (token_value->size + LINT_BASE_LOG - 1)/LINT_BASE_LOG; size_t n_digits = token_value->size;
char *p_digits = token_value->text;
if (*p_digits == '-') {
n_digits--;
p_digits++;
}
size_t size = (n_digits + LINT_BASE_LOG - 1)/LINT_BASE_LOG;
uintmax_t *value = (uintmax_t *) alloca(size*sizeof(uintmax_t)); uintmax_t *value = (uintmax_t *) alloca(size*sizeof(uintmax_t));
char *p = token_value->text + token_value->size; char *p = token_value->text + token_value->size;
for (size_t i = size; i > 0; i--) { for (size_t i = size; i > 0; i--) {
char tmp = *p; *p = 0; char tmp = *p; *p = 0;
char *s = p - LINT_BASE_LOG; char *s = p - LINT_BASE_LOG;
if (s < token_value->text) if (s <= p_digits)
s = token_value->text; s = token_value->text;
value[i-1] = (uintmax_t) value[i-1] = (uintmax_t)
(s == token_value->text) ? strtoll(s, NULL, 10) (s == token_value->text) ? strtoll(s, NULL, 10)