This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
struct opslot: document a field better
authorDavid Mitchell <davem@iabyn.com>
Mon, 15 Jul 2019 10:55:27 +0000 (11:55 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 5 Aug 2019 10:31:08 +0000 (11:31 +0100)
op.h

diff --git a/op.h b/op.h
index 5a61b6a..2da5edc 100644 (file)
--- a/op.h
+++ b/op.h
@@ -698,7 +698,7 @@ struct opslot {
 struct opslab {
     OPSLAB *   opslab_next;            /* next slab */
     OPSLAB *   opslab_head;            /* first slab in chain */
 struct opslab {
     OPSLAB *   opslab_next;            /* next slab */
     OPSLAB *   opslab_head;            /* first slab in chain */
-    OP *       opslab_freed;           /* chain of freed ops */
+    OP *       opslab_freed;           /* chain of freed ops (head only)*/
     size_t     opslab_refcnt;          /* number of ops (head slab only) */
     U16                opslab_size;            /* size of slab in pointers,
                                            including header */
     size_t     opslab_refcnt;          /* number of ops (head slab only) */
     U16                opslab_size;            /* size of slab in pointers,
                                            including header */