コード例 #1
0
ファイル: bit_eqv1.c プロジェクト: hoelzl/Clicc
void bit_eqv1(CL_FORM *base)
{
	LOAD_FIXNUM(ARG(3), 3, ARG(3));
	COPY(ARG(0), ARG(4));
	COPY(ARG(1), ARG(5));
	COPY(ARG(2), ARG(6));
	bit_op(ARG(3));
	COPY(ARG(3), ARG(0));
}
コード例 #2
0
ファイル: bit_nor1.c プロジェクト: plops/clicc
void bit_nor1(CL_FORM *base)
{
	LOAD_SMALLFIXNUM(5, ARG(3));
	COPY(ARG(0), ARG(4));
	COPY(ARG(1), ARG(5));
	COPY(ARG(2), ARG(6));
	bit_op(ARG(3));
	COPY(ARG(3), ARG(0));
}
コード例 #3
0
ファイル: bit_not1.c プロジェクト: hoelzl/Clicc
void bit_not1(CL_FORM *base)
{
	LOAD_FIXNUM(ARG(2), 10, ARG(2));
	COPY(ARG(0), ARG(3));
	COPY(ARG(0), ARG(4));
	COPY(ARG(1), ARG(5));
	bit_op(ARG(2));
	COPY(ARG(2), ARG(0));
}