int test_staticlink()
{
char *ptr = "Hello world!";
char *np = 0;
int i = 5;
unsigned int bs = sizeof(int)*8;
int mi;
char buf[80];
int a = 0;
a = test_global(); // gI = 100
printf("global variable gI = %d", a);
if (a == 100)
printf(", PASS\n");
else
printf(", FAIL\n");
a = select_1();
printf("select_1() = %d\n", a); // a = 1
a = select_2();
printf("select_2() = %d\n", a); // a = 1
a = select_3();
printf("select_3() = %d\n", a); // a = 1
a = test_select_global_pic(); // test global of pic llc -O1 option
printf("test_select_global_pic() = %d", a); // a = 100
if (a == 100)
printf(", PASS\n");
else
printf(", FAIL\n");
a = test_func_arg_struct();
a = test_contructor();
a = test_template();
printf("test_template() = %d", a); // a = 15
if (a == 15)
printf(", PASS\n");
else
printf(", FAIL\n");
a = test_alloc(); // 31
printf("test_alloc() = %d", a);
if (a == 31)
printf(", PASS\n");
else
printf(", FAIL\n");
a = test_inlineasm();
printf("test_inlineasm() = %d", a); // a = 53
if (a == 53)
printf(", PASS\n");
else
printf(", FAIL\n");
return 0;
}
int main(int argc, char *argv[])
{
struct tlisp_cell *x = tlisp_atom(10);
struct tlisp_cell *lst = tlisp_list(
x, tlisp_atom(20), tlisp_atom(30));
tlisp_print(lst);
printf("\n");
lst = select_2(x, lst);
tlisp_print(lst);
printf("\n");
tlisp_chain_free(lst);
tlisp_chain_free(x);
}
