1
package org.perl6.nqp.sixmodel.reprs;
3
import com.sun.jna.Function;
5
/* Holds a description of a native call site. */
6
public class NativeCallBody {
7
/* Flag for whether we should free a string after passing it or not. These
8
* are going away once the array handling is refactored.*/
9
public static final byte ARG_NO_FREE_STR = 0;
10
public static final byte ARG_FREE_STR = 1;
11
public static final byte ARG_FREE_STR_MASK = 1;
13
/* The available native call argument types. */
32
public Function entry_point;
33
public ArgType[] arg_types;
34
public ArgType ret_type;