diff options
| author | Paul Eggert | 2019-06-20 00:05:28 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-06-20 00:41:13 -0700 |
| commit | 4e8083ec81106eedbecb12799823044dbd05bc7e (patch) | |
| tree | aab33b48cd85a3dd6d97deff71c3e9182947af43 /src | |
| parent | 5f32ac13c8b42e2a4eaadea1c4d0888ef341c9cd (diff) | |
| download | emacs-4e8083ec81106eedbecb12799823044dbd05bc7e.tar.gz emacs-4e8083ec81106eedbecb12799823044dbd05bc7e.zip | |
Fix arbitrary INT_MAX limit on referrer repr
* src/pdumper.c (print_paths_to_root_1):
Don’t assume strlen (repr) < INT_MAX.
Diffstat (limited to 'src')
| -rw-r--r-- | src/pdumper.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/pdumper.c b/src/pdumper.c index a028600ea79..c00f8a0af54 100644 --- a/src/pdumper.c +++ b/src/pdumper.c | |||
| @@ -1405,7 +1405,8 @@ print_paths_to_root_1 (struct dump_context *ctx, | |||
| 1405 | Lisp_Object repr = Fprin1_to_string (referrer, Qnil); | 1405 | Lisp_Object repr = Fprin1_to_string (referrer, Qnil); |
| 1406 | for (int i = 0; i < level; ++i) | 1406 | for (int i = 0; i < level; ++i) |
| 1407 | fputc (' ', stderr); | 1407 | fputc (' ', stderr); |
| 1408 | fprintf (stderr, "%s\n", SDATA (repr)); | 1408 | fwrite (SDATA (repr), 1, SBYTES (repr), stderr); |
| 1409 | fputc ('\n', stderr); | ||
| 1409 | print_paths_to_root_1 (ctx, referrer, level + 1); | 1410 | print_paths_to_root_1 (ctx, referrer, level + 1); |
| 1410 | } | 1411 | } |
| 1411 | } | 1412 | } |