pub unsafe fn block_start(my_perl: *mut PerlInterpreter, a: c_int) -> c_int
block_start [THX] - macro function