view test/bug-64620/bug_64620_2.m @ 33608:5fba13104493 bytecode-interpreter tip

maint: merge default to bytecode-interpreter.
author Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
date Sat, 18 May 2024 22:40:00 -0400
parents 8e4f14837db2
children
line wrap: on
line source

function bug_64620_2()
  % Two levels of nested nesting
  global cdef_alive_objects_cntr = 0;
  cdef_alive_objects_cntr = 0;

  h = sub_returns_nested_fn2;
  h ();
  h = 3; % Clear handle, triggers dtors

  assert (cdef_alive_objects_cntr == 0);
end

function h1 = sub_returns_nested_fn2
  c2 = cdef_counts_self;

  function h2 = nested_fn1
    c3 = cdef_counts_self;

    function nested_fn2
      c4 = cdef_counts_self;
    end

    h2 = @nested_fn2;
  end

  h1 = nested_fn1 ();
end