security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-04-12 22:11:29 +02:00
Code Activity

gpgscm: Clean sweeped cells.

Browse Source 
* tests/gpgscm/scheme.c (gc): Zero typeflag and car of free cells.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-11-23 12:35:15 +01:00
parent 7856e3efaa
commit 3fb9954c43
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/gpgscm/scheme.c
View File

@ -1569,10 +1569,10 @@ static void gc(scheme *sc, pointer a, pointer b) {
/* reclaim cell */ /* reclaim cell */
if (typeflag(p) & T_FINALIZE) { if (typeflag(p) & T_FINALIZE) {
finalize_cell(sc, p); finalize_cell(sc, p);
typeflag(p) = 0;
car(p) = sc->NIL;
} }
++sc->fcells; ++sc->fcells;
typeflag(p) = 0;
car(p) = sc->NIL;
cdr(p) = sc->free_cell; cdr(p) = sc->free_cell;
sc->free_cell = p; sc->free_cell = p;
} }