tinycc/libtcc_test.c

64 lines
1.3 KiB
C
Raw Normal View History

2002-05-14 02:58:22 +04:00
/*
* Simple Test program for libtcc
*
* libtcc can be useful to use tcc as a "backend" for a code generator.
*/
#include <stdlib.h>
#include <stdio.h>
#include <libtcc.h>
/* this function is called by the generated code */
int add(int a, int b)
{
return a + b;
}
char my_program[] =
"int fib(int n)\n"
"{\n"
" if (n <= 2)\n"
" return 1;\n"
" else\n"
" return fib(n-1) + fib(n-2);\n"
"}\n"
"\n"
"int foo(int n)\n"
2002-05-14 02:58:22 +04:00
"{\n"
" printf(\"Hello World!\\n\");\n"
" printf(\"fib(%d) = %d\\n\", n, fib(n));\n"
" printf(\"add(%d, %d) = %d\\n\", n, 2 * n, add(n, 2 * n));\n"
" return 0;\n"
"}\n";
int main(int argc, char **argv)
{
TCCState *s;
int (*func)(int);
2002-05-14 02:58:22 +04:00
s = tcc_new();
if (!s) {
fprintf(stderr, "Could not create tcc state\n");
exit(1);
}
2002-08-18 17:24:19 +04:00
/* MUST BE CALLED before any compilation or file loading */
tcc_set_output_type(s, TCC_OUTPUT_MEMORY);
2002-05-14 02:58:22 +04:00
tcc_compile_string(s, my_program);
/* as a test, we add a symbol that the compiled program can be
linked with. You can have a similar result by opening a dll
with tcc_add_dll(() and using its symbols directly. */
2002-07-25 02:12:38 +04:00
tcc_add_symbol(s, "add", (unsigned long)&add);
2002-05-14 02:58:22 +04:00
tcc_relocate(s);
2002-05-14 02:58:22 +04:00
func = tcc_get_symbol(s, "foo");
func(32);
2002-05-14 02:58:22 +04:00
tcc_delete(s);
return 0;
}