diff options
| author | Kim F. Storm | 2004-06-21 21:51:50 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2004-06-21 21:51:50 +0000 |
| commit | f61bef8be562934b8f2f4a32772567b4f9d3f61b (patch) | |
| tree | fdfb46215df9c64ee00db76c689d1f398963f5df /src/alloc.c | |
| parent | 79518a8dfa01f85d5be62523fcfcf6e8f5f642b1 (diff) | |
| download | emacs-f61bef8be562934b8f2f4a32772567b4f9d3f61b.tar.gz emacs-f61bef8be562934b8f2f4a32772567b4f9d3f61b.zip | |
(safe_alloca_unwind): New function.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index 0b80fd5d9e7..897fe910a6e 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -579,6 +579,17 @@ xstrdup (s) | |||
| 579 | } | 579 | } |
| 580 | 580 | ||
| 581 | 581 | ||
| 582 | /* Unwind for SAFE_ALLOCA */ | ||
| 583 | |||
| 584 | Lisp_Object | ||
| 585 | safe_alloca_unwind (arg) | ||
| 586 | Lisp_Object arg; | ||
| 587 | { | ||
| 588 | xfree (XSAVE_VALUE (arg)->pointer); | ||
| 589 | return Qnil; | ||
| 590 | } | ||
| 591 | |||
| 592 | |||
| 582 | /* Like malloc but used for allocating Lisp data. NBYTES is the | 593 | /* Like malloc but used for allocating Lisp data. NBYTES is the |
| 583 | number of bytes to allocate, TYPE describes the intended use of the | 594 | number of bytes to allocate, TYPE describes the intended use of the |
| 584 | allcated memory block (for strings, for conses, ...). */ | 595 | allcated memory block (for strings, for conses, ...). */ |