{"body":"fernando@fernando-OptiPlex-9020:~$ cat jit.p6 \nuse NativeCall;\n\nsub gcc_jit_context_acquire() returns Pointer is native(\"gccjit\") { * }\nsub gcc_jit_context_get_type(Pointer, int16) returns Pointer is native(\"gccjit\") { * }\nsub gcc_jit_context_new_param(Pointer, Pointer, Pointer, Str) returns Pointer is native(\"gccjit\") { * }\nsub gcc_jit_context_new_binary_op(Pointer, Pointer, int16, Pointer, Pointer, Pointer) returns Pointer is native(\"gccjit\") { * }\nsub gcc_jit_param_as_rvalue(Pointer) returns Pointer is native(\"gccjit\") { * };\nsub gcc_jit_context_new_function(Pointer, int16, Pointer, Str, int16, CArray[Pointer], int16) returns Pointer is native(\"gccjit\") { * }\n\n\n\n\nmy Pointer $context  = gcc_jit_context_acquire;\nmy Pointer $int-type = gcc_jit_context_get_type($context, 8);\nmy Pointer $param-a  = gcc_jit_context_new_param($context, Pointer, $int-type, \"a\");\nmy Pointer $param-b  = gcc_jit_context_new_param($context, Pointer, $int-type, \"b\");\nmy Pointer $a-plus-b = gcc_jit_context_new_binary_op($context, Pointer, 0, $int-type, gcc_jit_param_as_rvalue($param-a), gcc_jit_param_as_rvalue($param-b));\nmy Pointer $add-func = gcc_jit_context_new_function($context, 0, $int-type, \"add\", 2, CArray[Pointer].new($param-a, $param-b), 0);\n\nfernando@fernando-OptiPlex-9020:~$ perl6 jit.p6 \nlibgccjit.so: error: gcc_jit_context_new_function: unrecognized value for enum gcc_jit_function_kind: 89059232\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/eoP5pRIQ","modified":1546967910,"id":"eoP5pRIQ","size":1404,"lines":22,"own_paste":false,"theme":"","date":1546967910}