Fix segfault after package body drop#9031

Noremos wants to merge 3 commits into

FirebirdSQL:masterFirebirdSQL/firebird:masterfrom

Noremos:package_constants_incorrect_body_eraseNoremos/firebird:package_constants_incorrect_body_eraseCopy head branch name to clipboard