Add a comment in the initializing loop in su_init()

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index ec3ecfef785efec4628b24c3fff9bc3356e042ec..3ba3348b7edc058e80ca3314acbfd7698c8c59c2 100644 (file)
--- a/Upper.xs
+++ b/Upper.xs
@@ -1174,6 +1174,7 @@ static I32 su_init(pTHX_ void *ud, I32 cxix, I32 size) {
  PL_scopestack[base] += size;
  for (i = 1; i < depth; ++i) {
   I32 j = i + base;
+  /* origin[depth - i] == PL_scopestack[PL_scopestack_ix - i] */
   origin[i] = PL_scopestack[j];
   PL_scopestack[j] += offset;
  }