PValアドレスとAPTRってHSPCTX::prmstackを経由しなくてもとれる その2

PValアドレスとAPTRってHSPCTX::prmstackを経由しなくてもとれる - fujidigの雑記 で mref を使って PVal と APTR を取得するということをしましたが、新たに PVal と APTR を取得する方法を発見。
code_get の TYPE_STRUCT でちゃんとチェックしてない - fujidigの雑記 で書いた裏ワザ（？）を使います。

#module
#defcfunc get_pval var
#deffunc get_pval_0 int pval
	return pval
#defcfunc get_aptr var
#deffunc get_aptr_0 int pval, int aptr
	return aptr
#global

mes get_pval(a)
mes get_aptr(a)