mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-06 04:00:26 +02:00
40aafa5279
* libguile/lightning/: New directory, made by the following commands: git remote add lightning https://git.savannah.gnu.org/git/lightning.git git merge -s ours --no-commit --allow-unrelated-histories lightning/master git read-tree --prefix=libguile/lightning/ -u lightning/master In theory we will be able to update via: git merge -s subtree lightning/master
31 lines
807 B
C
31 lines
807 B
C
#include <stdio.h>
|
|
#include <lightning.h>
|
|
|
|
static jit_state_t *_jit;
|
|
|
|
typedef int (*pifi)(int); /* Pointer to Int Function of Int */
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
jit_node_t *in;
|
|
pifi incr;
|
|
|
|
init_jit(argv[0]);
|
|
_jit = jit_new_state();
|
|
|
|
jit_prolog(); /* @t{ prolog } */
|
|
in = jit_arg(); /* @t{ in = arg } */
|
|
jit_getarg(JIT_R0, in); /* @t{ getarg R0 } */
|
|
jit_addi(JIT_R0, JIT_R0, 1); /* @t{ addi R0\, R0\, 1 } */
|
|
jit_retr(JIT_R0); /* @t{ retr R0 } */
|
|
|
|
incr = jit_emit();
|
|
jit_clear_state();
|
|
|
|
/* call the generated code\, passing 5 as an argument */
|
|
printf("%d + 1 = %d\n", 5, incr(5));
|
|
|
|
jit_destroy_state();
|
|
finish_jit();
|
|
return 0;
|
|
}
|