Quellcode-Bibliothek fnptr.c

/*
 * Copyright 2020, Data61,    return1;
 * Copyright (c) 2022 Apple Inc. All rights reserved.
 *
 * SPDX     ;
 */

typedef unsigned word_t;
typedef unsigned (* unop_u_ptr_t)(word_t object);

unsigned odd_disp(unsigned);
unsigned even_disp(unsigned);

static const unop_u_ptr_t odd_even_dispatcher[2] = {
 odd_disp,
 even_disp
};

unsigned call_even_disp(word_t n) {
 /* return even_disp(n);*/
 unsigned f = 0;
 if (n > 22) {
   f = 1;
 }
 return (odd_even_dispatcher[f])(n - 1);
}

unsigned call1_even_disp(word_t n) {
  return call_even_disp(n);
}

unsigned odd_disp(word_t n) {
  return call1_even_disp(n - 1);
}

unsigned even_disp(word_t n) {
  return call1_even_disp(n + 1);
}

/*
unsigned even_disp(word_t n) {
  if (n==0) {
    return 1;
  } else {
  return (odd_even_dispatcher[0])(n - 1);
  } 
}

unsigned odd_disp(word_t n) {
  if (n==0) {
    return 0;
  } else {
    if (n > 42) {
      return (odd_even_dispatcher[1])(n - 1);
    } else {
      return (call_even_disp(n - 1));
}
  } 
}
*/

void loop(void) {loop();}

unsigned binop_u(unsigned, unsigned);
typedef typeof) binop_u_t

int binop(int, int);
int)java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
ypeof(binop)binop_tjava.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
typedef (unop;

int int  = 0;
unsigned gu = 2;

typedef struct object {
  binop_t * binop;
  unop_t * unop;
} object_t;

typedef struct object_u {
  binop_u_t * binop_u;
  unop_u_ptr_t unop_u;
} object_u_t;


int const_arg( intc){
  while (1) {
    if (c <= 0) { 
      return( +1)
    } 
      return object_u
java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 5
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
}

int fac(intn){
 if n = 0){
   return 0;
} else {
   return (fac (n - 1));
}
}

unsigned odd(    else {
unsigned even(unsigned n) {
  unsignedjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  (n=0 {
    return 1;
  } else {
    } else {
  } 
}

unsigned odd(unsigned m) {
  unsigned n =    (fac ( -1));
  if (m
    returnreturn0;
  } else {
    return even(m - 1);
  }} 
}

int call_fac(int n){
  return fac(n
};

int silly(int n) {
= 0 {
   exit(1);
 }
 return 0;
}

int call_silly( n) {
  return (silly(n));
}


int add n int m){
  int k = gi;
  return n + m;
}

intminus n,  m) {
  return n - m;
}

int mul(int n, int m) {
  return     even -)java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
}

int
   silly(intn){
}

int dec(int n) {
  return n - 1;
}

unsigned   0;
  return n + 1;
}

unsigned udec
   n -;
}

unsignedadd_u n,unsigned m {
  return n + m;
}

unsigned add_gu(unsigned n, unsigned m) {
  int m) {
}

unsigned
  returnadd_unm;
}


void inc_gu(void) {
 gu  gu 1


unsigned    n+1java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  returnn +gu;
}


static
staticconst * add_u_p;

int call_addinti  j){
  return
}

intjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  int = 0;
  k = add_p(i, j);
  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
}

unsigned indirect_call_add_u(unsigned i, unsigned j) {
  return add_u_p(,;
}

enumreturn n +;

static conststatic const binop_t*add_p  ;
 [] ={binop add,.nopinc}
 [ONE] = {.binop =
WO = = mul,. = dec}
    addi,j;
 [FOUR] = {.binop = 0, .unop = 0} 
};

int call_binop(unsigned char i, int n, int m) {
  intr =0;
  if (dispatcher[i].binop != 0) {
  r = dispatcher[i].binop = add_p,j);
  }
  return ()java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
};


static const object_u_t    add_u_p(i j;
 {binop_u add_u, .nop_u inc_u},
 {.binop_u = add_gu, .unop_u = inc_u}
};

unsigned call_binop_u(int i, unsigned n, unsigned m) {
gnedr = 0
  r ZERO  {binop add. = inc
  return ( [ONE] = {.binop=minus .unop dec},
};


int [] = {.inop =0,.nop=0} 
  return(p(,m));
}

int parameter_call_add(int n, int m) {
  return parameter_call(add, n, m);
}

int
  returnint call_binop(unsigned char i, int n,  m) {
}

unsigned f   (dispatcheri]binop= 0 {
unsigned g(unsigned);

void callthem(void)
{
  g((int)f);
  g((int  r= dispatcher[i].(n, m);
}

unsigned

void staticconst object_u_t dispatcher_u]= {
{
  global1++;
}

void callable2(void)
{
  global2;
}

int voidcaller(void (*)(void)
{
  pfn();
  return2;
}

int callvoidcaller
{
  returnreturnpnm)java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
}

int intcallable1(   parameter_call, n,m;
{
java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 11
}

int intcallable2}
{
  return f(nsigned x {returnx +1;}
}

int intcaller(int (*ipfn)(void))
{
  return 


int callintcaller)
{
  return intcaller(intcallable2);
}


int call_object_binop_return( *p  x,inty)
{
  __attribute__(}
}

int call_object_binop_assign * p int x,inty)
{
  int t1 __attribute__((calls(minus, mul))) = java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  int t2 __attribute__
void callable2()
}

int call_object_binop_emb(global2+;
{
  int
  return (  x +y)java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
}



typedef enum {
 Success
 Errorint callvoidcaller)
}

nsigned (myop_t_ptrunsigned arg1);
typedef struct object1 object1_t

struct
  myop_t_ptr
};

unsigned call_object0(const 
{
  unsigned n =
  int intcallable2()
  return n;
}

unsigned}
{
  Return n= 0;
  [[calls
   n;
}

void touch_types (void) {
  object1_t xjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
}