src/nci/extra_thunks.c

   1 /* ex: set ro ft=c:
   2  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
   3  *
   4  * This file is generated automatically by tools/dev/nci_thunk_gen.pir
   5  *
   6  * Any changes made here will be lost!
   7  *
   8  */
   9
  10 /* src/nci/extra_thunks.c
  11  *  Copyright (C) 2010, Parrot Foundation.
  12  *  SVN Info
  13  *     $Id$
  14  *  Overview:
  15  *     Native Call Interface routines. The code needed to build a
  16  *     parrot to C call frame is in here
  17  *  Data Structure and Algorithms:
  18  *  History:
  19  *  Notes:
  20  *  References:
  21  */
  22
  23
  24 #include "parrot/parrot.h"
  25 #include "pmc/pmc_nci.h"
  26
  27
  28 #ifdef PARROT_IN_EXTENSION
  29 /* external libraries can't have strings statically compiled into parrot */
  30 #  define CONST_STRING(i, s) Parrot_str_new_constant((i), (s))
  31 #else
  32 #  include "extra_thunks.str"
  33 #endif
  34
  35 /* HEADERIZER HFILE: none */
  36 /* HEADERIZER STOP */
  37
  38 /* All our static functions that call in various ways. Yes, terribly
  39    hackish, but that is just fine */
  40
  41
  42 static void
  43 pcf_v_J(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
  44 {
  45     typedef void(* func_t)(PARROT_INTERP);
  46     func_t fn_pointer;
  47     void *orig_func;
  48     PMC * const ctx         = CURRENT_CONTEXT(interp);
  49     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
  50     PMC *       ret_object  = PMCNULL;
  51     void * return_data;
  52
  53     ;
  54     UNUSED(return_data); /* Potentially unused, at least */
  55     Parrot_pcc_fill_params_from_c_args(interp, call_object, "");
  56
  57     GETATTR_NCI_orig_func(interp, nci, orig_func);
  58     fn_pointer = (func_t)D2FPTR(orig_func);
  59      (*fn_pointer)(interp);
  60
  61
  62 }
  63 static void
  64 pcf_i_ip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
  65 {
  66     typedef int(* func_t)(int, void *);
  67     func_t fn_pointer;
  68     void *orig_func;
  69     PMC * const ctx         = CURRENT_CONTEXT(interp);
  70     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
  71     PMC *       ret_object  = PMCNULL;
  72     INTVAL return_data;
  73
  74     INTVAL t_0;
  75     PMC *t_1;
  76     UNUSED(return_data); /* Potentially unused, at least */
  77     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
  78
  79     GETATTR_NCI_orig_func(interp, nci, orig_func);
  80     fn_pointer = (func_t)D2FPTR(orig_func);
  81     return_data =  (int)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
  82     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
  83
  84
  85 }
  86 static void
  87 pcf_i_JPip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
  88 {
  89     typedef int(* func_t)(PARROT_INTERP, PMC *, int, void *);
  90     func_t fn_pointer;
  91     void *orig_func;
  92     PMC * const ctx         = CURRENT_CONTEXT(interp);
  93     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
  94     PMC *       ret_object  = PMCNULL;
  95     INTVAL return_data;
  96
  97     PMC * t_1;
  98     INTVAL t_2;
  99     PMC *t_3;
 100     UNUSED(return_data); /* Potentially unused, at least */
 101     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_1, &t_2, &t_3);
 102
 103     GETATTR_NCI_orig_func(interp, nci, orig_func);
 104     fn_pointer = (func_t)D2FPTR(orig_func);
 105     return_data =  (int)(*fn_pointer)(interp, t_1, t_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
 106     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
 107
 108
 109
 110
 111 }
 112 static void
 113 pcf_i_JpP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 114 {
 115     typedef int(* func_t)(PARROT_INTERP, void *, PMC *);
 116     func_t fn_pointer;
 117     void *orig_func;
 118     PMC * const ctx         = CURRENT_CONTEXT(interp);
 119     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 120     PMC *       ret_object  = PMCNULL;
 121     INTVAL return_data;
 122
 123     PMC *t_1;
 124     PMC * t_2;
 125     UNUSED(return_data); /* Potentially unused, at least */
 126     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_1, &t_2);
 127
 128     GETATTR_NCI_orig_func(interp, nci, orig_func);
 129     fn_pointer = (func_t)D2FPTR(orig_func);
 130     return_data =  (int)(*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2);
 131     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
 132
 133
 134
 135 }
 136 static void
 137 pcf_i_Jpii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 138 {
 139     typedef int(* func_t)(PARROT_INTERP, void *, int, int);
 140     func_t fn_pointer;
 141     void *orig_func;
 142     PMC * const ctx         = CURRENT_CONTEXT(interp);
 143     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 144     PMC *       ret_object  = PMCNULL;
 145     INTVAL return_data;
 146
 147     PMC *t_1;
 148     INTVAL t_2;
 149     INTVAL t_3;
 150     UNUSED(return_data); /* Potentially unused, at least */
 151     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_1, &t_2, &t_3);
 152
 153     GETATTR_NCI_orig_func(interp, nci, orig_func);
 154     fn_pointer = (func_t)D2FPTR(orig_func);
 155     return_data =  (int)(*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3);
 156     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
 157
 158
 159
 160
 161 }
 162 static void
 163 pcf_i_p(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 164 {
 165     typedef int(* func_t)(void *);
 166     func_t fn_pointer;
 167     void *orig_func;
 168     PMC * const ctx         = CURRENT_CONTEXT(interp);
 169     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 170     PMC *       ret_object  = PMCNULL;
 171     INTVAL return_data;
 172
 173     PMC *t_0;
 174     UNUSED(return_data); /* Potentially unused, at least */
 175     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
 176
 177     GETATTR_NCI_orig_func(interp, nci, orig_func);
 178     fn_pointer = (func_t)D2FPTR(orig_func);
 179     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
 180     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
 181
 182 }
 183 static void
 184 pcf_i_tp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 185 {
 186     typedef int(* func_t)(char *, void *);
 187     func_t fn_pointer;
 188     void *orig_func;
 189     PMC * const ctx         = CURRENT_CONTEXT(interp);
 190     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 191     PMC *       ret_object  = PMCNULL;
 192     INTVAL return_data;
 193
 194     char *t_0; STRING *ts_0;
 195     PMC *t_1;
 196     UNUSED(return_data); /* Potentially unused, at least */
 197     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SP", &ts_0, &t_1);
 198     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);
 199     GETATTR_NCI_orig_func(interp, nci, orig_func);
 200     fn_pointer = (func_t)D2FPTR(orig_func);
 201     return_data =  (int)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
 202     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
 203     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
 204
 205 }
 206 static void
 207 pcf_p_J(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 208 {
 209     typedef void *(* func_t)(PARROT_INTERP);
 210     func_t fn_pointer;
 211     void *orig_func;
 212     PMC * const ctx         = CURRENT_CONTEXT(interp);
 213     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 214     PMC *       ret_object  = PMCNULL;
 215     void * return_data;
 216 PMC * final_destination = PMCNULL;
 217
 218     ;
 219     UNUSED(return_data); /* Potentially unused, at least */
 220     Parrot_pcc_fill_params_from_c_args(interp, call_object, "");
 221
 222     GETATTR_NCI_orig_func(interp, nci, orig_func);
 223     fn_pointer = (func_t)D2FPTR(orig_func);
 224     return_data =  (void *)(*fn_pointer)(interp);
 225     if (return_data != NULL) {
 226                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
 227                              VTABLE_set_pointer(interp, final_destination, return_data);
 228                           }
 229                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
 230
 231 }
 232 static void
 233 pcf_p_Jp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 234 {
 235     typedef void *(* func_t)(PARROT_INTERP, void *);
 236     func_t fn_pointer;
 237     void *orig_func;
 238     PMC * const ctx         = CURRENT_CONTEXT(interp);
 239     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 240     PMC *       ret_object  = PMCNULL;
 241     void * return_data;
 242 PMC * final_destination = PMCNULL;
 243
 244     PMC *t_1;
 245     UNUSED(return_data); /* Potentially unused, at least */
 246     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_1);
 247
 248     GETATTR_NCI_orig_func(interp, nci, orig_func);
 249     fn_pointer = (func_t)D2FPTR(orig_func);
 250     return_data =  (void *)(*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
 251     if (return_data != NULL) {
 252                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
 253                              VTABLE_set_pointer(interp, final_destination, return_data);
 254                           }
 255                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
 256
 257
 258 }
 259 static void
 260 pcf_t_J(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 261 {
 262     typedef char *(* func_t)(PARROT_INTERP);
 263     func_t fn_pointer;
 264     void *orig_func;
 265     PMC * const ctx         = CURRENT_CONTEXT(interp);
 266     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 267     PMC *       ret_object  = PMCNULL;
 268     char * return_data;
 269 STRING *final_destination;
 270
 271     ;
 272     UNUSED(return_data); /* Potentially unused, at least */
 273     Parrot_pcc_fill_params_from_c_args(interp, call_object, "");
 274
 275     GETATTR_NCI_orig_func(interp, nci, orig_func);
 276     fn_pointer = (func_t)D2FPTR(orig_func);
 277     return_data =  (char *)(*fn_pointer)(interp);
 278     final_destination = Parrot_str_new(interp, return_data, 0);
 279            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
 280
 281 }
 282 static void
 283 pcf_t_Jpti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 284 {
 285     typedef char *(* func_t)(PARROT_INTERP, void *, char *, int);
 286     func_t fn_pointer;
 287     void *orig_func;
 288     PMC * const ctx         = CURRENT_CONTEXT(interp);
 289     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 290     PMC *       ret_object  = PMCNULL;
 291     char * return_data;
 292 STRING *final_destination;
 293
 294     PMC *t_1;
 295     char *t_2; STRING *ts_2;
 296     INTVAL t_3;
 297     UNUSED(return_data); /* Potentially unused, at least */
 298     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_1, &ts_2, &t_3);
 299     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
 300     GETATTR_NCI_orig_func(interp, nci, orig_func);
 301     fn_pointer = (func_t)D2FPTR(orig_func);
 302     return_data =  (char *)(*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3);
 303     final_destination = Parrot_str_new(interp, return_data, 0);
 304            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
 305
 306
 307 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
 308
 309 }
 310 static void
 311 pcf_t_p(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 312 {
 313     typedef char *(* func_t)(void *);
 314     func_t fn_pointer;
 315     void *orig_func;
 316     PMC * const ctx         = CURRENT_CONTEXT(interp);
 317     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 318     PMC *       ret_object  = PMCNULL;
 319     char * return_data;
 320 STRING *final_destination;
 321
 322     PMC *t_0;
 323     UNUSED(return_data); /* Potentially unused, at least */
 324     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
 325
 326     GETATTR_NCI_orig_func(interp, nci, orig_func);
 327     fn_pointer = (func_t)D2FPTR(orig_func);
 328     return_data =  (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
 329     final_destination = Parrot_str_new(interp, return_data, 0);
 330            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
 331
 332 }
 333 static void
 334 pcf_t_pt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 335 {
 336     typedef char *(* func_t)(void *, char *);
 337     func_t fn_pointer;
 338     void *orig_func;
 339     PMC * const ctx         = CURRENT_CONTEXT(interp);
 340     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 341     PMC *       ret_object  = PMCNULL;
 342     char * return_data;
 343 STRING *final_destination;
 344
 345     PMC *t_0;
 346     char *t_1; STRING *ts_1;
 347     UNUSED(return_data); /* Potentially unused, at least */
 348     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &ts_1);
 349     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
 350     GETATTR_NCI_orig_func(interp, nci, orig_func);
 351     fn_pointer = (func_t)D2FPTR(orig_func);
 352     return_data =  (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
 353     final_destination = Parrot_str_new(interp, return_data, 0);
 354            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
 355
 356 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
 357 }
 358 static void
 359 pcf_v_p(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 360 {
 361     typedef void(* func_t)(void *);
 362     func_t fn_pointer;
 363     void *orig_func;
 364     PMC * const ctx         = CURRENT_CONTEXT(interp);
 365     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 366     PMC *       ret_object  = PMCNULL;
 367     void * return_data;
 368
 369     PMC *t_0;
 370     UNUSED(return_data); /* Potentially unused, at least */
 371     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
 372
 373     GETATTR_NCI_orig_func(interp, nci, orig_func);
 374     fn_pointer = (func_t)D2FPTR(orig_func);
 375      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
 376
 377
 378 }
 379 static void
 380 pcf_v_pit(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 381 {
 382     typedef void(* func_t)(void *, int, char *);
 383     func_t fn_pointer;
 384     void *orig_func;
 385     PMC * const ctx         = CURRENT_CONTEXT(interp);
 386     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 387     PMC *       ret_object  = PMCNULL;
 388     void * return_data;
 389
 390     PMC *t_0;
 391     INTVAL t_1;
 392     char *t_2; STRING *ts_2;
 393     UNUSED(return_data); /* Potentially unused, at least */
 394     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIS", &t_0, &t_1, &ts_2);
 395     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
 396     GETATTR_NCI_orig_func(interp, nci, orig_func);
 397     fn_pointer = (func_t)D2FPTR(orig_func);
 398      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
 399
 400
 401
 402 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
 403 }
 404 static void
 405 pcf_v_ptt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 406 {
 407     typedef void(* func_t)(void *, char *, char *);
 408     func_t fn_pointer;
 409     void *orig_func;
 410     PMC * const ctx         = CURRENT_CONTEXT(interp);
 411     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 412     PMC *       ret_object  = PMCNULL;
 413     void * return_data;
 414
 415     PMC *t_0;
 416     char *t_1; STRING *ts_1;
 417     char *t_2; STRING *ts_2;
 418     UNUSED(return_data); /* Potentially unused, at least */
 419     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSS", &t_0, &ts_1, &ts_2);
 420     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
 421     GETATTR_NCI_orig_func(interp, nci, orig_func);
 422     fn_pointer = (func_t)D2FPTR(orig_func);
 423      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
 424
 425
 426 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
 427 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
 428 }
 429 static void
 430 pcf_v_Jtiiipt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 431 {
 432     typedef void(* func_t)(PARROT_INTERP, char *, int, int, int, void *, char *);
 433     func_t fn_pointer;
 434     void *orig_func;
 435     PMC * const ctx         = CURRENT_CONTEXT(interp);
 436     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 437     PMC *       ret_object  = PMCNULL;
 438     void * return_data;
 439
 440     char *t_1; STRING *ts_1;
 441     INTVAL t_2;
 442     INTVAL t_3;
 443     INTVAL t_4;
 444     PMC *t_5;
 445     char *t_6; STRING *ts_6;
 446     UNUSED(return_data); /* Potentially unused, at least */
 447     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SIIIPS", &ts_1, &t_2, &t_3, &t_4, &t_5, &ts_6);
 448     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_6 = STRING_IS_NULL(ts_6) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_6);
 449     GETATTR_NCI_orig_func(interp, nci, orig_func);
 450     fn_pointer = (func_t)D2FPTR(orig_func);
 451      (*fn_pointer)(interp, t_1, t_2, t_3, t_4, PMC_IS_NULL((PMC*)t_5) ? (void *)NULL : VTABLE_get_pointer(interp, t_5), t_6);
 452
 453
 454 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
 455
 456
 457
 458
 459 if (!STRING_IS_NULL(ts_6)) Parrot_str_free_cstring(t_6);
 460 }
 461 static void
 462 pcf_p_JttPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 463 {
 464     typedef void *(* func_t)(PARROT_INTERP, char *, char *, PMC *, PMC *);
 465     func_t fn_pointer;
 466     void *orig_func;
 467     PMC * const ctx         = CURRENT_CONTEXT(interp);
 468     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 469     PMC *       ret_object  = PMCNULL;
 470     void * return_data;
 471 PMC * final_destination = PMCNULL;
 472
 473     char *t_1; STRING *ts_1;
 474     char *t_2; STRING *ts_2;
 475     PMC * t_3;
 476     PMC * t_4;
 477     UNUSED(return_data); /* Potentially unused, at least */
 478     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SSPP", &ts_1, &ts_2, &t_3, &t_4);
 479     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
 480     GETATTR_NCI_orig_func(interp, nci, orig_func);
 481     fn_pointer = (func_t)D2FPTR(orig_func);
 482     return_data =  (void *)(*fn_pointer)(interp, t_1, t_2, t_3, t_4);
 483     if (return_data != NULL) {
 484                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
 485                              VTABLE_set_pointer(interp, final_destination, return_data);
 486                           }
 487                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
 488
 489 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
 490 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
 491
 492
 493 }
 494 static void
 495 pcf_P_Jtpi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 496 {
 497     typedef PMC *(* func_t)(PARROT_INTERP, char *, void *, int);
 498     func_t fn_pointer;
 499     void *orig_func;
 500     PMC * const ctx         = CURRENT_CONTEXT(interp);
 501     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 502     PMC *       ret_object  = PMCNULL;
 503     PMC * return_data;
 504
 505     char *t_1; STRING *ts_1;
 506     PMC *t_2;
 507     INTVAL t_3;
 508     UNUSED(return_data); /* Potentially unused, at least */
 509     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SPI", &ts_1, &t_2, &t_3);
 510     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
 511     GETATTR_NCI_orig_func(interp, nci, orig_func);
 512     fn_pointer = (func_t)D2FPTR(orig_func);
 513     return_data =  (PMC *)(*fn_pointer)(interp, t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), t_3);
 514     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
 515
 516 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
 517
 518
 519 }
 520 static void
 521 pcf_i_Vppp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 522 {
 523     typedef int(* func_t)(void **, void *, void *, void *);
 524     func_t fn_pointer;
 525     void *orig_func;
 526     PMC * const ctx         = CURRENT_CONTEXT(interp);
 527     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 528     PMC *       ret_object  = PMCNULL;
 529     INTVAL return_data;
 530
 531     PMC *t_0; void *v_0;
 532     PMC *t_1;
 533     PMC *t_2;
 534     PMC *t_3;
 535     UNUSED(return_data); /* Potentially unused, at least */
 536     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
 537     v_0 = VTABLE_get_pointer(interp, t_0);
 538     GETATTR_NCI_orig_func(interp, nci, orig_func);
 539     fn_pointer = (func_t)D2FPTR(orig_func);
 540     return_data =  (int)(*fn_pointer)(&v_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
 541     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
 542     VTABLE_set_pointer(interp, t_0, v_0);
 543
 544
 545
 546 }
 547 static void
 548 pcf_v_JpPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 549 {
 550     typedef void(* func_t)(PARROT_INTERP, void *, PMC *, PMC *);
 551     func_t fn_pointer;
 552     void *orig_func;
 553     PMC * const ctx         = CURRENT_CONTEXT(interp);
 554     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 555     PMC *       ret_object  = PMCNULL;
 556     void * return_data;
 557
 558     PMC *t_1;
 559     PMC * t_2;
 560     PMC * t_3;
 561     UNUSED(return_data); /* Potentially unused, at least */
 562     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_1, &t_2, &t_3);
 563
 564     GETATTR_NCI_orig_func(interp, nci, orig_func);
 565     fn_pointer = (func_t)D2FPTR(orig_func);
 566      (*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3);
 567
 568
 569
 570
 571
 572 }
 573 static void
 574 pcf_v_pt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 575 {
 576     typedef void(* func_t)(void *, char *);
 577     func_t fn_pointer;
 578     void *orig_func;
 579     PMC * const ctx         = CURRENT_CONTEXT(interp);
 580     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 581     PMC *       ret_object  = PMCNULL;
 582     void * return_data;
 583
 584     PMC *t_0;
 585     char *t_1; STRING *ts_1;
 586     UNUSED(return_data); /* Potentially unused, at least */
 587     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &ts_1);
 588     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
 589     GETATTR_NCI_orig_func(interp, nci, orig_func);
 590     fn_pointer = (func_t)D2FPTR(orig_func);
 591      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
 592
 593
 594 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
 595 }
 596 static void
 597 pcf_v_Jpt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 598 {
 599     typedef void(* func_t)(PARROT_INTERP, void *, char *);
 600     func_t fn_pointer;
 601     void *orig_func;
 602     PMC * const ctx         = CURRENT_CONTEXT(interp);
 603     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 604     PMC *       ret_object  = PMCNULL;
 605     void * return_data;
 606
 607     PMC *t_1;
 608     char *t_2; STRING *ts_2;
 609     UNUSED(return_data); /* Potentially unused, at least */
 610     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_1, &ts_2);
 611     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
 612     GETATTR_NCI_orig_func(interp, nci, orig_func);
 613     fn_pointer = (func_t)D2FPTR(orig_func);
 614      (*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2);
 615
 616
 617
 618 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
 619 }
 620 static void
 621 pcf_v_(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 622 {
 623     typedef void(* func_t)(void);
 624     func_t fn_pointer;
 625     void *orig_func;
 626     PMC * const ctx         = CURRENT_CONTEXT(interp);
 627     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 628     PMC *       ret_object  = PMCNULL;
 629     void * return_data;
 630
 631     ;
 632     UNUSED(return_data); /* Potentially unused, at least */
 633     GETATTR_NCI_orig_func(interp, nci, orig_func);
 634     fn_pointer = (func_t)D2FPTR(orig_func);
 635      (*fn_pointer)();
 636
 637
 638 }
 639 static void
 640 pcf_v_Jiiip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 641 {
 642     typedef void(* func_t)(PARROT_INTERP, int, int, int, void *);
 643     func_t fn_pointer;
 644     void *orig_func;
 645     PMC * const ctx         = CURRENT_CONTEXT(interp);
 646     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 647     PMC *       ret_object  = PMCNULL;
 648     void * return_data;
 649
 650     INTVAL t_1;
 651     INTVAL t_2;
 652     INTVAL t_3;
 653     PMC *t_4;
 654     UNUSED(return_data); /* Potentially unused, at least */
 655     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIP", &t_1, &t_2, &t_3, &t_4);
 656
 657     GETATTR_NCI_orig_func(interp, nci, orig_func);
 658     fn_pointer = (func_t)D2FPTR(orig_func);
 659      (*fn_pointer)(interp, t_1, t_2, t_3, PMC_IS_NULL((PMC*)t_4) ? (void *)NULL : VTABLE_get_pointer(interp, t_4));
 660
 661
 662
 663
 664
 665
 666 }
 667 static void
 668 pcf_v_i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 669 {
 670     typedef void(* func_t)(int);
 671     func_t fn_pointer;
 672     void *orig_func;
 673     PMC * const ctx         = CURRENT_CONTEXT(interp);
 674     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 675     PMC *       ret_object  = PMCNULL;
 676     void * return_data;
 677
 678     INTVAL t_0;
 679     UNUSED(return_data); /* Potentially unused, at least */
 680     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
 681
 682     GETATTR_NCI_orig_func(interp, nci, orig_func);
 683     fn_pointer = (func_t)D2FPTR(orig_func);
 684      (*fn_pointer)(t_0);
 685
 686
 687 }
 688 static void
 689 pcf_v_ii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 690 {
 691     typedef void(* func_t)(int, int);
 692     func_t fn_pointer;
 693     void *orig_func;
 694     PMC * const ctx         = CURRENT_CONTEXT(interp);
 695     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 696     PMC *       ret_object  = PMCNULL;
 697     void * return_data;
 698
 699     INTVAL t_0;
 700     INTVAL t_1;
 701     UNUSED(return_data); /* Potentially unused, at least */
 702     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
 703
 704     GETATTR_NCI_orig_func(interp, nci, orig_func);
 705     fn_pointer = (func_t)D2FPTR(orig_func);
 706      (*fn_pointer)(t_0, t_1);
 707
 708
 709
 710 }
 711 static void
 712 pcf_v_illllllll(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 713 {
 714     typedef void(* func_t)(int, long, long, long, long, long, long, long, long);
 715     func_t fn_pointer;
 716     void *orig_func;
 717     PMC * const ctx         = CURRENT_CONTEXT(interp);
 718     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 719     PMC *       ret_object  = PMCNULL;
 720     void * return_data;
 721
 722     INTVAL t_0;
 723     INTVAL t_1;
 724     INTVAL t_2;
 725     INTVAL t_3;
 726     INTVAL t_4;
 727     INTVAL t_5;
 728     INTVAL t_6;
 729     INTVAL t_7;
 730     INTVAL t_8;
 731     UNUSED(return_data); /* Potentially unused, at least */
 732     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIIIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6, &t_7, &t_8);
 733
 734     GETATTR_NCI_orig_func(interp, nci, orig_func);
 735     fn_pointer = (func_t)D2FPTR(orig_func);
 736      (*fn_pointer)(t_0, t_1, t_2, t_3, t_4, t_5, t_6, t_7, t_8);
 737
 738
 739
 740
 741
 742
 743
 744
 745
 746
 747 }
 748 static void
 749 pcf_v_l(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 750 {
 751     typedef void(* func_t)(long);
 752     func_t fn_pointer;
 753     void *orig_func;
 754     PMC * const ctx         = CURRENT_CONTEXT(interp);
 755     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 756     PMC *       ret_object  = PMCNULL;
 757     void * return_data;
 758
 759     INTVAL t_0;
 760     UNUSED(return_data); /* Potentially unused, at least */
 761     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
 762
 763     GETATTR_NCI_orig_func(interp, nci, orig_func);
 764     fn_pointer = (func_t)D2FPTR(orig_func);
 765      (*fn_pointer)(t_0);
 766
 767
 768 }
 769 static void
 770 pcf_v_pbip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 771 {
 772     typedef void(* func_t)(void *, void *, int, void *);
 773     func_t fn_pointer;
 774     void *orig_func;
 775     PMC * const ctx         = CURRENT_CONTEXT(interp);
 776     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 777     PMC *       ret_object  = PMCNULL;
 778     void * return_data;
 779
 780     PMC *t_0;
 781     STRING *t_1;
 782     INTVAL t_2;
 783     PMC *t_3;
 784     UNUSED(return_data); /* Potentially unused, at least */
 785     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSIP", &t_0, &t_1, &t_2, &t_3);
 786
 787     GETATTR_NCI_orig_func(interp, nci, orig_func);
 788     fn_pointer = (func_t)D2FPTR(orig_func);
 789      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), Buffer_bufstart(t_1), t_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
 790
 791
 792
 793
 794
 795 }
 796 static void
 797 pcf_v_pi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 798 {
 799     typedef void(* func_t)(void *, int);
 800     func_t fn_pointer;
 801     void *orig_func;
 802     PMC * const ctx         = CURRENT_CONTEXT(interp);
 803     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 804     PMC *       ret_object  = PMCNULL;
 805     void * return_data;
 806
 807     PMC *t_0;
 808     INTVAL t_1;
 809     UNUSED(return_data); /* Potentially unused, at least */
 810     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
 811
 812     GETATTR_NCI_orig_func(interp, nci, orig_func);
 813     fn_pointer = (func_t)D2FPTR(orig_func);
 814      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
 815
 816
 817
 818 }
 819 static void
 820 pcf_v_piiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 821 {
 822     typedef void(* func_t)(void *, int, int, int, int);
 823     func_t fn_pointer;
 824     void *orig_func;
 825     PMC * const ctx         = CURRENT_CONTEXT(interp);
 826     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 827     PMC *       ret_object  = PMCNULL;
 828     void * return_data;
 829
 830     PMC *t_0;
 831     INTVAL t_1;
 832     INTVAL t_2;
 833     INTVAL t_3;
 834     INTVAL t_4;
 835     UNUSED(return_data); /* Potentially unused, at least */
 836     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIII", &t_0, &t_1, &t_2, &t_3, &t_4);
 837
 838     GETATTR_NCI_orig_func(interp, nci, orig_func);
 839     fn_pointer = (func_t)D2FPTR(orig_func);
 840      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4);
 841
 842
 843
 844
 845
 846
 847 }
 848 static void
 849 pcf_v_pl(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 850 {
 851     typedef void(* func_t)(void *, long);
 852     func_t fn_pointer;
 853     void *orig_func;
 854     PMC * const ctx         = CURRENT_CONTEXT(interp);
 855     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 856     PMC *       ret_object  = PMCNULL;
 857     void * return_data;
 858
 859     PMC *t_0;
 860     INTVAL t_1;
 861     UNUSED(return_data); /* Potentially unused, at least */
 862     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
 863
 864     GETATTR_NCI_orig_func(interp, nci, orig_func);
 865     fn_pointer = (func_t)D2FPTR(orig_func);
 866      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
 867
 868
 869
 870 }
 871 static void
 872 pcf_v_pp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 873 {
 874     typedef void(* func_t)(void *, void *);
 875     func_t fn_pointer;
 876     void *orig_func;
 877     PMC * const ctx         = CURRENT_CONTEXT(interp);
 878     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 879     PMC *       ret_object  = PMCNULL;
 880     void * return_data;
 881
 882     PMC *t_0;
 883     PMC *t_1;
 884     UNUSED(return_data); /* Potentially unused, at least */
 885     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
 886
 887     GETATTR_NCI_orig_func(interp, nci, orig_func);
 888     fn_pointer = (func_t)D2FPTR(orig_func);
 889      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
 890
 891
 892
 893 }
 894 static void
 895 pcf_i_JPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 896 {
 897     typedef int(* func_t)(PARROT_INTERP, PMC *, PMC *);
 898     func_t fn_pointer;
 899     void *orig_func;
 900     PMC * const ctx         = CURRENT_CONTEXT(interp);
 901     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 902     PMC *       ret_object  = PMCNULL;
 903     INTVAL return_data;
 904
 905     PMC * t_1;
 906     PMC * t_2;
 907     UNUSED(return_data); /* Potentially unused, at least */
 908     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_1, &t_2);
 909
 910     GETATTR_NCI_orig_func(interp, nci, orig_func);
 911     fn_pointer = (func_t)D2FPTR(orig_func);
 912     return_data =  (int)(*fn_pointer)(interp, t_1, t_2);
 913     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
 914
 915
 916
 917 }
 918 static void
 919 pcf_P_JP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 920 {
 921     typedef PMC *(* func_t)(PARROT_INTERP, PMC *);
 922     func_t fn_pointer;
 923     void *orig_func;
 924     PMC * const ctx         = CURRENT_CONTEXT(interp);
 925     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 926     PMC *       ret_object  = PMCNULL;
 927     PMC * return_data;
 928
 929     PMC * t_1;
 930     UNUSED(return_data); /* Potentially unused, at least */
 931     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_1);
 932
 933     GETATTR_NCI_orig_func(interp, nci, orig_func);
 934     fn_pointer = (func_t)D2FPTR(orig_func);
 935     return_data =  (PMC *)(*fn_pointer)(interp, t_1);
 936     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
 937
 938
 939 }
 940 static void
 941 pcf_P_JPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 942 {
 943     typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *);
 944     func_t fn_pointer;
 945     void *orig_func;
 946     PMC * const ctx         = CURRENT_CONTEXT(interp);
 947     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 948     PMC *       ret_object  = PMCNULL;
 949     PMC * return_data;
 950
 951     PMC * t_1;
 952     PMC * t_2;
 953     UNUSED(return_data); /* Potentially unused, at least */
 954     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_1, &t_2);
 955
 956     GETATTR_NCI_orig_func(interp, nci, orig_func);
 957     fn_pointer = (func_t)D2FPTR(orig_func);
 958     return_data =  (PMC *)(*fn_pointer)(interp, t_1, t_2);
 959     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
 960
 961
 962
 963 }
 964 static void
 965 pcf_P_JO(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 966 {
 967     typedef PMC *(* func_t)(PARROT_INTERP, PMC *);
 968     func_t fn_pointer;
 969     void *orig_func;
 970     PMC * const ctx         = CURRENT_CONTEXT(interp);
 971     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 972     PMC *       ret_object  = PMCNULL;
 973     PMC * return_data;
 974
 975     PMC * t_1;
 976     UNUSED(return_data); /* Potentially unused, at least */
 977     Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
 978
 979     GETATTR_NCI_orig_func(interp, nci, orig_func);
 980     fn_pointer = (func_t)D2FPTR(orig_func);
 981     return_data =  (PMC *)(*fn_pointer)(interp, t_1);
 982     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
 983
 984
 985 }
 986 static void
 987 pcf_S_JO(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
 988 {
 989     typedef STRING *(* func_t)(PARROT_INTERP, PMC *);
 990     func_t fn_pointer;
 991     void *orig_func;
 992     PMC * const ctx         = CURRENT_CONTEXT(interp);
 993     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
 994     PMC *       ret_object  = PMCNULL;
 995     STRING * return_data;
 996
 997     PMC * t_1;
 998     UNUSED(return_data); /* Potentially unused, at least */
 999     Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
1000
1001     GETATTR_NCI_orig_func(interp, nci, orig_func);
1002     fn_pointer = (func_t)D2FPTR(orig_func);
1003     return_data =  (STRING *)(*fn_pointer)(interp, t_1);
1004     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
1005
1006
1007 }
1008 static void
1009 pcf_i_P(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1010 {
1011     typedef int(* func_t)(PMC *);
1012     func_t fn_pointer;
1013     void *orig_func;
1014     PMC * const ctx         = CURRENT_CONTEXT(interp);
1015     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1016     PMC *       ret_object  = PMCNULL;
1017     INTVAL return_data;
1018
1019     PMC * t_0;
1020     UNUSED(return_data); /* Potentially unused, at least */
1021     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
1022
1023     GETATTR_NCI_orig_func(interp, nci, orig_func);
1024     fn_pointer = (func_t)D2FPTR(orig_func);
1025     return_data =  (int)(*fn_pointer)(t_0);
1026     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1027
1028 }
1029 static void
1030 pcf_P_JOPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1031 {
1032     typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *);
1033     func_t fn_pointer;
1034     void *orig_func;
1035     PMC * const ctx         = CURRENT_CONTEXT(interp);
1036     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1037     PMC *       ret_object  = PMCNULL;
1038     PMC * return_data;
1039
1040     PMC * t_1;
1041     PMC * t_2;
1042     PMC * t_3;
1043     UNUSED(return_data); /* Potentially unused, at least */
1044     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPP", &t_1, &t_2, &t_3);
1045
1046     GETATTR_NCI_orig_func(interp, nci, orig_func);
1047     fn_pointer = (func_t)D2FPTR(orig_func);
1048     return_data =  (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3);
1049     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
1050
1051
1052
1053
1054 }
1055 static void
1056 pcf_P_JOPPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1057 {
1058     typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *, PMC *);
1059     func_t fn_pointer;
1060     void *orig_func;
1061     PMC * const ctx         = CURRENT_CONTEXT(interp);
1062     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1063     PMC *       ret_object  = PMCNULL;
1064     PMC * return_data;
1065
1066     PMC * t_1;
1067     PMC * t_2;
1068     PMC * t_3;
1069     PMC * t_4;
1070     UNUSED(return_data); /* Potentially unused, at least */
1071     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPPP", &t_1, &t_2, &t_3, &t_4);
1072
1073     GETATTR_NCI_orig_func(interp, nci, orig_func);
1074     fn_pointer = (func_t)D2FPTR(orig_func);
1075     return_data =  (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3, t_4);
1076     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
1077
1078
1079
1080
1081
1082 }
1083 static void
1084 pcf_v_JOPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1085 {
1086     typedef void(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *);
1087     func_t fn_pointer;
1088     void *orig_func;
1089     PMC * const ctx         = CURRENT_CONTEXT(interp);
1090     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1091     PMC *       ret_object  = PMCNULL;
1092     void * return_data;
1093
1094     PMC * t_1;
1095     PMC * t_2;
1096     PMC * t_3;
1097     UNUSED(return_data); /* Potentially unused, at least */
1098     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPP", &t_1, &t_2, &t_3);
1099
1100     GETATTR_NCI_orig_func(interp, nci, orig_func);
1101     fn_pointer = (func_t)D2FPTR(orig_func);
1102      (*fn_pointer)(interp, t_1, t_2, t_3);
1103
1104
1105
1106
1107
1108 }
1109 static void
1110 pcf_v_JOPPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1111 {
1112     typedef void(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *, PMC *);
1113     func_t fn_pointer;
1114     void *orig_func;
1115     PMC * const ctx         = CURRENT_CONTEXT(interp);
1116     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1117     PMC *       ret_object  = PMCNULL;
1118     void * return_data;
1119
1120     PMC * t_1;
1121     PMC * t_2;
1122     PMC * t_3;
1123     PMC * t_4;
1124     UNUSED(return_data); /* Potentially unused, at least */
1125     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPPP", &t_1, &t_2, &t_3, &t_4);
1126
1127     GETATTR_NCI_orig_func(interp, nci, orig_func);
1128     fn_pointer = (func_t)D2FPTR(orig_func);
1129      (*fn_pointer)(interp, t_1, t_2, t_3, t_4);
1130
1131
1132
1133
1134
1135
1136 }
1137 static void
1138 pcf_P_JOPPPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1139 {
1140     typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *, PMC *, PMC *);
1141     func_t fn_pointer;
1142     void *orig_func;
1143     PMC * const ctx         = CURRENT_CONTEXT(interp);
1144     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1145     PMC *       ret_object  = PMCNULL;
1146     PMC * return_data;
1147
1148     PMC * t_1;
1149     PMC * t_2;
1150     PMC * t_3;
1151     PMC * t_4;
1152     PMC * t_5;
1153     UNUSED(return_data); /* Potentially unused, at least */
1154     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPPPP", &t_1, &t_2, &t_3, &t_4, &t_5);
1155
1156     GETATTR_NCI_orig_func(interp, nci, orig_func);
1157     fn_pointer = (func_t)D2FPTR(orig_func);
1158     return_data =  (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3, t_4, t_5);
1159     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
1160
1161
1162
1163
1164
1165
1166 }
1167 static void
1168 pcf_P_JOPPPPP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1169 {
1170     typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *, PMC *, PMC *, PMC *);
1171     func_t fn_pointer;
1172     void *orig_func;
1173     PMC * const ctx         = CURRENT_CONTEXT(interp);
1174     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1175     PMC *       ret_object  = PMCNULL;
1176     PMC * return_data;
1177
1178     PMC * t_1;
1179     PMC * t_2;
1180     PMC * t_3;
1181     PMC * t_4;
1182     PMC * t_5;
1183     PMC * t_6;
1184     UNUSED(return_data); /* Potentially unused, at least */
1185     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPPPPP", &t_1, &t_2, &t_3, &t_4, &t_5, &t_6);
1186
1187     GETATTR_NCI_orig_func(interp, nci, orig_func);
1188     fn_pointer = (func_t)D2FPTR(orig_func);
1189     return_data =  (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3, t_4, t_5, t_6);
1190     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
1191
1192
1193
1194
1195
1196
1197
1198 }
1199 static void
1200 pcf_I_JOSI(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1201 {
1202     typedef INTVAL(* func_t)(PARROT_INTERP, PMC *, STRING *, INTVAL);
1203     func_t fn_pointer;
1204     void *orig_func;
1205     PMC * const ctx         = CURRENT_CONTEXT(interp);
1206     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1207     PMC *       ret_object  = PMCNULL;
1208     INTVAL return_data;
1209
1210     PMC * t_1;
1211     STRING * t_2;
1212     INTVAL t_3;
1213     UNUSED(return_data); /* Potentially unused, at least */
1214     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiSI", &t_1, &t_2, &t_3);
1215
1216     GETATTR_NCI_orig_func(interp, nci, orig_func);
1217     fn_pointer = (func_t)D2FPTR(orig_func);
1218     return_data =  (INTVAL)(*fn_pointer)(interp, t_1, t_2, t_3);
1219     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1220
1221
1222
1223
1224 }
1225 static void
1226 pcf_P_JOSII(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1227 {
1228     typedef PMC *(* func_t)(PARROT_INTERP, PMC *, STRING *, INTVAL, INTVAL);
1229     func_t fn_pointer;
1230     void *orig_func;
1231     PMC * const ctx         = CURRENT_CONTEXT(interp);
1232     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1233     PMC *       ret_object  = PMCNULL;
1234     PMC * return_data;
1235
1236     PMC * t_1;
1237     STRING * t_2;
1238     INTVAL t_3;
1239     INTVAL t_4;
1240     UNUSED(return_data); /* Potentially unused, at least */
1241     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiSII", &t_1, &t_2, &t_3, &t_4);
1242
1243     GETATTR_NCI_orig_func(interp, nci, orig_func);
1244     fn_pointer = (func_t)D2FPTR(orig_func);
1245     return_data =  (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3, t_4);
1246     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
1247
1248
1249
1250
1251
1252 }
1253 static void
1254 pcf_t_p3(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1255 {
1256     typedef char *(* func_t)(void *, int *);
1257     func_t fn_pointer;
1258     void *orig_func;
1259     PMC * const ctx         = CURRENT_CONTEXT(interp);
1260     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1261     PMC *       ret_object  = PMCNULL;
1262     char * return_data;
1263 STRING *final_destination;
1264
1265     PMC *t_0;
1266     PMC *t_1; int i_1;
1267     UNUSED(return_data); /* Potentially unused, at least */
1268     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
1269     i_1 = VTABLE_get_integer(interp, t_1);
1270     GETATTR_NCI_orig_func(interp, nci, orig_func);
1271     fn_pointer = (func_t)D2FPTR(orig_func);
1272     return_data =  (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1);
1273     final_destination = Parrot_str_new(interp, return_data, 0);
1274            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
1275
1276 VTABLE_set_integer_native(interp, t_1, i_1);
1277 }
1278 static void
1279 pcf_i_pp3p(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1280 {
1281     typedef int(* func_t)(void *, void *, int *, void *);
1282     func_t fn_pointer;
1283     void *orig_func;
1284     PMC * const ctx         = CURRENT_CONTEXT(interp);
1285     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1286     PMC *       ret_object  = PMCNULL;
1287     INTVAL return_data;
1288
1289     PMC *t_0;
1290     PMC *t_1;
1291     PMC *t_2; int i_2;
1292     PMC *t_3;
1293     UNUSED(return_data); /* Potentially unused, at least */
1294     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
1295     i_2 = VTABLE_get_integer(interp, t_2);
1296     GETATTR_NCI_orig_func(interp, nci, orig_func);
1297     fn_pointer = (func_t)D2FPTR(orig_func);
1298     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), &i_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
1299     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1300
1301
1302 VTABLE_set_integer_native(interp, t_2, i_2);
1303
1304 }
1305 static void
1306 pcf_i_pp3(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1307 {
1308     typedef int(* func_t)(void *, void *, int *);
1309     func_t fn_pointer;
1310     void *orig_func;
1311     PMC * const ctx         = CURRENT_CONTEXT(interp);
1312     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1313     PMC *       ret_object  = PMCNULL;
1314     INTVAL return_data;
1315
1316     PMC *t_0;
1317     PMC *t_1;
1318     PMC *t_2; int i_2;
1319     UNUSED(return_data); /* Potentially unused, at least */
1320     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
1321     i_2 = VTABLE_get_integer(interp, t_2);
1322     GETATTR_NCI_orig_func(interp, nci, orig_func);
1323     fn_pointer = (func_t)D2FPTR(orig_func);
1324     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), &i_2);
1325     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1326
1327
1328 VTABLE_set_integer_native(interp, t_2, i_2);
1329 }
1330 static void
1331 pcf_i_ppd(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1332 {
1333     typedef int(* func_t)(void *, void *, double);
1334     func_t fn_pointer;
1335     void *orig_func;
1336     PMC * const ctx         = CURRENT_CONTEXT(interp);
1337     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1338     PMC *       ret_object  = PMCNULL;
1339     INTVAL return_data;
1340
1341     PMC *t_0;
1342     PMC *t_1;
1343     FLOATVAL t_2;
1344     UNUSED(return_data); /* Potentially unused, at least */
1345     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPN", &t_0, &t_1, &t_2);
1346
1347     GETATTR_NCI_orig_func(interp, nci, orig_func);
1348     fn_pointer = (func_t)D2FPTR(orig_func);
1349     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2);
1350     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1351
1352
1353
1354 }
1355 static void
1356 pcf_i_ptii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1357 {
1358     typedef int(* func_t)(void *, char *, int, int);
1359     func_t fn_pointer;
1360     void *orig_func;
1361     PMC * const ctx         = CURRENT_CONTEXT(interp);
1362     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1363     PMC *       ret_object  = PMCNULL;
1364     INTVAL return_data;
1365
1366     PMC *t_0;
1367     char *t_1; STRING *ts_1;
1368     INTVAL t_2;
1369     INTVAL t_3;
1370     UNUSED(return_data); /* Potentially unused, at least */
1371     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSII", &t_0, &ts_1, &t_2, &t_3);
1372     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
1373     GETATTR_NCI_orig_func(interp, nci, orig_func);
1374     fn_pointer = (func_t)D2FPTR(orig_func);
1375     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3);
1376     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1377
1378 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
1379
1380
1381 }
1382 static void
1383 pcf_i_pipi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1384 {
1385     typedef int(* func_t)(void *, int, void *, int);
1386     func_t fn_pointer;
1387     void *orig_func;
1388     PMC * const ctx         = CURRENT_CONTEXT(interp);
1389     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1390     PMC *       ret_object  = PMCNULL;
1391     INTVAL return_data;
1392
1393     PMC *t_0;
1394     INTVAL t_1;
1395     PMC *t_2;
1396     INTVAL t_3;
1397     UNUSED(return_data); /* Potentially unused, at least */
1398     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIPI", &t_0, &t_1, &t_2, &t_3);
1399
1400     GETATTR_NCI_orig_func(interp, nci, orig_func);
1401     fn_pointer = (func_t)D2FPTR(orig_func);
1402     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), t_3);
1403     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1404
1405
1406
1407
1408 }
1409 static void
1410 pcf_t_ptti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1411 {
1412     typedef char *(* func_t)(void *, char *, char *, int);
1413     func_t fn_pointer;
1414     void *orig_func;
1415     PMC * const ctx         = CURRENT_CONTEXT(interp);
1416     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1417     PMC *       ret_object  = PMCNULL;
1418     char * return_data;
1419 STRING *final_destination;
1420
1421     PMC *t_0;
1422     char *t_1; STRING *ts_1;
1423     char *t_2; STRING *ts_2;
1424     INTVAL t_3;
1425     UNUSED(return_data); /* Potentially unused, at least */
1426     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSI", &t_0, &ts_1, &ts_2, &t_3);
1427     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
1428     GETATTR_NCI_orig_func(interp, nci, orig_func);
1429     fn_pointer = (func_t)D2FPTR(orig_func);
1430     return_data =  (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3);
1431     final_destination = Parrot_str_new(interp, return_data, 0);
1432            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
1433
1434 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
1435 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
1436
1437 }
1438 static void
1439 pcf_t_pti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1440 {
1441     typedef char *(* func_t)(void *, char *, int);
1442     func_t fn_pointer;
1443     void *orig_func;
1444     PMC * const ctx         = CURRENT_CONTEXT(interp);
1445     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1446     PMC *       ret_object  = PMCNULL;
1447     char * return_data;
1448 STRING *final_destination;
1449
1450     PMC *t_0;
1451     char *t_1; STRING *ts_1;
1452     INTVAL t_2;
1453     UNUSED(return_data); /* Potentially unused, at least */
1454     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_0, &ts_1, &t_2);
1455     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
1456     GETATTR_NCI_orig_func(interp, nci, orig_func);
1457     fn_pointer = (func_t)D2FPTR(orig_func);
1458     return_data =  (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
1459     final_destination = Parrot_str_new(interp, return_data, 0);
1460            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
1461
1462 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
1463
1464 }
1465 static void
1466 pcf_t_pttti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1467 {
1468     typedef char *(* func_t)(void *, char *, char *, char *, int);
1469     func_t fn_pointer;
1470     void *orig_func;
1471     PMC * const ctx         = CURRENT_CONTEXT(interp);
1472     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1473     PMC *       ret_object  = PMCNULL;
1474     char * return_data;
1475 STRING *final_destination;
1476
1477     PMC *t_0;
1478     char *t_1; STRING *ts_1;
1479     char *t_2; STRING *ts_2;
1480     char *t_3; STRING *ts_3;
1481     INTVAL t_4;
1482     UNUSED(return_data); /* Potentially unused, at least */
1483     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSSI", &t_0, &ts_1, &ts_2, &ts_3, &t_4);
1484     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);t_3 = STRING_IS_NULL(ts_3) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_3);
1485     GETATTR_NCI_orig_func(interp, nci, orig_func);
1486     fn_pointer = (func_t)D2FPTR(orig_func);
1487     return_data =  (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4);
1488     final_destination = Parrot_str_new(interp, return_data, 0);
1489            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
1490
1491 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
1492 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
1493 if (!STRING_IS_NULL(ts_3)) Parrot_str_free_cstring(t_3);
1494
1495 }
1496 static void
1497 pcf_p_Ji(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1498 {
1499     typedef void *(* func_t)(PARROT_INTERP, int);
1500     func_t fn_pointer;
1501     void *orig_func;
1502     PMC * const ctx         = CURRENT_CONTEXT(interp);
1503     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1504     PMC *       ret_object  = PMCNULL;
1505     void * return_data;
1506 PMC * final_destination = PMCNULL;
1507
1508     INTVAL t_1;
1509     UNUSED(return_data); /* Potentially unused, at least */
1510     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_1);
1511
1512     GETATTR_NCI_orig_func(interp, nci, orig_func);
1513     fn_pointer = (func_t)D2FPTR(orig_func);
1514     return_data =  (void *)(*fn_pointer)(interp, t_1);
1515     if (return_data != NULL) {
1516                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
1517                              VTABLE_set_pointer(interp, final_destination, return_data);
1518                           }
1519                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
1520
1521
1522 }
1523 static void
1524 pcf_p_Jipp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1525 {
1526     typedef void *(* func_t)(PARROT_INTERP, int, void *, void *);
1527     func_t fn_pointer;
1528     void *orig_func;
1529     PMC * const ctx         = CURRENT_CONTEXT(interp);
1530     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1531     PMC *       ret_object  = PMCNULL;
1532     void * return_data;
1533 PMC * final_destination = PMCNULL;
1534
1535     INTVAL t_1;
1536     PMC *t_2;
1537     PMC *t_3;
1538     UNUSED(return_data); /* Potentially unused, at least */
1539     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IPP", &t_1, &t_2, &t_3);
1540
1541     GETATTR_NCI_orig_func(interp, nci, orig_func);
1542     fn_pointer = (func_t)D2FPTR(orig_func);
1543     return_data =  (void *)(*fn_pointer)(interp, t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
1544     if (return_data != NULL) {
1545                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
1546                              VTABLE_set_pointer(interp, final_destination, return_data);
1547                           }
1548                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
1549
1550
1551
1552
1553 }
1554 static void
1555 pcf_p_Jbip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1556 {
1557     typedef void *(* func_t)(PARROT_INTERP, void *, int, void *);
1558     func_t fn_pointer;
1559     void *orig_func;
1560     PMC * const ctx         = CURRENT_CONTEXT(interp);
1561     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1562     PMC *       ret_object  = PMCNULL;
1563     void * return_data;
1564 PMC * final_destination = PMCNULL;
1565
1566     STRING *t_1;
1567     INTVAL t_2;
1568     PMC *t_3;
1569     UNUSED(return_data); /* Potentially unused, at least */
1570     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SIP", &t_1, &t_2, &t_3);
1571
1572     GETATTR_NCI_orig_func(interp, nci, orig_func);
1573     fn_pointer = (func_t)D2FPTR(orig_func);
1574     return_data =  (void *)(*fn_pointer)(interp, Buffer_bufstart(t_1), t_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
1575     if (return_data != NULL) {
1576                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
1577                              VTABLE_set_pointer(interp, final_destination, return_data);
1578                           }
1579                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
1580
1581
1582
1583
1584 }
1585 static void
1586 pcf_v_Jp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1587 {
1588     typedef void(* func_t)(PARROT_INTERP, void *);
1589     func_t fn_pointer;
1590     void *orig_func;
1591     PMC * const ctx         = CURRENT_CONTEXT(interp);
1592     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1593     PMC *       ret_object  = PMCNULL;
1594     void * return_data;
1595
1596     PMC *t_1;
1597     UNUSED(return_data); /* Potentially unused, at least */
1598     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_1);
1599
1600     GETATTR_NCI_orig_func(interp, nci, orig_func);
1601     fn_pointer = (func_t)D2FPTR(orig_func);
1602      (*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
1603
1604
1605
1606 }
1607 static void
1608 pcf_v_JS(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1609 {
1610     typedef void(* func_t)(PARROT_INTERP, STRING *);
1611     func_t fn_pointer;
1612     void *orig_func;
1613     PMC * const ctx         = CURRENT_CONTEXT(interp);
1614     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1615     PMC *       ret_object  = PMCNULL;
1616     void * return_data;
1617
1618     STRING * t_1;
1619     UNUSED(return_data); /* Potentially unused, at least */
1620     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &t_1);
1621
1622     GETATTR_NCI_orig_func(interp, nci, orig_func);
1623     fn_pointer = (func_t)D2FPTR(orig_func);
1624      (*fn_pointer)(interp, t_1);
1625
1626
1627
1628 }
1629 static void
1630 pcf_t_tt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1631 {
1632     typedef char *(* func_t)(char *, char *);
1633     func_t fn_pointer;
1634     void *orig_func;
1635     PMC * const ctx         = CURRENT_CONTEXT(interp);
1636     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1637     PMC *       ret_object  = PMCNULL;
1638     char * return_data;
1639 STRING *final_destination;
1640
1641     char *t_0; STRING *ts_0;
1642     char *t_1; STRING *ts_1;
1643     UNUSED(return_data); /* Potentially unused, at least */
1644     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SS", &ts_0, &ts_1);
1645     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
1646     GETATTR_NCI_orig_func(interp, nci, orig_func);
1647     fn_pointer = (func_t)D2FPTR(orig_func);
1648     return_data =  (char *)(*fn_pointer)(t_0, t_1);
1649     final_destination = Parrot_str_new(interp, return_data, 0);
1650            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
1651     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
1652 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
1653 }
1654 static void
1655 pcf_I_JOt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1656 {
1657     typedef INTVAL(* func_t)(PARROT_INTERP, PMC *, char *);
1658     func_t fn_pointer;
1659     void *orig_func;
1660     PMC * const ctx         = CURRENT_CONTEXT(interp);
1661     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1662     PMC *       ret_object  = PMCNULL;
1663     INTVAL return_data;
1664
1665     PMC * t_1;
1666     char *t_2; STRING *ts_2;
1667     UNUSED(return_data); /* Potentially unused, at least */
1668     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiS", &t_1, &ts_2);
1669     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
1670     GETATTR_NCI_orig_func(interp, nci, orig_func);
1671     fn_pointer = (func_t)D2FPTR(orig_func);
1672     return_data =  (INTVAL)(*fn_pointer)(interp, t_1, t_2);
1673     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1674
1675
1676 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
1677 }
1678 static void
1679 pcf_v_JOSI(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1680 {
1681     typedef void(* func_t)(PARROT_INTERP, PMC *, STRING *, INTVAL);
1682     func_t fn_pointer;
1683     void *orig_func;
1684     PMC * const ctx         = CURRENT_CONTEXT(interp);
1685     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1686     PMC *       ret_object  = PMCNULL;
1687     void * return_data;
1688
1689     PMC * t_1;
1690     STRING * t_2;
1691     INTVAL t_3;
1692     UNUSED(return_data); /* Potentially unused, at least */
1693     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiSI", &t_1, &t_2, &t_3);
1694
1695     GETATTR_NCI_orig_func(interp, nci, orig_func);
1696     fn_pointer = (func_t)D2FPTR(orig_func);
1697      (*fn_pointer)(interp, t_1, t_2, t_3);
1698
1699
1700
1701
1702
1703 }
1704 static void
1705 pcf_S_JOi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1706 {
1707     typedef STRING *(* func_t)(PARROT_INTERP, PMC *, int);
1708     func_t fn_pointer;
1709     void *orig_func;
1710     PMC * const ctx         = CURRENT_CONTEXT(interp);
1711     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1712     PMC *       ret_object  = PMCNULL;
1713     STRING * return_data;
1714
1715     PMC * t_1;
1716     INTVAL t_2;
1717     UNUSED(return_data); /* Potentially unused, at least */
1718     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
1719
1720     GETATTR_NCI_orig_func(interp, nci, orig_func);
1721     fn_pointer = (func_t)D2FPTR(orig_func);
1722     return_data =  (STRING *)(*fn_pointer)(interp, t_1, t_2);
1723     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
1724
1725
1726
1727 }
1728 static void
1729 pcf_v_JOi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1730 {
1731     typedef void(* func_t)(PARROT_INTERP, PMC *, int);
1732     func_t fn_pointer;
1733     void *orig_func;
1734     PMC * const ctx         = CURRENT_CONTEXT(interp);
1735     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1736     PMC *       ret_object  = PMCNULL;
1737     void * return_data;
1738
1739     PMC * t_1;
1740     INTVAL t_2;
1741     UNUSED(return_data); /* Potentially unused, at least */
1742     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
1743
1744     GETATTR_NCI_orig_func(interp, nci, orig_func);
1745     fn_pointer = (func_t)D2FPTR(orig_func);
1746      (*fn_pointer)(interp, t_1, t_2);
1747
1748
1749
1750
1751 }
1752 static void
1753 pcf_I_JO(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1754 {
1755     typedef INTVAL(* func_t)(PARROT_INTERP, PMC *);
1756     func_t fn_pointer;
1757     void *orig_func;
1758     PMC * const ctx         = CURRENT_CONTEXT(interp);
1759     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1760     PMC *       ret_object  = PMCNULL;
1761     INTVAL return_data;
1762
1763     PMC * t_1;
1764     UNUSED(return_data); /* Potentially unused, at least */
1765     Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
1766
1767     GETATTR_NCI_orig_func(interp, nci, orig_func);
1768     fn_pointer = (func_t)D2FPTR(orig_func);
1769     return_data =  (INTVAL)(*fn_pointer)(interp, t_1);
1770     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1771
1772
1773 }
1774 static void
1775 pcf_N_JO(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1776 {
1777     typedef FLOATVAL(* func_t)(PARROT_INTERP, PMC *);
1778     func_t fn_pointer;
1779     void *orig_func;
1780     PMC * const ctx         = CURRENT_CONTEXT(interp);
1781     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1782     PMC *       ret_object  = PMCNULL;
1783     FLOATVAL return_data;
1784
1785     PMC * t_1;
1786     UNUSED(return_data); /* Potentially unused, at least */
1787     Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
1788
1789     GETATTR_NCI_orig_func(interp, nci, orig_func);
1790     fn_pointer = (func_t)D2FPTR(orig_func);
1791     return_data =  (FLOATVAL)(*fn_pointer)(interp, t_1);
1792     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
1793
1794
1795 }
1796 static void
1797 pcf_v_JON(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1798 {
1799     typedef void(* func_t)(PARROT_INTERP, PMC *, FLOATVAL);
1800     func_t fn_pointer;
1801     void *orig_func;
1802     PMC * const ctx         = CURRENT_CONTEXT(interp);
1803     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1804     PMC *       ret_object  = PMCNULL;
1805     void * return_data;
1806
1807     PMC * t_1;
1808     FLOATVAL t_2;
1809     UNUSED(return_data); /* Potentially unused, at least */
1810     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiN", &t_1, &t_2);
1811
1812     GETATTR_NCI_orig_func(interp, nci, orig_func);
1813     fn_pointer = (func_t)D2FPTR(orig_func);
1814      (*fn_pointer)(interp, t_1, t_2);
1815
1816
1817
1818
1819 }
1820 static void
1821 pcf_P_JOi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1822 {
1823     typedef PMC *(* func_t)(PARROT_INTERP, PMC *, int);
1824     func_t fn_pointer;
1825     void *orig_func;
1826     PMC * const ctx         = CURRENT_CONTEXT(interp);
1827     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1828     PMC *       ret_object  = PMCNULL;
1829     PMC * return_data;
1830
1831     PMC * t_1;
1832     INTVAL t_2;
1833     UNUSED(return_data); /* Potentially unused, at least */
1834     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
1835
1836     GETATTR_NCI_orig_func(interp, nci, orig_func);
1837     fn_pointer = (func_t)D2FPTR(orig_func);
1838     return_data =  (PMC *)(*fn_pointer)(interp, t_1, t_2);
1839     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
1840
1841
1842
1843 }
1844 static void
1845 pcf_v_JOI(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1846 {
1847     typedef void(* func_t)(PARROT_INTERP, PMC *, INTVAL);
1848     func_t fn_pointer;
1849     void *orig_func;
1850     PMC * const ctx         = CURRENT_CONTEXT(interp);
1851     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1852     PMC *       ret_object  = PMCNULL;
1853     void * return_data;
1854
1855     PMC * t_1;
1856     INTVAL t_2;
1857     UNUSED(return_data); /* Potentially unused, at least */
1858     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
1859
1860     GETATTR_NCI_orig_func(interp, nci, orig_func);
1861     fn_pointer = (func_t)D2FPTR(orig_func);
1862      (*fn_pointer)(interp, t_1, t_2);
1863
1864
1865
1866
1867 }
1868 static void
1869 pcf_P_JOI(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1870 {
1871     typedef PMC *(* func_t)(PARROT_INTERP, PMC *, INTVAL);
1872     func_t fn_pointer;
1873     void *orig_func;
1874     PMC * const ctx         = CURRENT_CONTEXT(interp);
1875     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1876     PMC *       ret_object  = PMCNULL;
1877     PMC * return_data;
1878
1879     PMC * t_1;
1880     INTVAL t_2;
1881     UNUSED(return_data); /* Potentially unused, at least */
1882     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
1883
1884     GETATTR_NCI_orig_func(interp, nci, orig_func);
1885     fn_pointer = (func_t)D2FPTR(orig_func);
1886     return_data =  (PMC *)(*fn_pointer)(interp, t_1, t_2);
1887     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
1888
1889
1890
1891 }
1892 static void
1893 pcf_P_JOIS(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1894 {
1895     typedef PMC *(* func_t)(PARROT_INTERP, PMC *, INTVAL, STRING *);
1896     func_t fn_pointer;
1897     void *orig_func;
1898     PMC * const ctx         = CURRENT_CONTEXT(interp);
1899     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1900     PMC *       ret_object  = PMCNULL;
1901     PMC * return_data;
1902
1903     PMC * t_1;
1904     INTVAL t_2;
1905     STRING * t_3;
1906     UNUSED(return_data); /* Potentially unused, at least */
1907     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiIS", &t_1, &t_2, &t_3);
1908
1909     GETATTR_NCI_orig_func(interp, nci, orig_func);
1910     fn_pointer = (func_t)D2FPTR(orig_func);
1911     return_data =  (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3);
1912     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
1913
1914
1915
1916
1917 }
1918 static void
1919 pcf_S_JOSP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1920 {
1921     typedef STRING *(* func_t)(PARROT_INTERP, PMC *, STRING *, PMC *);
1922     func_t fn_pointer;
1923     void *orig_func;
1924     PMC * const ctx         = CURRENT_CONTEXT(interp);
1925     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1926     PMC *       ret_object  = PMCNULL;
1927     STRING * return_data;
1928
1929     PMC * t_1;
1930     STRING * t_2;
1931     PMC * t_3;
1932     UNUSED(return_data); /* Potentially unused, at least */
1933     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiSP", &t_1, &t_2, &t_3);
1934
1935     GETATTR_NCI_orig_func(interp, nci, orig_func);
1936     fn_pointer = (func_t)D2FPTR(orig_func);
1937     return_data =  (STRING *)(*fn_pointer)(interp, t_1, t_2, t_3);
1938     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
1939
1940
1941
1942
1943 }
1944 static void
1945 pcf_i_(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1946 {
1947     typedef int(* func_t)(void);
1948     func_t fn_pointer;
1949     void *orig_func;
1950     PMC * const ctx         = CURRENT_CONTEXT(interp);
1951     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1952     PMC *       ret_object  = PMCNULL;
1953     INTVAL return_data;
1954
1955     ;
1956     UNUSED(return_data); /* Potentially unused, at least */
1957     GETATTR_NCI_orig_func(interp, nci, orig_func);
1958     fn_pointer = (func_t)D2FPTR(orig_func);
1959     return_data =  (int)(*fn_pointer)();
1960     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1961
1962 }
1963 static void
1964 pcf_i_i3i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1965 {
1966     typedef int(* func_t)(int, int *, int);
1967     func_t fn_pointer;
1968     void *orig_func;
1969     PMC * const ctx         = CURRENT_CONTEXT(interp);
1970     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1971     PMC *       ret_object  = PMCNULL;
1972     INTVAL return_data;
1973
1974     INTVAL t_0;
1975     PMC *t_1; int i_1;
1976     INTVAL t_2;
1977     UNUSED(return_data); /* Potentially unused, at least */
1978     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IPI", &t_0, &t_1, &t_2);
1979     i_1 = VTABLE_get_integer(interp, t_1);
1980     GETATTR_NCI_orig_func(interp, nci, orig_func);
1981     fn_pointer = (func_t)D2FPTR(orig_func);
1982     return_data =  (int)(*fn_pointer)(t_0, &i_1, t_2);
1983     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
1984
1985 VTABLE_set_integer_native(interp, t_1, i_1);
1986
1987 }
1988 static void
1989 pcf_i_ibi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
1990 {
1991     typedef int(* func_t)(int, void *, int);
1992     func_t fn_pointer;
1993     void *orig_func;
1994     PMC * const ctx         = CURRENT_CONTEXT(interp);
1995     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
1996     PMC *       ret_object  = PMCNULL;
1997     INTVAL return_data;
1998
1999     INTVAL t_0;
2000     STRING *t_1;
2001     INTVAL t_2;
2002     UNUSED(return_data); /* Potentially unused, at least */
2003     Parrot_pcc_fill_params_from_c_args(interp, call_object, "ISI", &t_0, &t_1, &t_2);
2004
2005     GETATTR_NCI_orig_func(interp, nci, orig_func);
2006     fn_pointer = (func_t)D2FPTR(orig_func);
2007     return_data =  (int)(*fn_pointer)(t_0, Buffer_bufstart(t_1), t_2);
2008     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2009
2010
2011
2012 }
2013 static void
2014 pcf_l_lttl(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2015 {
2016     typedef long(* func_t)(long, char *, char *, long);
2017     func_t fn_pointer;
2018     void *orig_func;
2019     PMC * const ctx         = CURRENT_CONTEXT(interp);
2020     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2021     PMC *       ret_object  = PMCNULL;
2022     INTVAL return_data;
2023
2024     INTVAL t_0;
2025     char *t_1; STRING *ts_1;
2026     char *t_2; STRING *ts_2;
2027     INTVAL t_3;
2028     UNUSED(return_data); /* Potentially unused, at least */
2029     Parrot_pcc_fill_params_from_c_args(interp, call_object, "ISSI", &t_0, &ts_1, &ts_2, &t_3);
2030     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
2031     GETATTR_NCI_orig_func(interp, nci, orig_func);
2032     fn_pointer = (func_t)D2FPTR(orig_func);
2033     return_data =  (long)(*fn_pointer)(t_0, t_1, t_2, t_3);
2034     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2035
2036 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2037 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2038
2039 }
2040 static void
2041 pcf_i_pip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2042 {
2043     typedef int(* func_t)(void *, int, void *);
2044     func_t fn_pointer;
2045     void *orig_func;
2046     PMC * const ctx         = CURRENT_CONTEXT(interp);
2047     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2048     PMC *       ret_object  = PMCNULL;
2049     INTVAL return_data;
2050
2051     PMC *t_0;
2052     INTVAL t_1;
2053     PMC *t_2;
2054     UNUSED(return_data); /* Potentially unused, at least */
2055     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_0, &t_1, &t_2);
2056
2057     GETATTR_NCI_orig_func(interp, nci, orig_func);
2058     fn_pointer = (func_t)D2FPTR(orig_func);
2059     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
2060     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2061
2062
2063
2064 }
2065 static void
2066 pcf_i_piS(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2067 {
2068     typedef int(* func_t)(void *, int, STRING *);
2069     func_t fn_pointer;
2070     void *orig_func;
2071     PMC * const ctx         = CURRENT_CONTEXT(interp);
2072     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2073     PMC *       ret_object  = PMCNULL;
2074     INTVAL return_data;
2075
2076     PMC *t_0;
2077     INTVAL t_1;
2078     STRING * t_2;
2079     UNUSED(return_data); /* Potentially unused, at least */
2080     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIS", &t_0, &t_1, &t_2);
2081
2082     GETATTR_NCI_orig_func(interp, nci, orig_func);
2083     fn_pointer = (func_t)D2FPTR(orig_func);
2084     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
2085     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2086
2087
2088
2089 }
2090 static void
2091 pcf_S_i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2092 {
2093     typedef STRING *(* func_t)(int);
2094     func_t fn_pointer;
2095     void *orig_func;
2096     PMC * const ctx         = CURRENT_CONTEXT(interp);
2097     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2098     PMC *       ret_object  = PMCNULL;
2099     STRING * return_data;
2100
2101     INTVAL t_0;
2102     UNUSED(return_data); /* Potentially unused, at least */
2103     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
2104
2105     GETATTR_NCI_orig_func(interp, nci, orig_func);
2106     fn_pointer = (func_t)D2FPTR(orig_func);
2107     return_data =  (STRING *)(*fn_pointer)(t_0);
2108     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
2109
2110 }
2111 static void
2112 pcf_l_p(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2113 {
2114     typedef long(* func_t)(void *);
2115     func_t fn_pointer;
2116     void *orig_func;
2117     PMC * const ctx         = CURRENT_CONTEXT(interp);
2118     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2119     PMC *       ret_object  = PMCNULL;
2120     INTVAL return_data;
2121
2122     PMC *t_0;
2123     UNUSED(return_data); /* Potentially unused, at least */
2124     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
2125
2126     GETATTR_NCI_orig_func(interp, nci, orig_func);
2127     fn_pointer = (func_t)D2FPTR(orig_func);
2128     return_data =  (long)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
2129     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2130
2131 }
2132 static void
2133 pcf_c_p(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2134 {
2135     typedef char(* func_t)(void *);
2136     func_t fn_pointer;
2137     void *orig_func;
2138     PMC * const ctx         = CURRENT_CONTEXT(interp);
2139     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2140     PMC *       ret_object  = PMCNULL;
2141     INTVAL return_data;
2142
2143     PMC *t_0;
2144     UNUSED(return_data); /* Potentially unused, at least */
2145     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
2146
2147     GETATTR_NCI_orig_func(interp, nci, orig_func);
2148     fn_pointer = (func_t)D2FPTR(orig_func);
2149     return_data =  (char)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
2150     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2151
2152 }
2153 static void
2154 pcf_p_pi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2155 {
2156     typedef void *(* func_t)(void *, int);
2157     func_t fn_pointer;
2158     void *orig_func;
2159     PMC * const ctx         = CURRENT_CONTEXT(interp);
2160     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2161     PMC *       ret_object  = PMCNULL;
2162     void * return_data;
2163 PMC * final_destination = PMCNULL;
2164
2165     PMC *t_0;
2166     INTVAL t_1;
2167     UNUSED(return_data); /* Potentially unused, at least */
2168     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
2169
2170     GETATTR_NCI_orig_func(interp, nci, orig_func);
2171     fn_pointer = (func_t)D2FPTR(orig_func);
2172     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
2173     if (return_data != NULL) {
2174                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2175                              VTABLE_set_pointer(interp, final_destination, return_data);
2176                           }
2177                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2178
2179
2180 }
2181 static void
2182 pcf_p_p(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2183 {
2184     typedef void *(* func_t)(void *);
2185     func_t fn_pointer;
2186     void *orig_func;
2187     PMC * const ctx         = CURRENT_CONTEXT(interp);
2188     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2189     PMC *       ret_object  = PMCNULL;
2190     void * return_data;
2191 PMC * final_destination = PMCNULL;
2192
2193     PMC *t_0;
2194     UNUSED(return_data); /* Potentially unused, at least */
2195     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
2196
2197     GETATTR_NCI_orig_func(interp, nci, orig_func);
2198     fn_pointer = (func_t)D2FPTR(orig_func);
2199     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
2200     if (return_data != NULL) {
2201                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2202                              VTABLE_set_pointer(interp, final_destination, return_data);
2203                           }
2204                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2205
2206 }
2207 static void
2208 pcf_i_pttttt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2209 {
2210     typedef int(* func_t)(void *, char *, char *, char *, char *, char *);
2211     func_t fn_pointer;
2212     void *orig_func;
2213     PMC * const ctx         = CURRENT_CONTEXT(interp);
2214     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2215     PMC *       ret_object  = PMCNULL;
2216     INTVAL return_data;
2217
2218     PMC *t_0;
2219     char *t_1; STRING *ts_1;
2220     char *t_2; STRING *ts_2;
2221     char *t_3; STRING *ts_3;
2222     char *t_4; STRING *ts_4;
2223     char *t_5; STRING *ts_5;
2224     UNUSED(return_data); /* Potentially unused, at least */
2225     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSSSS", &t_0, &ts_1, &ts_2, &ts_3, &ts_4, &ts_5);
2226     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);t_3 = STRING_IS_NULL(ts_3) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_3);t_4 = STRING_IS_NULL(ts_4) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_4);t_5 = STRING_IS_NULL(ts_5) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_5);
2227     GETATTR_NCI_orig_func(interp, nci, orig_func);
2228     fn_pointer = (func_t)D2FPTR(orig_func);
2229     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4, t_5);
2230     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2231
2232 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2233 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2234 if (!STRING_IS_NULL(ts_3)) Parrot_str_free_cstring(t_3);
2235 if (!STRING_IS_NULL(ts_4)) Parrot_str_free_cstring(t_4);
2236 if (!STRING_IS_NULL(ts_5)) Parrot_str_free_cstring(t_5);
2237 }
2238 static void
2239 pcf_c_pttt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2240 {
2241     typedef char(* func_t)(void *, char *, char *, char *);
2242     func_t fn_pointer;
2243     void *orig_func;
2244     PMC * const ctx         = CURRENT_CONTEXT(interp);
2245     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2246     PMC *       ret_object  = PMCNULL;
2247     INTVAL return_data;
2248
2249     PMC *t_0;
2250     char *t_1; STRING *ts_1;
2251     char *t_2; STRING *ts_2;
2252     char *t_3; STRING *ts_3;
2253     UNUSED(return_data); /* Potentially unused, at least */
2254     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSS", &t_0, &ts_1, &ts_2, &ts_3);
2255     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);t_3 = STRING_IS_NULL(ts_3) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_3);
2256     GETATTR_NCI_orig_func(interp, nci, orig_func);
2257     fn_pointer = (func_t)D2FPTR(orig_func);
2258     return_data =  (char)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3);
2259     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2260
2261 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2262 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2263 if (!STRING_IS_NULL(ts_3)) Parrot_str_free_cstring(t_3);
2264 }
2265 static void
2266 pcf_p_pttttiti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2267 {
2268     typedef void *(* func_t)(void *, char *, char *, char *, char *, int, char *, int);
2269     func_t fn_pointer;
2270     void *orig_func;
2271     PMC * const ctx         = CURRENT_CONTEXT(interp);
2272     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2273     PMC *       ret_object  = PMCNULL;
2274     void * return_data;
2275 PMC * final_destination = PMCNULL;
2276
2277     PMC *t_0;
2278     char *t_1; STRING *ts_1;
2279     char *t_2; STRING *ts_2;
2280     char *t_3; STRING *ts_3;
2281     char *t_4; STRING *ts_4;
2282     INTVAL t_5;
2283     char *t_6; STRING *ts_6;
2284     INTVAL t_7;
2285     UNUSED(return_data); /* Potentially unused, at least */
2286     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSSSISI", &t_0, &ts_1, &ts_2, &ts_3, &ts_4, &t_5, &ts_6, &t_7);
2287     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);t_3 = STRING_IS_NULL(ts_3) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_3);t_4 = STRING_IS_NULL(ts_4) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_4);t_6 = STRING_IS_NULL(ts_6) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_6);
2288     GETATTR_NCI_orig_func(interp, nci, orig_func);
2289     fn_pointer = (func_t)D2FPTR(orig_func);
2290     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4, t_5, t_6, t_7);
2291     if (return_data != NULL) {
2292                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2293                              VTABLE_set_pointer(interp, final_destination, return_data);
2294                           }
2295                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2296
2297 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2298 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2299 if (!STRING_IS_NULL(ts_3)) Parrot_str_free_cstring(t_3);
2300 if (!STRING_IS_NULL(ts_4)) Parrot_str_free_cstring(t_4);
2301
2302 if (!STRING_IS_NULL(ts_6)) Parrot_str_free_cstring(t_6);
2303
2304 }
2305 static void
2306 pcf_i_pt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2307 {
2308     typedef int(* func_t)(void *, char *);
2309     func_t fn_pointer;
2310     void *orig_func;
2311     PMC * const ctx         = CURRENT_CONTEXT(interp);
2312     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2313     PMC *       ret_object  = PMCNULL;
2314     INTVAL return_data;
2315
2316     PMC *t_0;
2317     char *t_1; STRING *ts_1;
2318     UNUSED(return_data); /* Potentially unused, at least */
2319     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &ts_1);
2320     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
2321     GETATTR_NCI_orig_func(interp, nci, orig_func);
2322     fn_pointer = (func_t)D2FPTR(orig_func);
2323     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
2324     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2325
2326 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2327 }
2328 static void
2329 pcf_i_ptl(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2330 {
2331     typedef int(* func_t)(void *, char *, long);
2332     func_t fn_pointer;
2333     void *orig_func;
2334     PMC * const ctx         = CURRENT_CONTEXT(interp);
2335     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2336     PMC *       ret_object  = PMCNULL;
2337     INTVAL return_data;
2338
2339     PMC *t_0;
2340     char *t_1; STRING *ts_1;
2341     INTVAL t_2;
2342     UNUSED(return_data); /* Potentially unused, at least */
2343     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_0, &ts_1, &t_2);
2344     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
2345     GETATTR_NCI_orig_func(interp, nci, orig_func);
2346     fn_pointer = (func_t)D2FPTR(orig_func);
2347     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
2348     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2349
2350 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2351
2352 }
2353 static void
2354 pcf_i_pi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2355 {
2356     typedef int(* func_t)(void *, int);
2357     func_t fn_pointer;
2358     void *orig_func;
2359     PMC * const ctx         = CURRENT_CONTEXT(interp);
2360     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2361     PMC *       ret_object  = PMCNULL;
2362     INTVAL return_data;
2363
2364     PMC *t_0;
2365     INTVAL t_1;
2366     UNUSED(return_data); /* Potentially unused, at least */
2367     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
2368
2369     GETATTR_NCI_orig_func(interp, nci, orig_func);
2370     fn_pointer = (func_t)D2FPTR(orig_func);
2371     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
2372     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2373
2374
2375 }
2376 static void
2377 pcf_i_pl(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2378 {
2379     typedef int(* func_t)(void *, long);
2380     func_t fn_pointer;
2381     void *orig_func;
2382     PMC * const ctx         = CURRENT_CONTEXT(interp);
2383     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2384     PMC *       ret_object  = PMCNULL;
2385     INTVAL return_data;
2386
2387     PMC *t_0;
2388     INTVAL t_1;
2389     UNUSED(return_data); /* Potentially unused, at least */
2390     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
2391
2392     GETATTR_NCI_orig_func(interp, nci, orig_func);
2393     fn_pointer = (func_t)D2FPTR(orig_func);
2394     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
2395     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2396
2397
2398 }
2399 static void
2400 pcf_l_(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2401 {
2402     typedef long(* func_t)(void);
2403     func_t fn_pointer;
2404     void *orig_func;
2405     PMC * const ctx         = CURRENT_CONTEXT(interp);
2406     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2407     PMC *       ret_object  = PMCNULL;
2408     INTVAL return_data;
2409
2410     ;
2411     UNUSED(return_data); /* Potentially unused, at least */
2412     GETATTR_NCI_orig_func(interp, nci, orig_func);
2413     fn_pointer = (func_t)D2FPTR(orig_func);
2414     return_data =  (long)(*fn_pointer)();
2415     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2416
2417 }
2418 static void
2419 pcf_p_pt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2420 {
2421     typedef void *(* func_t)(void *, char *);
2422     func_t fn_pointer;
2423     void *orig_func;
2424     PMC * const ctx         = CURRENT_CONTEXT(interp);
2425     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2426     PMC *       ret_object  = PMCNULL;
2427     void * return_data;
2428 PMC * final_destination = PMCNULL;
2429
2430     PMC *t_0;
2431     char *t_1; STRING *ts_1;
2432     UNUSED(return_data); /* Potentially unused, at least */
2433     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &ts_1);
2434     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
2435     GETATTR_NCI_orig_func(interp, nci, orig_func);
2436     fn_pointer = (func_t)D2FPTR(orig_func);
2437     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
2438     if (return_data != NULL) {
2439                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2440                              VTABLE_set_pointer(interp, final_destination, return_data);
2441                           }
2442                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2443
2444 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2445 }
2446 static void
2447 pcf_p_ptt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2448 {
2449     typedef void *(* func_t)(void *, char *, char *);
2450     func_t fn_pointer;
2451     void *orig_func;
2452     PMC * const ctx         = CURRENT_CONTEXT(interp);
2453     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2454     PMC *       ret_object  = PMCNULL;
2455     void * return_data;
2456 PMC * final_destination = PMCNULL;
2457
2458     PMC *t_0;
2459     char *t_1; STRING *ts_1;
2460     char *t_2; STRING *ts_2;
2461     UNUSED(return_data); /* Potentially unused, at least */
2462     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSS", &t_0, &ts_1, &ts_2);
2463     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
2464     GETATTR_NCI_orig_func(interp, nci, orig_func);
2465     fn_pointer = (func_t)D2FPTR(orig_func);
2466     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
2467     if (return_data != NULL) {
2468                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2469                              VTABLE_set_pointer(interp, final_destination, return_data);
2470                           }
2471                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2472
2473 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2474 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2475 }
2476 static void
2477 pcf_i_pit(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2478 {
2479     typedef int(* func_t)(void *, int, char *);
2480     func_t fn_pointer;
2481     void *orig_func;
2482     PMC * const ctx         = CURRENT_CONTEXT(interp);
2483     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2484     PMC *       ret_object  = PMCNULL;
2485     INTVAL return_data;
2486
2487     PMC *t_0;
2488     INTVAL t_1;
2489     char *t_2; STRING *ts_2;
2490     UNUSED(return_data); /* Potentially unused, at least */
2491     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIS", &t_0, &t_1, &ts_2);
2492     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
2493     GETATTR_NCI_orig_func(interp, nci, orig_func);
2494     fn_pointer = (func_t)D2FPTR(orig_func);
2495     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
2496     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2497
2498
2499 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2500 }
2501 static void
2502 pcf_p_pp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2503 {
2504     typedef void *(* func_t)(void *, void *);
2505     func_t fn_pointer;
2506     void *orig_func;
2507     PMC * const ctx         = CURRENT_CONTEXT(interp);
2508     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2509     PMC *       ret_object  = PMCNULL;
2510     void * return_data;
2511 PMC * final_destination = PMCNULL;
2512
2513     PMC *t_0;
2514     PMC *t_1;
2515     UNUSED(return_data); /* Potentially unused, at least */
2516     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
2517
2518     GETATTR_NCI_orig_func(interp, nci, orig_func);
2519     fn_pointer = (func_t)D2FPTR(orig_func);
2520     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
2521     if (return_data != NULL) {
2522                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2523                              VTABLE_set_pointer(interp, final_destination, return_data);
2524                           }
2525                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2526
2527
2528 }
2529 static void
2530 pcf_l_ttl(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2531 {
2532     typedef long(* func_t)(char *, char *, long);
2533     func_t fn_pointer;
2534     void *orig_func;
2535     PMC * const ctx         = CURRENT_CONTEXT(interp);
2536     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2537     PMC *       ret_object  = PMCNULL;
2538     INTVAL return_data;
2539
2540     char *t_0; STRING *ts_0;
2541     char *t_1; STRING *ts_1;
2542     INTVAL t_2;
2543     UNUSED(return_data); /* Potentially unused, at least */
2544     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SSI", &ts_0, &ts_1, &t_2);
2545     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
2546     GETATTR_NCI_orig_func(interp, nci, orig_func);
2547     fn_pointer = (func_t)D2FPTR(orig_func);
2548     return_data =  (long)(*fn_pointer)(t_0, t_1, t_2);
2549     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2550     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
2551 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2552
2553 }
2554 static void
2555 pcf_l_pttl(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2556 {
2557     typedef long(* func_t)(void *, char *, char *, long);
2558     func_t fn_pointer;
2559     void *orig_func;
2560     PMC * const ctx         = CURRENT_CONTEXT(interp);
2561     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2562     PMC *       ret_object  = PMCNULL;
2563     INTVAL return_data;
2564
2565     PMC *t_0;
2566     char *t_1; STRING *ts_1;
2567     char *t_2; STRING *ts_2;
2568     INTVAL t_3;
2569     UNUSED(return_data); /* Potentially unused, at least */
2570     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSI", &t_0, &ts_1, &ts_2, &t_3);
2571     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
2572     GETATTR_NCI_orig_func(interp, nci, orig_func);
2573     fn_pointer = (func_t)D2FPTR(orig_func);
2574     return_data =  (long)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3);
2575     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2576
2577 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2578 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2579
2580 }
2581 static void
2582 pcf_v_t(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2583 {
2584     typedef void(* func_t)(char *);
2585     func_t fn_pointer;
2586     void *orig_func;
2587     PMC * const ctx         = CURRENT_CONTEXT(interp);
2588     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2589     PMC *       ret_object  = PMCNULL;
2590     void * return_data;
2591
2592     char *t_0; STRING *ts_0;
2593     UNUSED(return_data); /* Potentially unused, at least */
2594     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
2595     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);
2596     GETATTR_NCI_orig_func(interp, nci, orig_func);
2597     fn_pointer = (func_t)D2FPTR(orig_func);
2598      (*fn_pointer)(t_0);
2599
2600     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
2601 }
2602 static void
2603 pcf_p_pttttitl(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2604 {
2605     typedef void *(* func_t)(void *, char *, char *, char *, char *, int, char *, long);
2606     func_t fn_pointer;
2607     void *orig_func;
2608     PMC * const ctx         = CURRENT_CONTEXT(interp);
2609     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2610     PMC *       ret_object  = PMCNULL;
2611     void * return_data;
2612 PMC * final_destination = PMCNULL;
2613
2614     PMC *t_0;
2615     char *t_1; STRING *ts_1;
2616     char *t_2; STRING *ts_2;
2617     char *t_3; STRING *ts_3;
2618     char *t_4; STRING *ts_4;
2619     INTVAL t_5;
2620     char *t_6; STRING *ts_6;
2621     INTVAL t_7;
2622     UNUSED(return_data); /* Potentially unused, at least */
2623     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSSSISI", &t_0, &ts_1, &ts_2, &ts_3, &ts_4, &t_5, &ts_6, &t_7);
2624     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);t_3 = STRING_IS_NULL(ts_3) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_3);t_4 = STRING_IS_NULL(ts_4) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_4);t_6 = STRING_IS_NULL(ts_6) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_6);
2625     GETATTR_NCI_orig_func(interp, nci, orig_func);
2626     fn_pointer = (func_t)D2FPTR(orig_func);
2627     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4, t_5, t_6, t_7);
2628     if (return_data != NULL) {
2629                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2630                              VTABLE_set_pointer(interp, final_destination, return_data);
2631                           }
2632                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2633
2634 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2635 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2636 if (!STRING_IS_NULL(ts_3)) Parrot_str_free_cstring(t_3);
2637 if (!STRING_IS_NULL(ts_4)) Parrot_str_free_cstring(t_4);
2638
2639 if (!STRING_IS_NULL(ts_6)) Parrot_str_free_cstring(t_6);
2640
2641 }
2642 static void
2643 pcf_p_tiB3P(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2644 {
2645     typedef void *(* func_t)(char *, int, char **, int *, PMC *);
2646     func_t fn_pointer;
2647     void *orig_func;
2648     PMC * const ctx         = CURRENT_CONTEXT(interp);
2649     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2650     PMC *       ret_object  = PMCNULL;
2651     void * return_data;
2652 PMC * final_destination = PMCNULL;
2653
2654     char *t_0; STRING *ts_0;
2655     INTVAL t_1;
2656     char *t_2; STRING *ts_2;
2657     PMC *t_3; int i_3;
2658     PMC * t_4;
2659     UNUSED(return_data); /* Potentially unused, at least */
2660     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SISPP", &ts_0, &t_1, &ts_2, &t_3, &t_4);
2661     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);t_2 = STRING_IS_NULL(ts_2) ? (char *) NULL : Parrot_str_to_cstring(interp, ts_2);i_3 = VTABLE_get_integer(interp, t_3);
2662     GETATTR_NCI_orig_func(interp, nci, orig_func);
2663     fn_pointer = (func_t)D2FPTR(orig_func);
2664     return_data =  (void *)(*fn_pointer)(t_0, t_1, &t_2, &i_3, t_4);
2665     if (return_data != NULL) {
2666                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2667                              VTABLE_set_pointer(interp, final_destination, return_data);
2668                           }
2669                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2670     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
2671
2672 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2673 VTABLE_set_integer_native(interp, t_3, i_3);
2674
2675 }
2676 static void
2677 pcf_p_tip3P(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2678 {
2679     typedef void *(* func_t)(char *, int, void *, int *, PMC *);
2680     func_t fn_pointer;
2681     void *orig_func;
2682     PMC * const ctx         = CURRENT_CONTEXT(interp);
2683     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2684     PMC *       ret_object  = PMCNULL;
2685     void * return_data;
2686 PMC * final_destination = PMCNULL;
2687
2688     char *t_0; STRING *ts_0;
2689     INTVAL t_1;
2690     PMC *t_2;
2691     PMC *t_3; int i_3;
2692     PMC * t_4;
2693     UNUSED(return_data); /* Potentially unused, at least */
2694     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SIPPP", &ts_0, &t_1, &t_2, &t_3, &t_4);
2695     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);i_3 = VTABLE_get_integer(interp, t_3);
2696     GETATTR_NCI_orig_func(interp, nci, orig_func);
2697     fn_pointer = (func_t)D2FPTR(orig_func);
2698     return_data =  (void *)(*fn_pointer)(t_0, t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), &i_3, t_4);
2699     if (return_data != NULL) {
2700                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2701                              VTABLE_set_pointer(interp, final_destination, return_data);
2702                           }
2703                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2704     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
2705
2706
2707 VTABLE_set_integer_native(interp, t_3, i_3);
2708
2709 }
2710 static void
2711 pcf_i_pPtiiipi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2712 {
2713     typedef int(* func_t)(void *, PMC *, char *, int, int, int, void *, int);
2714     func_t fn_pointer;
2715     void *orig_func;
2716     PMC * const ctx         = CURRENT_CONTEXT(interp);
2717     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2718     PMC *       ret_object  = PMCNULL;
2719     INTVAL return_data;
2720
2721     PMC *t_0;
2722     PMC * t_1;
2723     char *t_2; STRING *ts_2;
2724     INTVAL t_3;
2725     INTVAL t_4;
2726     INTVAL t_5;
2727     PMC *t_6;
2728     INTVAL t_7;
2729     UNUSED(return_data); /* Potentially unused, at least */
2730     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPSIIIPI", &t_0, &t_1, &ts_2, &t_3, &t_4, &t_5, &t_6, &t_7);
2731     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
2732     GETATTR_NCI_orig_func(interp, nci, orig_func);
2733     fn_pointer = (func_t)D2FPTR(orig_func);
2734     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4, t_5, PMC_IS_NULL((PMC*)t_6) ? (void *)NULL : VTABLE_get_pointer(interp, t_6), t_7);
2735     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2736
2737
2738 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2739
2740
2741
2742
2743
2744 }
2745 static void
2746 pcf_i_tpiibi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2747 {
2748     typedef int(* func_t)(char *, void *, int, int, void *, int);
2749     func_t fn_pointer;
2750     void *orig_func;
2751     PMC * const ctx         = CURRENT_CONTEXT(interp);
2752     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2753     PMC *       ret_object  = PMCNULL;
2754     INTVAL return_data;
2755
2756     char *t_0; STRING *ts_0;
2757     PMC *t_1;
2758     INTVAL t_2;
2759     INTVAL t_3;
2760     STRING *t_4;
2761     INTVAL t_5;
2762     UNUSED(return_data); /* Potentially unused, at least */
2763     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SPIISI", &ts_0, &t_1, &t_2, &t_3, &t_4, &t_5);
2764     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);
2765     GETATTR_NCI_orig_func(interp, nci, orig_func);
2766     fn_pointer = (func_t)D2FPTR(orig_func);
2767     return_data =  (int)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3, Buffer_bufstart(t_4), t_5);
2768     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
2769     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
2770
2771
2772
2773
2774
2775 }
2776 static void
2777 pcf_p_ptippppi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2778 {
2779     typedef void *(* func_t)(void *, char *, int, void *, void *, void *, void *, int);
2780     func_t fn_pointer;
2781     void *orig_func;
2782     PMC * const ctx         = CURRENT_CONTEXT(interp);
2783     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2784     PMC *       ret_object  = PMCNULL;
2785     void * return_data;
2786 PMC * final_destination = PMCNULL;
2787
2788     PMC *t_0;
2789     char *t_1; STRING *ts_1;
2790     INTVAL t_2;
2791     PMC *t_3;
2792     PMC *t_4;
2793     PMC *t_5;
2794     PMC *t_6;
2795     INTVAL t_7;
2796     UNUSED(return_data); /* Potentially unused, at least */
2797     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSIPPPPI", &t_0, &ts_1, &t_2, &t_3, &t_4, &t_5, &t_6, &t_7);
2798     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
2799     GETATTR_NCI_orig_func(interp, nci, orig_func);
2800     fn_pointer = (func_t)D2FPTR(orig_func);
2801     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3), PMC_IS_NULL((PMC*)t_4) ? (void *)NULL : VTABLE_get_pointer(interp, t_4), PMC_IS_NULL((PMC*)t_5) ? (void *)NULL : VTABLE_get_pointer(interp, t_5), PMC_IS_NULL((PMC*)t_6) ? (void *)NULL : VTABLE_get_pointer(interp, t_6), t_7);
2802     if (return_data != NULL) {
2803                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2804                              VTABLE_set_pointer(interp, final_destination, return_data);
2805                           }
2806                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2807
2808 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2809
2810
2811
2812
2813
2814
2815 }
2816 static void
2817 pcf_p_pi33ipi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2818 {
2819     typedef void *(* func_t)(void *, int, int *, int *, int, void *, int);
2820     func_t fn_pointer;
2821     void *orig_func;
2822     PMC * const ctx         = CURRENT_CONTEXT(interp);
2823     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2824     PMC *       ret_object  = PMCNULL;
2825     void * return_data;
2826 PMC * final_destination = PMCNULL;
2827
2828     PMC *t_0;
2829     INTVAL t_1;
2830     PMC *t_2; int i_2;
2831     PMC *t_3; int i_3;
2832     INTVAL t_4;
2833     PMC *t_5;
2834     INTVAL t_6;
2835     UNUSED(return_data); /* Potentially unused, at least */
2836     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIPPIPI", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6);
2837     i_2 = VTABLE_get_integer(interp, t_2);i_3 = VTABLE_get_integer(interp, t_3);
2838     GETATTR_NCI_orig_func(interp, nci, orig_func);
2839     fn_pointer = (func_t)D2FPTR(orig_func);
2840     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, &i_2, &i_3, t_4, PMC_IS_NULL((PMC*)t_5) ? (void *)NULL : VTABLE_get_pointer(interp, t_5), t_6);
2841     if (return_data != NULL) {
2842                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2843                              VTABLE_set_pointer(interp, final_destination, return_data);
2844                           }
2845                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2846
2847
2848 VTABLE_set_integer_native(interp, t_2, i_2);
2849 VTABLE_set_integer_native(interp, t_3, i_3);
2850
2851
2852
2853 }
2854 static void
2855 pcf_p_pttip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2856 {
2857     typedef void *(* func_t)(void *, char *, char *, int, void *);
2858     func_t fn_pointer;
2859     void *orig_func;
2860     PMC * const ctx         = CURRENT_CONTEXT(interp);
2861     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2862     PMC *       ret_object  = PMCNULL;
2863     void * return_data;
2864 PMC * final_destination = PMCNULL;
2865
2866     PMC *t_0;
2867     char *t_1; STRING *ts_1;
2868     char *t_2; STRING *ts_2;
2869     INTVAL t_3;
2870     PMC *t_4;
2871     UNUSED(return_data); /* Potentially unused, at least */
2872     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSIP", &t_0, &ts_1, &ts_2, &t_3, &t_4);
2873     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
2874     GETATTR_NCI_orig_func(interp, nci, orig_func);
2875     fn_pointer = (func_t)D2FPTR(orig_func);
2876     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, PMC_IS_NULL((PMC*)t_4) ? (void *)NULL : VTABLE_get_pointer(interp, t_4));
2877     if (return_data != NULL) {
2878                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2879                              VTABLE_set_pointer(interp, final_destination, return_data);
2880                           }
2881                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2882
2883 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2884 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
2885
2886
2887 }
2888 static void
2889 pcf_p_ptipppi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2890 {
2891     typedef void *(* func_t)(void *, char *, int, void *, void *, void *, int);
2892     func_t fn_pointer;
2893     void *orig_func;
2894     PMC * const ctx         = CURRENT_CONTEXT(interp);
2895     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2896     PMC *       ret_object  = PMCNULL;
2897     void * return_data;
2898 PMC * final_destination = PMCNULL;
2899
2900     PMC *t_0;
2901     char *t_1; STRING *ts_1;
2902     INTVAL t_2;
2903     PMC *t_3;
2904     PMC *t_4;
2905     PMC *t_5;
2906     INTVAL t_6;
2907     UNUSED(return_data); /* Potentially unused, at least */
2908     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSIPPPI", &t_0, &ts_1, &t_2, &t_3, &t_4, &t_5, &t_6);
2909     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
2910     GETATTR_NCI_orig_func(interp, nci, orig_func);
2911     fn_pointer = (func_t)D2FPTR(orig_func);
2912     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3), PMC_IS_NULL((PMC*)t_4) ? (void *)NULL : VTABLE_get_pointer(interp, t_4), PMC_IS_NULL((PMC*)t_5) ? (void *)NULL : VTABLE_get_pointer(interp, t_5), t_6);
2913     if (return_data != NULL) {
2914                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2915                              VTABLE_set_pointer(interp, final_destination, return_data);
2916                           }
2917                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2918
2919 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
2920
2921
2922
2923
2924
2925 }
2926 static void
2927 pcf_p_ppP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2928 {
2929     typedef void *(* func_t)(void *, void *, PMC *);
2930     func_t fn_pointer;
2931     void *orig_func;
2932     PMC * const ctx         = CURRENT_CONTEXT(interp);
2933     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2934     PMC *       ret_object  = PMCNULL;
2935     void * return_data;
2936 PMC * final_destination = PMCNULL;
2937
2938     PMC *t_0;
2939     PMC *t_1;
2940     PMC * t_2;
2941     UNUSED(return_data); /* Potentially unused, at least */
2942     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
2943
2944     GETATTR_NCI_orig_func(interp, nci, orig_func);
2945     fn_pointer = (func_t)D2FPTR(orig_func);
2946     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2);
2947     if (return_data != NULL) {
2948                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2949                              VTABLE_set_pointer(interp, final_destination, return_data);
2950                           }
2951                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2952
2953
2954
2955 }
2956 static void
2957 pcf_p_iiil(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2958 {
2959     typedef void *(* func_t)(int, int, int, long);
2960     func_t fn_pointer;
2961     void *orig_func;
2962     PMC * const ctx         = CURRENT_CONTEXT(interp);
2963     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2964     PMC *       ret_object  = PMCNULL;
2965     void * return_data;
2966 PMC * final_destination = PMCNULL;
2967
2968     INTVAL t_0;
2969     INTVAL t_1;
2970     INTVAL t_2;
2971     INTVAL t_3;
2972     UNUSED(return_data); /* Potentially unused, at least */
2973     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
2974
2975     GETATTR_NCI_orig_func(interp, nci, orig_func);
2976     fn_pointer = (func_t)D2FPTR(orig_func);
2977     return_data =  (void *)(*fn_pointer)(t_0, t_1, t_2, t_3);
2978     if (return_data != NULL) {
2979                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
2980                              VTABLE_set_pointer(interp, final_destination, return_data);
2981                           }
2982                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
2983
2984
2985
2986
2987 }
2988 static void
2989 pcf_i_ppl(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
2990 {
2991     typedef int(* func_t)(void *, void *, long);
2992     func_t fn_pointer;
2993     void *orig_func;
2994     PMC * const ctx         = CURRENT_CONTEXT(interp);
2995     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
2996     PMC *       ret_object  = PMCNULL;
2997     INTVAL return_data;
2998
2999     PMC *t_0;
3000     PMC *t_1;
3001     INTVAL t_2;
3002     UNUSED(return_data); /* Potentially unused, at least */
3003     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPI", &t_0, &t_1, &t_2);
3004
3005     GETATTR_NCI_orig_func(interp, nci, orig_func);
3006     fn_pointer = (func_t)D2FPTR(orig_func);
3007     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2);
3008     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3009
3010
3011
3012 }
3013 static void
3014 pcf_v_pip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3015 {
3016     typedef void(* func_t)(void *, int, void *);
3017     func_t fn_pointer;
3018     void *orig_func;
3019     PMC * const ctx         = CURRENT_CONTEXT(interp);
3020     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3021     PMC *       ret_object  = PMCNULL;
3022     void * return_data;
3023
3024     PMC *t_0;
3025     INTVAL t_1;
3026     PMC *t_2;
3027     UNUSED(return_data); /* Potentially unused, at least */
3028     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_0, &t_1, &t_2);
3029
3030     GETATTR_NCI_orig_func(interp, nci, orig_func);
3031     fn_pointer = (func_t)D2FPTR(orig_func);
3032      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
3033
3034
3035
3036
3037 }
3038 static void
3039 pcf_p_pti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3040 {
3041     typedef void *(* func_t)(void *, char *, int);
3042     func_t fn_pointer;
3043     void *orig_func;
3044     PMC * const ctx         = CURRENT_CONTEXT(interp);
3045     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3046     PMC *       ret_object  = PMCNULL;
3047     void * return_data;
3048 PMC * final_destination = PMCNULL;
3049
3050     PMC *t_0;
3051     char *t_1; STRING *ts_1;
3052     INTVAL t_2;
3053     UNUSED(return_data); /* Potentially unused, at least */
3054     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_0, &ts_1, &t_2);
3055     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
3056     GETATTR_NCI_orig_func(interp, nci, orig_func);
3057     fn_pointer = (func_t)D2FPTR(orig_func);
3058     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
3059     if (return_data != NULL) {
3060                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
3061                              VTABLE_set_pointer(interp, final_destination, return_data);
3062                           }
3063                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
3064
3065 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
3066
3067 }
3068 static void
3069 pcf_i_ppp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3070 {
3071     typedef int(* func_t)(void *, void *, void *);
3072     func_t fn_pointer;
3073     void *orig_func;
3074     PMC * const ctx         = CURRENT_CONTEXT(interp);
3075     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3076     PMC *       ret_object  = PMCNULL;
3077     INTVAL return_data;
3078
3079     PMC *t_0;
3080     PMC *t_1;
3081     PMC *t_2;
3082     UNUSED(return_data); /* Potentially unused, at least */
3083     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
3084
3085     GETATTR_NCI_orig_func(interp, nci, orig_func);
3086     fn_pointer = (func_t)D2FPTR(orig_func);
3087     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
3088     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3089
3090
3091
3092 }
3093 static void
3094 pcf_p_ptii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3095 {
3096     typedef void *(* func_t)(void *, char *, int, int);
3097     func_t fn_pointer;
3098     void *orig_func;
3099     PMC * const ctx         = CURRENT_CONTEXT(interp);
3100     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3101     PMC *       ret_object  = PMCNULL;
3102     void * return_data;
3103 PMC * final_destination = PMCNULL;
3104
3105     PMC *t_0;
3106     char *t_1; STRING *ts_1;
3107     INTVAL t_2;
3108     INTVAL t_3;
3109     UNUSED(return_data); /* Potentially unused, at least */
3110     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSII", &t_0, &ts_1, &t_2, &t_3);
3111     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
3112     GETATTR_NCI_orig_func(interp, nci, orig_func);
3113     fn_pointer = (func_t)D2FPTR(orig_func);
3114     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3);
3115     if (return_data != NULL) {
3116                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
3117                              VTABLE_set_pointer(interp, final_destination, return_data);
3118                           }
3119                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
3120
3121 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
3122
3123
3124 }
3125 static void
3126 pcf_p_ti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3127 {
3128     typedef void *(* func_t)(char *, int);
3129     func_t fn_pointer;
3130     void *orig_func;
3131     PMC * const ctx         = CURRENT_CONTEXT(interp);
3132     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3133     PMC *       ret_object  = PMCNULL;
3134     void * return_data;
3135 PMC * final_destination = PMCNULL;
3136
3137     char *t_0; STRING *ts_0;
3138     INTVAL t_1;
3139     UNUSED(return_data); /* Potentially unused, at least */
3140     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SI", &ts_0, &t_1);
3141     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);
3142     GETATTR_NCI_orig_func(interp, nci, orig_func);
3143     fn_pointer = (func_t)D2FPTR(orig_func);
3144     return_data =  (void *)(*fn_pointer)(t_0, t_1);
3145     if (return_data != NULL) {
3146                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
3147                              VTABLE_set_pointer(interp, final_destination, return_data);
3148                           }
3149                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
3150     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
3151
3152 }
3153 static void
3154 pcf_p_ptp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3155 {
3156     typedef void *(* func_t)(void *, char *, void *);
3157     func_t fn_pointer;
3158     void *orig_func;
3159     PMC * const ctx         = CURRENT_CONTEXT(interp);
3160     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3161     PMC *       ret_object  = PMCNULL;
3162     void * return_data;
3163 PMC * final_destination = PMCNULL;
3164
3165     PMC *t_0;
3166     char *t_1; STRING *ts_1;
3167     PMC *t_2;
3168     UNUSED(return_data); /* Potentially unused, at least */
3169     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSP", &t_0, &ts_1, &t_2);
3170     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
3171     GETATTR_NCI_orig_func(interp, nci, orig_func);
3172     fn_pointer = (func_t)D2FPTR(orig_func);
3173     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
3174     if (return_data != NULL) {
3175                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
3176                              VTABLE_set_pointer(interp, final_destination, return_data);
3177                           }
3178                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
3179
3180 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
3181
3182 }
3183 static void
3184 pcf_i_pt33(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3185 {
3186     typedef int(* func_t)(void *, char *, int *, int *);
3187     func_t fn_pointer;
3188     void *orig_func;
3189     PMC * const ctx         = CURRENT_CONTEXT(interp);
3190     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3191     PMC *       ret_object  = PMCNULL;
3192     INTVAL return_data;
3193
3194     PMC *t_0;
3195     char *t_1; STRING *ts_1;
3196     PMC *t_2; int i_2;
3197     PMC *t_3; int i_3;
3198     UNUSED(return_data); /* Potentially unused, at least */
3199     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSPP", &t_0, &ts_1, &t_2, &t_3);
3200     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);i_2 = VTABLE_get_integer(interp, t_2);i_3 = VTABLE_get_integer(interp, t_3);
3201     GETATTR_NCI_orig_func(interp, nci, orig_func);
3202     fn_pointer = (func_t)D2FPTR(orig_func);
3203     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, &i_2, &i_3);
3204     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3205
3206 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
3207 VTABLE_set_integer_native(interp, t_2, i_2);
3208 VTABLE_set_integer_native(interp, t_3, i_3);
3209 }
3210 static void
3211 pcf_c_(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3212 {
3213     typedef char(* func_t)(void);
3214     func_t fn_pointer;
3215     void *orig_func;
3216     PMC * const ctx         = CURRENT_CONTEXT(interp);
3217     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3218     PMC *       ret_object  = PMCNULL;
3219     INTVAL return_data;
3220
3221     ;
3222     UNUSED(return_data); /* Potentially unused, at least */
3223     GETATTR_NCI_orig_func(interp, nci, orig_func);
3224     fn_pointer = (func_t)D2FPTR(orig_func);
3225     return_data =  (char)(*fn_pointer)();
3226     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3227
3228 }
3229 static void
3230 pcf_c_pi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3231 {
3232     typedef char(* func_t)(void *, int);
3233     func_t fn_pointer;
3234     void *orig_func;
3235     PMC * const ctx         = CURRENT_CONTEXT(interp);
3236     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3237     PMC *       ret_object  = PMCNULL;
3238     INTVAL return_data;
3239
3240     PMC *t_0;
3241     INTVAL t_1;
3242     UNUSED(return_data); /* Potentially unused, at least */
3243     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
3244
3245     GETATTR_NCI_orig_func(interp, nci, orig_func);
3246     fn_pointer = (func_t)D2FPTR(orig_func);
3247     return_data =  (char)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
3248     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3249
3250
3251 }
3252 static void
3253 pcf_d_(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3254 {
3255     typedef double(* func_t)(void);
3256     func_t fn_pointer;
3257     void *orig_func;
3258     PMC * const ctx         = CURRENT_CONTEXT(interp);
3259     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3260     PMC *       ret_object  = PMCNULL;
3261     FLOATVAL return_data;
3262
3263     ;
3264     UNUSED(return_data); /* Potentially unused, at least */
3265     GETATTR_NCI_orig_func(interp, nci, orig_func);
3266     fn_pointer = (func_t)D2FPTR(orig_func);
3267     return_data =  (double)(*fn_pointer)();
3268     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
3269
3270 }
3271 static void
3272 pcf_d_d(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3273 {
3274     typedef double(* func_t)(double);
3275     func_t fn_pointer;
3276     void *orig_func;
3277     PMC * const ctx         = CURRENT_CONTEXT(interp);
3278     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3279     PMC *       ret_object  = PMCNULL;
3280     FLOATVAL return_data;
3281
3282     FLOATVAL t_0;
3283     UNUSED(return_data); /* Potentially unused, at least */
3284     Parrot_pcc_fill_params_from_c_args(interp, call_object, "N", &t_0);
3285
3286     GETATTR_NCI_orig_func(interp, nci, orig_func);
3287     fn_pointer = (func_t)D2FPTR(orig_func);
3288     return_data =  (double)(*fn_pointer)(t_0);
3289     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
3290
3291 }
3292 static void
3293 pcf_f_(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3294 {
3295     typedef float(* func_t)(void);
3296     func_t fn_pointer;
3297     void *orig_func;
3298     PMC * const ctx         = CURRENT_CONTEXT(interp);
3299     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3300     PMC *       ret_object  = PMCNULL;
3301     FLOATVAL return_data;
3302
3303     ;
3304     UNUSED(return_data); /* Potentially unused, at least */
3305     GETATTR_NCI_orig_func(interp, nci, orig_func);
3306     fn_pointer = (func_t)D2FPTR(orig_func);
3307     return_data =  (float)(*fn_pointer)();
3308     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
3309
3310 }
3311 static void
3312 pcf_f_ff(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3313 {
3314     typedef float(* func_t)(float, float);
3315     func_t fn_pointer;
3316     void *orig_func;
3317     PMC * const ctx         = CURRENT_CONTEXT(interp);
3318     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3319     PMC *       ret_object  = PMCNULL;
3320     FLOATVAL return_data;
3321
3322     FLOATVAL t_0;
3323     FLOATVAL t_1;
3324     UNUSED(return_data); /* Potentially unused, at least */
3325     Parrot_pcc_fill_params_from_c_args(interp, call_object, "NN", &t_0, &t_1);
3326
3327     GETATTR_NCI_orig_func(interp, nci, orig_func);
3328     fn_pointer = (func_t)D2FPTR(orig_func);
3329     return_data =  (float)(*fn_pointer)(t_0, t_1);
3330     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
3331
3332
3333 }
3334 static void
3335 pcf_f_is(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3336 {
3337     typedef float(* func_t)(int, short);
3338     func_t fn_pointer;
3339     void *orig_func;
3340     PMC * const ctx         = CURRENT_CONTEXT(interp);
3341     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3342     PMC *       ret_object  = PMCNULL;
3343     FLOATVAL return_data;
3344
3345     INTVAL t_0;
3346     INTVAL t_1;
3347     UNUSED(return_data); /* Potentially unused, at least */
3348     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
3349
3350     GETATTR_NCI_orig_func(interp, nci, orig_func);
3351     fn_pointer = (func_t)D2FPTR(orig_func);
3352     return_data =  (float)(*fn_pointer)(t_0, t_1);
3353     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
3354
3355
3356 }
3357 static void
3358 pcf_i_b(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3359 {
3360     typedef int(* func_t)(void *);
3361     func_t fn_pointer;
3362     void *orig_func;
3363     PMC * const ctx         = CURRENT_CONTEXT(interp);
3364     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3365     PMC *       ret_object  = PMCNULL;
3366     INTVAL return_data;
3367
3368     STRING *t_0;
3369     UNUSED(return_data); /* Potentially unused, at least */
3370     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &t_0);
3371
3372     GETATTR_NCI_orig_func(interp, nci, orig_func);
3373     fn_pointer = (func_t)D2FPTR(orig_func);
3374     return_data =  (int)(*fn_pointer)(Buffer_bufstart(t_0));
3375     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3376
3377 }
3378 static void
3379 pcf_i_d(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3380 {
3381     typedef int(* func_t)(double);
3382     func_t fn_pointer;
3383     void *orig_func;
3384     PMC * const ctx         = CURRENT_CONTEXT(interp);
3385     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3386     PMC *       ret_object  = PMCNULL;
3387     INTVAL return_data;
3388
3389     FLOATVAL t_0;
3390     UNUSED(return_data); /* Potentially unused, at least */
3391     Parrot_pcc_fill_params_from_c_args(interp, call_object, "N", &t_0);
3392
3393     GETATTR_NCI_orig_func(interp, nci, orig_func);
3394     fn_pointer = (func_t)D2FPTR(orig_func);
3395     return_data =  (int)(*fn_pointer)(t_0);
3396     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3397
3398 }
3399 static void
3400 pcf_i_i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3401 {
3402     typedef int(* func_t)(int);
3403     func_t fn_pointer;
3404     void *orig_func;
3405     PMC * const ctx         = CURRENT_CONTEXT(interp);
3406     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3407     PMC *       ret_object  = PMCNULL;
3408     INTVAL return_data;
3409
3410     INTVAL t_0;
3411     UNUSED(return_data); /* Potentially unused, at least */
3412     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
3413
3414     GETATTR_NCI_orig_func(interp, nci, orig_func);
3415     fn_pointer = (func_t)D2FPTR(orig_func);
3416     return_data =  (int)(*fn_pointer)(t_0);
3417     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3418
3419 }
3420 static void
3421 pcf_i_ii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3422 {
3423     typedef int(* func_t)(int, int);
3424     func_t fn_pointer;
3425     void *orig_func;
3426     PMC * const ctx         = CURRENT_CONTEXT(interp);
3427     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3428     PMC *       ret_object  = PMCNULL;
3429     INTVAL return_data;
3430
3431     INTVAL t_0;
3432     INTVAL t_1;
3433     UNUSED(return_data); /* Potentially unused, at least */
3434     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
3435
3436     GETATTR_NCI_orig_func(interp, nci, orig_func);
3437     fn_pointer = (func_t)D2FPTR(orig_func);
3438     return_data =  (int)(*fn_pointer)(t_0, t_1);
3439     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3440
3441
3442 }
3443 static void
3444 pcf_i_ii4(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3445 {
3446     typedef int(* func_t)(int, int, long *);
3447     func_t fn_pointer;
3448     void *orig_func;
3449     PMC * const ctx         = CURRENT_CONTEXT(interp);
3450     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3451     PMC *       ret_object  = PMCNULL;
3452     INTVAL return_data;
3453
3454     INTVAL t_0;
3455     INTVAL t_1;
3456     PMC *t_2; long i_2;
3457     UNUSED(return_data); /* Potentially unused, at least */
3458     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIP", &t_0, &t_1, &t_2);
3459     i_2 = VTABLE_get_integer(interp, t_2);
3460     GETATTR_NCI_orig_func(interp, nci, orig_func);
3461     fn_pointer = (func_t)D2FPTR(orig_func);
3462     return_data =  (int)(*fn_pointer)(t_0, t_1, &i_2);
3463     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3464
3465
3466 VTABLE_set_integer_native(interp, t_2, i_2);
3467 }
3468 static void
3469 pcf_i_ii4i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3470 {
3471     typedef int(* func_t)(int, int, long *, int);
3472     func_t fn_pointer;
3473     void *orig_func;
3474     PMC * const ctx         = CURRENT_CONTEXT(interp);
3475     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3476     PMC *       ret_object  = PMCNULL;
3477     INTVAL return_data;
3478
3479     INTVAL t_0;
3480     INTVAL t_1;
3481     PMC *t_2; long i_2;
3482     INTVAL t_3;
3483     UNUSED(return_data); /* Potentially unused, at least */
3484     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIPI", &t_0, &t_1, &t_2, &t_3);
3485     i_2 = VTABLE_get_integer(interp, t_2);
3486     GETATTR_NCI_orig_func(interp, nci, orig_func);
3487     fn_pointer = (func_t)D2FPTR(orig_func);
3488     return_data =  (int)(*fn_pointer)(t_0, t_1, &i_2, t_3);
3489     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3490
3491
3492 VTABLE_set_integer_native(interp, t_2, i_2);
3493
3494 }
3495 static void
3496 pcf_i_iiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3497 {
3498     typedef int(* func_t)(int, int, int, int);
3499     func_t fn_pointer;
3500     void *orig_func;
3501     PMC * const ctx         = CURRENT_CONTEXT(interp);
3502     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3503     PMC *       ret_object  = PMCNULL;
3504     INTVAL return_data;
3505
3506     INTVAL t_0;
3507     INTVAL t_1;
3508     INTVAL t_2;
3509     INTVAL t_3;
3510     UNUSED(return_data); /* Potentially unused, at least */
3511     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
3512
3513     GETATTR_NCI_orig_func(interp, nci, orig_func);
3514     fn_pointer = (func_t)D2FPTR(orig_func);
3515     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2, t_3);
3516     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3517
3518
3519
3520
3521 }
3522 static void
3523 pcf_i_iiilsp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3524 {
3525     typedef int(* func_t)(int, int, int, long, short, void *);
3526     func_t fn_pointer;
3527     void *orig_func;
3528     PMC * const ctx         = CURRENT_CONTEXT(interp);
3529     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3530     PMC *       ret_object  = PMCNULL;
3531     INTVAL return_data;
3532
3533     INTVAL t_0;
3534     INTVAL t_1;
3535     INTVAL t_2;
3536     INTVAL t_3;
3537     INTVAL t_4;
3538     PMC *t_5;
3539     UNUSED(return_data); /* Potentially unused, at least */
3540     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIIIP", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5);
3541
3542     GETATTR_NCI_orig_func(interp, nci, orig_func);
3543     fn_pointer = (func_t)D2FPTR(orig_func);
3544     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2, t_3, t_4, PMC_IS_NULL((PMC*)t_5) ? (void *)NULL : VTABLE_get_pointer(interp, t_5));
3545     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3546
3547
3548
3549
3550
3551
3552 }
3553 static void
3554 pcf_i_iil(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3555 {
3556     typedef int(* func_t)(int, int, long);
3557     func_t fn_pointer;
3558     void *orig_func;
3559     PMC * const ctx         = CURRENT_CONTEXT(interp);
3560     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3561     PMC *       ret_object  = PMCNULL;
3562     INTVAL return_data;
3563
3564     INTVAL t_0;
3565     INTVAL t_1;
3566     INTVAL t_2;
3567     UNUSED(return_data); /* Potentially unused, at least */
3568     Parrot_pcc_fill_params_from_c_args(interp, call_object, "III", &t_0, &t_1, &t_2);
3569
3570     GETATTR_NCI_orig_func(interp, nci, orig_func);
3571     fn_pointer = (func_t)D2FPTR(orig_func);
3572     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2);
3573     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3574
3575
3576
3577 }
3578 static void
3579 pcf_i_iili(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3580 {
3581     typedef int(* func_t)(int, int, long, int);
3582     func_t fn_pointer;
3583     void *orig_func;
3584     PMC * const ctx         = CURRENT_CONTEXT(interp);
3585     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3586     PMC *       ret_object  = PMCNULL;
3587     INTVAL return_data;
3588
3589     INTVAL t_0;
3590     INTVAL t_1;
3591     INTVAL t_2;
3592     INTVAL t_3;
3593     UNUSED(return_data); /* Potentially unused, at least */
3594     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
3595
3596     GETATTR_NCI_orig_func(interp, nci, orig_func);
3597     fn_pointer = (func_t)D2FPTR(orig_func);
3598     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2, t_3);
3599     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3600
3601
3602
3603
3604 }
3605 static void
3606 pcf_i_iip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3607 {
3608     typedef int(* func_t)(int, int, void *);
3609     func_t fn_pointer;
3610     void *orig_func;
3611     PMC * const ctx         = CURRENT_CONTEXT(interp);
3612     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3613     PMC *       ret_object  = PMCNULL;
3614     INTVAL return_data;
3615
3616     INTVAL t_0;
3617     INTVAL t_1;
3618     PMC *t_2;
3619     UNUSED(return_data); /* Potentially unused, at least */
3620     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIP", &t_0, &t_1, &t_2);
3621
3622     GETATTR_NCI_orig_func(interp, nci, orig_func);
3623     fn_pointer = (func_t)D2FPTR(orig_func);
3624     return_data =  (int)(*fn_pointer)(t_0, t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
3625     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3626
3627
3628
3629 }
3630 static void
3631 pcf_i_iit(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3632 {
3633     typedef int(* func_t)(int, int, char *);
3634     func_t fn_pointer;
3635     void *orig_func;
3636     PMC * const ctx         = CURRENT_CONTEXT(interp);
3637     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3638     PMC *       ret_object  = PMCNULL;
3639     INTVAL return_data;
3640
3641     INTVAL t_0;
3642     INTVAL t_1;
3643     char *t_2; STRING *ts_2;
3644     UNUSED(return_data); /* Potentially unused, at least */
3645     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIS", &t_0, &t_1, &ts_2);
3646     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
3647     GETATTR_NCI_orig_func(interp, nci, orig_func);
3648     fn_pointer = (func_t)D2FPTR(orig_func);
3649     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2);
3650     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3651
3652
3653 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
3654 }
3655 static void
3656 pcf_i_iiti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3657 {
3658     typedef int(* func_t)(int, int, char *, int);
3659     func_t fn_pointer;
3660     void *orig_func;
3661     PMC * const ctx         = CURRENT_CONTEXT(interp);
3662     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3663     PMC *       ret_object  = PMCNULL;
3664     INTVAL return_data;
3665
3666     INTVAL t_0;
3667     INTVAL t_1;
3668     char *t_2; STRING *ts_2;
3669     INTVAL t_3;
3670     UNUSED(return_data); /* Potentially unused, at least */
3671     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IISI", &t_0, &t_1, &ts_2, &t_3);
3672     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
3673     GETATTR_NCI_orig_func(interp, nci, orig_func);
3674     fn_pointer = (func_t)D2FPTR(orig_func);
3675     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2, t_3);
3676     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3677
3678
3679 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
3680
3681 }
3682 static void
3683 pcf_i_ilsp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3684 {
3685     typedef int(* func_t)(int, long, short, void *);
3686     func_t fn_pointer;
3687     void *orig_func;
3688     PMC * const ctx         = CURRENT_CONTEXT(interp);
3689     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3690     PMC *       ret_object  = PMCNULL;
3691     INTVAL return_data;
3692
3693     INTVAL t_0;
3694     INTVAL t_1;
3695     INTVAL t_2;
3696     PMC *t_3;
3697     UNUSED(return_data); /* Potentially unused, at least */
3698     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIP", &t_0, &t_1, &t_2, &t_3);
3699
3700     GETATTR_NCI_orig_func(interp, nci, orig_func);
3701     fn_pointer = (func_t)D2FPTR(orig_func);
3702     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
3703     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3704
3705
3706
3707
3708 }
3709 static void
3710 pcf_i_iti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3711 {
3712     typedef int(* func_t)(int, char *, int);
3713     func_t fn_pointer;
3714     void *orig_func;
3715     PMC * const ctx         = CURRENT_CONTEXT(interp);
3716     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3717     PMC *       ret_object  = PMCNULL;
3718     INTVAL return_data;
3719
3720     INTVAL t_0;
3721     char *t_1; STRING *ts_1;
3722     INTVAL t_2;
3723     UNUSED(return_data); /* Potentially unused, at least */
3724     Parrot_pcc_fill_params_from_c_args(interp, call_object, "ISI", &t_0, &ts_1, &t_2);
3725     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
3726     GETATTR_NCI_orig_func(interp, nci, orig_func);
3727     fn_pointer = (func_t)D2FPTR(orig_func);
3728     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2);
3729     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3730
3731 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
3732
3733 }
3734 static void
3735 pcf_i_l(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3736 {
3737     typedef int(* func_t)(long);
3738     func_t fn_pointer;
3739     void *orig_func;
3740     PMC * const ctx         = CURRENT_CONTEXT(interp);
3741     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3742     PMC *       ret_object  = PMCNULL;
3743     INTVAL return_data;
3744
3745     INTVAL t_0;
3746     UNUSED(return_data); /* Potentially unused, at least */
3747     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
3748
3749     GETATTR_NCI_orig_func(interp, nci, orig_func);
3750     fn_pointer = (func_t)D2FPTR(orig_func);
3751     return_data =  (int)(*fn_pointer)(t_0);
3752     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3753
3754 }
3755 static void
3756 pcf_i_li(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3757 {
3758     typedef int(* func_t)(long, int);
3759     func_t fn_pointer;
3760     void *orig_func;
3761     PMC * const ctx         = CURRENT_CONTEXT(interp);
3762     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3763     PMC *       ret_object  = PMCNULL;
3764     INTVAL return_data;
3765
3766     INTVAL t_0;
3767     INTVAL t_1;
3768     UNUSED(return_data); /* Potentially unused, at least */
3769     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
3770
3771     GETATTR_NCI_orig_func(interp, nci, orig_func);
3772     fn_pointer = (func_t)D2FPTR(orig_func);
3773     return_data =  (int)(*fn_pointer)(t_0, t_1);
3774     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3775
3776
3777 }
3778 static void
3779 pcf_i_lp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3780 {
3781     typedef int(* func_t)(long, void *);
3782     func_t fn_pointer;
3783     void *orig_func;
3784     PMC * const ctx         = CURRENT_CONTEXT(interp);
3785     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3786     PMC *       ret_object  = PMCNULL;
3787     INTVAL return_data;
3788
3789     INTVAL t_0;
3790     PMC *t_1;
3791     UNUSED(return_data); /* Potentially unused, at least */
3792     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
3793
3794     GETATTR_NCI_orig_func(interp, nci, orig_func);
3795     fn_pointer = (func_t)D2FPTR(orig_func);
3796     return_data =  (int)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
3797     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3798
3799
3800 }
3801 static void
3802 pcf_i_lsp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3803 {
3804     typedef int(* func_t)(long, short, void *);
3805     func_t fn_pointer;
3806     void *orig_func;
3807     PMC * const ctx         = CURRENT_CONTEXT(interp);
3808     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3809     PMC *       ret_object  = PMCNULL;
3810     INTVAL return_data;
3811
3812     INTVAL t_0;
3813     INTVAL t_1;
3814     PMC *t_2;
3815     UNUSED(return_data); /* Potentially unused, at least */
3816     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIP", &t_0, &t_1, &t_2);
3817
3818     GETATTR_NCI_orig_func(interp, nci, orig_func);
3819     fn_pointer = (func_t)D2FPTR(orig_func);
3820     return_data =  (int)(*fn_pointer)(t_0, t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
3821     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3822
3823
3824
3825 }
3826 static void
3827 pcf_i_p33(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3828 {
3829     typedef int(* func_t)(void *, int *, int *);
3830     func_t fn_pointer;
3831     void *orig_func;
3832     PMC * const ctx         = CURRENT_CONTEXT(interp);
3833     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3834     PMC *       ret_object  = PMCNULL;
3835     INTVAL return_data;
3836
3837     PMC *t_0;
3838     PMC *t_1; int i_1;
3839     PMC *t_2; int i_2;
3840     UNUSED(return_data); /* Potentially unused, at least */
3841     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
3842     i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);
3843     GETATTR_NCI_orig_func(interp, nci, orig_func);
3844     fn_pointer = (func_t)D2FPTR(orig_func);
3845     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1, &i_2);
3846     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3847
3848 VTABLE_set_integer_native(interp, t_1, i_1);
3849 VTABLE_set_integer_native(interp, t_2, i_2);
3850 }
3851 static void
3852 pcf_i_p333(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3853 {
3854     typedef int(* func_t)(void *, int *, int *, int *);
3855     func_t fn_pointer;
3856     void *orig_func;
3857     PMC * const ctx         = CURRENT_CONTEXT(interp);
3858     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3859     PMC *       ret_object  = PMCNULL;
3860     INTVAL return_data;
3861
3862     PMC *t_0;
3863     PMC *t_1; int i_1;
3864     PMC *t_2; int i_2;
3865     PMC *t_3; int i_3;
3866     UNUSED(return_data); /* Potentially unused, at least */
3867     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
3868     i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);i_3 = VTABLE_get_integer(interp, t_3);
3869     GETATTR_NCI_orig_func(interp, nci, orig_func);
3870     fn_pointer = (func_t)D2FPTR(orig_func);
3871     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1, &i_2, &i_3);
3872     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3873
3874 VTABLE_set_integer_native(interp, t_1, i_1);
3875 VTABLE_set_integer_native(interp, t_2, i_2);
3876 VTABLE_set_integer_native(interp, t_3, i_3);
3877 }
3878 static void
3879 pcf_i_p333333(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3880 {
3881     typedef int(* func_t)(void *, int *, int *, int *, int *, int *, int *);
3882     func_t fn_pointer;
3883     void *orig_func;
3884     PMC * const ctx         = CURRENT_CONTEXT(interp);
3885     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3886     PMC *       ret_object  = PMCNULL;
3887     INTVAL return_data;
3888
3889     PMC *t_0;
3890     PMC *t_1; int i_1;
3891     PMC *t_2; int i_2;
3892     PMC *t_3; int i_3;
3893     PMC *t_4; int i_4;
3894     PMC *t_5; int i_5;
3895     PMC *t_6; int i_6;
3896     UNUSED(return_data); /* Potentially unused, at least */
3897     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPPPPP", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6);
3898     i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);i_3 = VTABLE_get_integer(interp, t_3);i_4 = VTABLE_get_integer(interp, t_4);i_5 = VTABLE_get_integer(interp, t_5);i_6 = VTABLE_get_integer(interp, t_6);
3899     GETATTR_NCI_orig_func(interp, nci, orig_func);
3900     fn_pointer = (func_t)D2FPTR(orig_func);
3901     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1, &i_2, &i_3, &i_4, &i_5, &i_6);
3902     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3903
3904 VTABLE_set_integer_native(interp, t_1, i_1);
3905 VTABLE_set_integer_native(interp, t_2, i_2);
3906 VTABLE_set_integer_native(interp, t_3, i_3);
3907 VTABLE_set_integer_native(interp, t_4, i_4);
3908 VTABLE_set_integer_native(interp, t_5, i_5);
3909 VTABLE_set_integer_native(interp, t_6, i_6);
3910 }
3911 static void
3912 pcf_i_p4(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3913 {
3914     typedef int(* func_t)(void *, long *);
3915     func_t fn_pointer;
3916     void *orig_func;
3917     PMC * const ctx         = CURRENT_CONTEXT(interp);
3918     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3919     PMC *       ret_object  = PMCNULL;
3920     INTVAL return_data;
3921
3922     PMC *t_0;
3923     PMC *t_1; long i_1;
3924     UNUSED(return_data); /* Potentially unused, at least */
3925     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
3926     i_1 = VTABLE_get_integer(interp, t_1);
3927     GETATTR_NCI_orig_func(interp, nci, orig_func);
3928     fn_pointer = (func_t)D2FPTR(orig_func);
3929     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1);
3930     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3931
3932 VTABLE_set_integer_native(interp, t_1, i_1);
3933 }
3934 static void
3935 pcf_i_p42p(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3936 {
3937     typedef int(* func_t)(void *, long *, short *, void *);
3938     func_t fn_pointer;
3939     void *orig_func;
3940     PMC * const ctx         = CURRENT_CONTEXT(interp);
3941     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3942     PMC *       ret_object  = PMCNULL;
3943     INTVAL return_data;
3944
3945     PMC *t_0;
3946     PMC *t_1; long i_1;
3947     PMC *t_2; short i_2;
3948     PMC *t_3;
3949     UNUSED(return_data); /* Potentially unused, at least */
3950     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
3951     i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);
3952     GETATTR_NCI_orig_func(interp, nci, orig_func);
3953     fn_pointer = (func_t)D2FPTR(orig_func);
3954     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1, &i_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
3955     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3956
3957 VTABLE_set_integer_native(interp, t_1, i_1);
3958 VTABLE_set_integer_native(interp, t_2, i_2);
3959
3960 }
3961 static void
3962 pcf_i_p4i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3963 {
3964     typedef int(* func_t)(void *, long *, int);
3965     func_t fn_pointer;
3966     void *orig_func;
3967     PMC * const ctx         = CURRENT_CONTEXT(interp);
3968     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3969     PMC *       ret_object  = PMCNULL;
3970     INTVAL return_data;
3971
3972     PMC *t_0;
3973     PMC *t_1; long i_1;
3974     INTVAL t_2;
3975     UNUSED(return_data); /* Potentially unused, at least */
3976     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPI", &t_0, &t_1, &t_2);
3977     i_1 = VTABLE_get_integer(interp, t_1);
3978     GETATTR_NCI_orig_func(interp, nci, orig_func);
3979     fn_pointer = (func_t)D2FPTR(orig_func);
3980     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1, t_2);
3981     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
3982
3983 VTABLE_set_integer_native(interp, t_1, i_1);
3984
3985 }
3986 static void
3987 pcf_i_pb(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
3988 {
3989     typedef int(* func_t)(void *, void *);
3990     func_t fn_pointer;
3991     void *orig_func;
3992     PMC * const ctx         = CURRENT_CONTEXT(interp);
3993     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
3994     PMC *       ret_object  = PMCNULL;
3995     INTVAL return_data;
3996
3997     PMC *t_0;
3998     STRING *t_1;
3999     UNUSED(return_data); /* Potentially unused, at least */
4000     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &t_1);
4001
4002     GETATTR_NCI_orig_func(interp, nci, orig_func);
4003     fn_pointer = (func_t)D2FPTR(orig_func);
4004     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), Buffer_bufstart(t_1));
4005     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4006
4007
4008 }
4009 static void
4010 pcf_i_pii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4011 {
4012     typedef int(* func_t)(void *, int, int);
4013     func_t fn_pointer;
4014     void *orig_func;
4015     PMC * const ctx         = CURRENT_CONTEXT(interp);
4016     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4017     PMC *       ret_object  = PMCNULL;
4018     INTVAL return_data;
4019
4020     PMC *t_0;
4021     INTVAL t_1;
4022     INTVAL t_2;
4023     UNUSED(return_data); /* Potentially unused, at least */
4024     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
4025
4026     GETATTR_NCI_orig_func(interp, nci, orig_func);
4027     fn_pointer = (func_t)D2FPTR(orig_func);
4028     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
4029     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4030
4031
4032
4033 }
4034 static void
4035 pcf_i_pii4(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4036 {
4037     typedef int(* func_t)(void *, int, int, long *);
4038     func_t fn_pointer;
4039     void *orig_func;
4040     PMC * const ctx         = CURRENT_CONTEXT(interp);
4041     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4042     PMC *       ret_object  = PMCNULL;
4043     INTVAL return_data;
4044
4045     PMC *t_0;
4046     INTVAL t_1;
4047     INTVAL t_2;
4048     PMC *t_3; long i_3;
4049     UNUSED(return_data); /* Potentially unused, at least */
4050     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIP", &t_0, &t_1, &t_2, &t_3);
4051     i_3 = VTABLE_get_integer(interp, t_3);
4052     GETATTR_NCI_orig_func(interp, nci, orig_func);
4053     fn_pointer = (func_t)D2FPTR(orig_func);
4054     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, &i_3);
4055     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4056
4057
4058
4059 VTABLE_set_integer_native(interp, t_3, i_3);
4060 }
4061 static void
4062 pcf_i_pii4i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4063 {
4064     typedef int(* func_t)(void *, int, int, long *, int);
4065     func_t fn_pointer;
4066     void *orig_func;
4067     PMC * const ctx         = CURRENT_CONTEXT(interp);
4068     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4069     PMC *       ret_object  = PMCNULL;
4070     INTVAL return_data;
4071
4072     PMC *t_0;
4073     INTVAL t_1;
4074     INTVAL t_2;
4075     PMC *t_3; long i_3;
4076     INTVAL t_4;
4077     UNUSED(return_data); /* Potentially unused, at least */
4078     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIPI", &t_0, &t_1, &t_2, &t_3, &t_4);
4079     i_3 = VTABLE_get_integer(interp, t_3);
4080     GETATTR_NCI_orig_func(interp, nci, orig_func);
4081     fn_pointer = (func_t)D2FPTR(orig_func);
4082     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, &i_3, t_4);
4083     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4084
4085
4086
4087 VTABLE_set_integer_native(interp, t_3, i_3);
4088
4089 }
4090 static void
4091 pcf_i_piii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4092 {
4093     typedef int(* func_t)(void *, int, int, int);
4094     func_t fn_pointer;
4095     void *orig_func;
4096     PMC * const ctx         = CURRENT_CONTEXT(interp);
4097     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4098     PMC *       ret_object  = PMCNULL;
4099     INTVAL return_data;
4100
4101     PMC *t_0;
4102     INTVAL t_1;
4103     INTVAL t_2;
4104     INTVAL t_3;
4105     UNUSED(return_data); /* Potentially unused, at least */
4106     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIII", &t_0, &t_1, &t_2, &t_3);
4107
4108     GETATTR_NCI_orig_func(interp, nci, orig_func);
4109     fn_pointer = (func_t)D2FPTR(orig_func);
4110     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3);
4111     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4112
4113
4114
4115
4116 }
4117 static void
4118 pcf_i_piiiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4119 {
4120     typedef int(* func_t)(void *, int, int, int, int, int, int);
4121     func_t fn_pointer;
4122     void *orig_func;
4123     PMC * const ctx         = CURRENT_CONTEXT(interp);
4124     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4125     PMC *       ret_object  = PMCNULL;
4126     INTVAL return_data;
4127
4128     PMC *t_0;
4129     INTVAL t_1;
4130     INTVAL t_2;
4131     INTVAL t_3;
4132     INTVAL t_4;
4133     INTVAL t_5;
4134     INTVAL t_6;
4135     UNUSED(return_data); /* Potentially unused, at least */
4136     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6);
4137
4138     GETATTR_NCI_orig_func(interp, nci, orig_func);
4139     fn_pointer = (func_t)D2FPTR(orig_func);
4140     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4, t_5, t_6);
4141     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4142
4143
4144
4145
4146
4147
4148
4149 }
4150 static void
4151 pcf_i_piiilsp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4152 {
4153     typedef int(* func_t)(void *, int, int, int, long, short, void *);
4154     func_t fn_pointer;
4155     void *orig_func;
4156     PMC * const ctx         = CURRENT_CONTEXT(interp);
4157     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4158     PMC *       ret_object  = PMCNULL;
4159     INTVAL return_data;
4160
4161     PMC *t_0;
4162     INTVAL t_1;
4163     INTVAL t_2;
4164     INTVAL t_3;
4165     INTVAL t_4;
4166     INTVAL t_5;
4167     PMC *t_6;
4168     UNUSED(return_data); /* Potentially unused, at least */
4169     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIIIIP", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6);
4170
4171     GETATTR_NCI_orig_func(interp, nci, orig_func);
4172     fn_pointer = (func_t)D2FPTR(orig_func);
4173     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4, t_5, PMC_IS_NULL((PMC*)t_6) ? (void *)NULL : VTABLE_get_pointer(interp, t_6));
4174     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4175
4176
4177
4178
4179
4180
4181
4182 }
4183 static void
4184 pcf_i_piil(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4185 {
4186     typedef int(* func_t)(void *, int, int, long);
4187     func_t fn_pointer;
4188     void *orig_func;
4189     PMC * const ctx         = CURRENT_CONTEXT(interp);
4190     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4191     PMC *       ret_object  = PMCNULL;
4192     INTVAL return_data;
4193
4194     PMC *t_0;
4195     INTVAL t_1;
4196     INTVAL t_2;
4197     INTVAL t_3;
4198     UNUSED(return_data); /* Potentially unused, at least */
4199     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIII", &t_0, &t_1, &t_2, &t_3);
4200
4201     GETATTR_NCI_orig_func(interp, nci, orig_func);
4202     fn_pointer = (func_t)D2FPTR(orig_func);
4203     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3);
4204     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4205
4206
4207
4208
4209 }
4210 static void
4211 pcf_i_piili(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4212 {
4213     typedef int(* func_t)(void *, int, int, long, int);
4214     func_t fn_pointer;
4215     void *orig_func;
4216     PMC * const ctx         = CURRENT_CONTEXT(interp);
4217     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4218     PMC *       ret_object  = PMCNULL;
4219     INTVAL return_data;
4220
4221     PMC *t_0;
4222     INTVAL t_1;
4223     INTVAL t_2;
4224     INTVAL t_3;
4225     INTVAL t_4;
4226     UNUSED(return_data); /* Potentially unused, at least */
4227     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIII", &t_0, &t_1, &t_2, &t_3, &t_4);
4228
4229     GETATTR_NCI_orig_func(interp, nci, orig_func);
4230     fn_pointer = (func_t)D2FPTR(orig_func);
4231     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4);
4232     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4233
4234
4235
4236
4237
4238 }
4239 static void
4240 pcf_i_piit(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4241 {
4242     typedef int(* func_t)(void *, int, int, char *);
4243     func_t fn_pointer;
4244     void *orig_func;
4245     PMC * const ctx         = CURRENT_CONTEXT(interp);
4246     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4247     PMC *       ret_object  = PMCNULL;
4248     INTVAL return_data;
4249
4250     PMC *t_0;
4251     INTVAL t_1;
4252     INTVAL t_2;
4253     char *t_3; STRING *ts_3;
4254     UNUSED(return_data); /* Potentially unused, at least */
4255     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIS", &t_0, &t_1, &t_2, &ts_3);
4256     t_3 = STRING_IS_NULL(ts_3) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_3);
4257     GETATTR_NCI_orig_func(interp, nci, orig_func);
4258     fn_pointer = (func_t)D2FPTR(orig_func);
4259     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3);
4260     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4261
4262
4263
4264 if (!STRING_IS_NULL(ts_3)) Parrot_str_free_cstring(t_3);
4265 }
4266 static void
4267 pcf_i_piiti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4268 {
4269     typedef int(* func_t)(void *, int, int, char *, int);
4270     func_t fn_pointer;
4271     void *orig_func;
4272     PMC * const ctx         = CURRENT_CONTEXT(interp);
4273     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4274     PMC *       ret_object  = PMCNULL;
4275     INTVAL return_data;
4276
4277     PMC *t_0;
4278     INTVAL t_1;
4279     INTVAL t_2;
4280     char *t_3; STRING *ts_3;
4281     INTVAL t_4;
4282     UNUSED(return_data); /* Potentially unused, at least */
4283     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIISI", &t_0, &t_1, &t_2, &ts_3, &t_4);
4284     t_3 = STRING_IS_NULL(ts_3) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_3);
4285     GETATTR_NCI_orig_func(interp, nci, orig_func);
4286     fn_pointer = (func_t)D2FPTR(orig_func);
4287     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4);
4288     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4289
4290
4291
4292 if (!STRING_IS_NULL(ts_3)) Parrot_str_free_cstring(t_3);
4293
4294 }
4295 static void
4296 pcf_i_pilsp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4297 {
4298     typedef int(* func_t)(void *, int, long, short, void *);
4299     func_t fn_pointer;
4300     void *orig_func;
4301     PMC * const ctx         = CURRENT_CONTEXT(interp);
4302     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4303     PMC *       ret_object  = PMCNULL;
4304     INTVAL return_data;
4305
4306     PMC *t_0;
4307     INTVAL t_1;
4308     INTVAL t_2;
4309     INTVAL t_3;
4310     PMC *t_4;
4311     UNUSED(return_data); /* Potentially unused, at least */
4312     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIIP", &t_0, &t_1, &t_2, &t_3, &t_4);
4313
4314     GETATTR_NCI_orig_func(interp, nci, orig_func);
4315     fn_pointer = (func_t)D2FPTR(orig_func);
4316     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, PMC_IS_NULL((PMC*)t_4) ? (void *)NULL : VTABLE_get_pointer(interp, t_4));
4317     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4318
4319
4320
4321
4322
4323 }
4324 static void
4325 pcf_i_pli(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4326 {
4327     typedef int(* func_t)(void *, long, int);
4328     func_t fn_pointer;
4329     void *orig_func;
4330     PMC * const ctx         = CURRENT_CONTEXT(interp);
4331     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4332     PMC *       ret_object  = PMCNULL;
4333     INTVAL return_data;
4334
4335     PMC *t_0;
4336     INTVAL t_1;
4337     INTVAL t_2;
4338     UNUSED(return_data); /* Potentially unused, at least */
4339     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
4340
4341     GETATTR_NCI_orig_func(interp, nci, orig_func);
4342     fn_pointer = (func_t)D2FPTR(orig_func);
4343     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
4344     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4345
4346
4347
4348 }
4349 static void
4350 pcf_i_pll(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4351 {
4352     typedef int(* func_t)(void *, long, long);
4353     func_t fn_pointer;
4354     void *orig_func;
4355     PMC * const ctx         = CURRENT_CONTEXT(interp);
4356     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4357     PMC *       ret_object  = PMCNULL;
4358     INTVAL return_data;
4359
4360     PMC *t_0;
4361     INTVAL t_1;
4362     INTVAL t_2;
4363     UNUSED(return_data); /* Potentially unused, at least */
4364     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
4365
4366     GETATTR_NCI_orig_func(interp, nci, orig_func);
4367     fn_pointer = (func_t)D2FPTR(orig_func);
4368     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
4369     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4370
4371
4372
4373 }
4374 static void
4375 pcf_i_pllllllll(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4376 {
4377     typedef int(* func_t)(void *, long, long, long, long, long, long, long, long);
4378     func_t fn_pointer;
4379     void *orig_func;
4380     PMC * const ctx         = CURRENT_CONTEXT(interp);
4381     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4382     PMC *       ret_object  = PMCNULL;
4383     INTVAL return_data;
4384
4385     PMC *t_0;
4386     INTVAL t_1;
4387     INTVAL t_2;
4388     INTVAL t_3;
4389     INTVAL t_4;
4390     INTVAL t_5;
4391     INTVAL t_6;
4392     INTVAL t_7;
4393     INTVAL t_8;
4394     UNUSED(return_data); /* Potentially unused, at least */
4395     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIIIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6, &t_7, &t_8);
4396
4397     GETATTR_NCI_orig_func(interp, nci, orig_func);
4398     fn_pointer = (func_t)D2FPTR(orig_func);
4399     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4, t_5, t_6, t_7, t_8);
4400     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4401
4402
4403
4404
4405
4406
4407
4408
4409
4410 }
4411 static void
4412 pcf_i_plp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4413 {
4414     typedef int(* func_t)(void *, long, void *);
4415     func_t fn_pointer;
4416     void *orig_func;
4417     PMC * const ctx         = CURRENT_CONTEXT(interp);
4418     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4419     PMC *       ret_object  = PMCNULL;
4420     INTVAL return_data;
4421
4422     PMC *t_0;
4423     INTVAL t_1;
4424     PMC *t_2;
4425     UNUSED(return_data); /* Potentially unused, at least */
4426     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_0, &t_1, &t_2);
4427
4428     GETATTR_NCI_orig_func(interp, nci, orig_func);
4429     fn_pointer = (func_t)D2FPTR(orig_func);
4430     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
4431     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4432
4433
4434
4435 }
4436 static void
4437 pcf_i_plsp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4438 {
4439     typedef int(* func_t)(void *, long, short, void *);
4440     func_t fn_pointer;
4441     void *orig_func;
4442     PMC * const ctx         = CURRENT_CONTEXT(interp);
4443     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4444     PMC *       ret_object  = PMCNULL;
4445     INTVAL return_data;
4446
4447     PMC *t_0;
4448     INTVAL t_1;
4449     INTVAL t_2;
4450     PMC *t_3;
4451     UNUSED(return_data); /* Potentially unused, at least */
4452     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIP", &t_0, &t_1, &t_2, &t_3);
4453
4454     GETATTR_NCI_orig_func(interp, nci, orig_func);
4455     fn_pointer = (func_t)D2FPTR(orig_func);
4456     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
4457     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4458
4459
4460
4461
4462 }
4463 static void
4464 pcf_i_pp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4465 {
4466     typedef int(* func_t)(void *, void *);
4467     func_t fn_pointer;
4468     void *orig_func;
4469     PMC * const ctx         = CURRENT_CONTEXT(interp);
4470     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4471     PMC *       ret_object  = PMCNULL;
4472     INTVAL return_data;
4473
4474     PMC *t_0;
4475     PMC *t_1;
4476     UNUSED(return_data); /* Potentially unused, at least */
4477     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
4478
4479     GETATTR_NCI_orig_func(interp, nci, orig_func);
4480     fn_pointer = (func_t)D2FPTR(orig_func);
4481     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
4482     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4483
4484
4485 }
4486 static void
4487 pcf_i_ppi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4488 {
4489     typedef int(* func_t)(void *, void *, int);
4490     func_t fn_pointer;
4491     void *orig_func;
4492     PMC * const ctx         = CURRENT_CONTEXT(interp);
4493     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4494     PMC *       ret_object  = PMCNULL;
4495     INTVAL return_data;
4496
4497     PMC *t_0;
4498     PMC *t_1;
4499     INTVAL t_2;
4500     UNUSED(return_data); /* Potentially unused, at least */
4501     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPI", &t_0, &t_1, &t_2);
4502
4503     GETATTR_NCI_orig_func(interp, nci, orig_func);
4504     fn_pointer = (func_t)D2FPTR(orig_func);
4505     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2);
4506     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4507
4508
4509
4510 }
4511 static void
4512 pcf_i_ppiiiiiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4513 {
4514     typedef int(* func_t)(void *, void *, int, int, int, int, int, int, int, int);
4515     func_t fn_pointer;
4516     void *orig_func;
4517     PMC * const ctx         = CURRENT_CONTEXT(interp);
4518     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4519     PMC *       ret_object  = PMCNULL;
4520     INTVAL return_data;
4521
4522     PMC *t_0;
4523     PMC *t_1;
4524     INTVAL t_2;
4525     INTVAL t_3;
4526     INTVAL t_4;
4527     INTVAL t_5;
4528     INTVAL t_6;
4529     INTVAL t_7;
4530     INTVAL t_8;
4531     INTVAL t_9;
4532     UNUSED(return_data); /* Potentially unused, at least */
4533     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIIIIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6, &t_7, &t_8, &t_9);
4534
4535     GETATTR_NCI_orig_func(interp, nci, orig_func);
4536     fn_pointer = (func_t)D2FPTR(orig_func);
4537     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3, t_4, t_5, t_6, t_7, t_8, t_9);
4538     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4539
4540
4541
4542
4543
4544
4545
4546
4547
4548
4549 }
4550 static void
4551 pcf_i_pppp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4552 {
4553     typedef int(* func_t)(void *, void *, void *, void *);
4554     func_t fn_pointer;
4555     void *orig_func;
4556     PMC * const ctx         = CURRENT_CONTEXT(interp);
4557     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4558     PMC *       ret_object  = PMCNULL;
4559     INTVAL return_data;
4560
4561     PMC *t_0;
4562     PMC *t_1;
4563     PMC *t_2;
4564     PMC *t_3;
4565     UNUSED(return_data); /* Potentially unused, at least */
4566     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
4567
4568     GETATTR_NCI_orig_func(interp, nci, orig_func);
4569     fn_pointer = (func_t)D2FPTR(orig_func);
4570     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
4571     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4572
4573
4574
4575
4576 }
4577 static void
4578 pcf_i_psp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4579 {
4580     typedef int(* func_t)(void *, short, void *);
4581     func_t fn_pointer;
4582     void *orig_func;
4583     PMC * const ctx         = CURRENT_CONTEXT(interp);
4584     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4585     PMC *       ret_object  = PMCNULL;
4586     INTVAL return_data;
4587
4588     PMC *t_0;
4589     INTVAL t_1;
4590     PMC *t_2;
4591     UNUSED(return_data); /* Potentially unused, at least */
4592     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_0, &t_1, &t_2);
4593
4594     GETATTR_NCI_orig_func(interp, nci, orig_func);
4595     fn_pointer = (func_t)D2FPTR(orig_func);
4596     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
4597     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4598
4599
4600
4601 }
4602 static void
4603 pcf_i_pti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4604 {
4605     typedef int(* func_t)(void *, char *, int);
4606     func_t fn_pointer;
4607     void *orig_func;
4608     PMC * const ctx         = CURRENT_CONTEXT(interp);
4609     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4610     PMC *       ret_object  = PMCNULL;
4611     INTVAL return_data;
4612
4613     PMC *t_0;
4614     char *t_1; STRING *ts_1;
4615     INTVAL t_2;
4616     UNUSED(return_data); /* Potentially unused, at least */
4617     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_0, &ts_1, &t_2);
4618     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
4619     GETATTR_NCI_orig_func(interp, nci, orig_func);
4620     fn_pointer = (func_t)D2FPTR(orig_func);
4621     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
4622     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4623
4624 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
4625
4626 }
4627 static void
4628 pcf_i_pitl(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4629 {
4630     typedef int(* func_t)(void *, int, char *, long);
4631     func_t fn_pointer;
4632     void *orig_func;
4633     PMC * const ctx         = CURRENT_CONTEXT(interp);
4634     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4635     PMC *       ret_object  = PMCNULL;
4636     INTVAL return_data;
4637
4638     PMC *t_0;
4639     INTVAL t_1;
4640     char *t_2; STRING *ts_2;
4641     INTVAL t_3;
4642     UNUSED(return_data); /* Potentially unused, at least */
4643     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PISI", &t_0, &t_1, &ts_2, &t_3);
4644     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
4645     GETATTR_NCI_orig_func(interp, nci, orig_func);
4646     fn_pointer = (func_t)D2FPTR(orig_func);
4647     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3);
4648     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4649
4650
4651 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
4652
4653 }
4654 static void
4655 pcf_i_s(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4656 {
4657     typedef int(* func_t)(short);
4658     func_t fn_pointer;
4659     void *orig_func;
4660     PMC * const ctx         = CURRENT_CONTEXT(interp);
4661     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4662     PMC *       ret_object  = PMCNULL;
4663     INTVAL return_data;
4664
4665     INTVAL t_0;
4666     UNUSED(return_data); /* Potentially unused, at least */
4667     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
4668
4669     GETATTR_NCI_orig_func(interp, nci, orig_func);
4670     fn_pointer = (func_t)D2FPTR(orig_func);
4671     return_data =  (int)(*fn_pointer)(t_0);
4672     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4673
4674 }
4675 static void
4676 pcf_i_s22(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4677 {
4678     typedef int(* func_t)(short, short *, short *);
4679     func_t fn_pointer;
4680     void *orig_func;
4681     PMC * const ctx         = CURRENT_CONTEXT(interp);
4682     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4683     PMC *       ret_object  = PMCNULL;
4684     INTVAL return_data;
4685
4686     INTVAL t_0;
4687     PMC *t_1; short i_1;
4688     PMC *t_2; short i_2;
4689     UNUSED(return_data); /* Potentially unused, at least */
4690     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IPP", &t_0, &t_1, &t_2);
4691     i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);
4692     GETATTR_NCI_orig_func(interp, nci, orig_func);
4693     fn_pointer = (func_t)D2FPTR(orig_func);
4694     return_data =  (int)(*fn_pointer)(t_0, &i_1, &i_2);
4695     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4696
4697 VTABLE_set_integer_native(interp, t_1, i_1);
4698 VTABLE_set_integer_native(interp, t_2, i_2);
4699 }
4700 static void
4701 pcf_i_s222(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4702 {
4703     typedef int(* func_t)(short, short *, short *, short *);
4704     func_t fn_pointer;
4705     void *orig_func;
4706     PMC * const ctx         = CURRENT_CONTEXT(interp);
4707     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4708     PMC *       ret_object  = PMCNULL;
4709     INTVAL return_data;
4710
4711     INTVAL t_0;
4712     PMC *t_1; short i_1;
4713     PMC *t_2; short i_2;
4714     PMC *t_3; short i_3;
4715     UNUSED(return_data); /* Potentially unused, at least */
4716     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IPPP", &t_0, &t_1, &t_2, &t_3);
4717     i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);i_3 = VTABLE_get_integer(interp, t_3);
4718     GETATTR_NCI_orig_func(interp, nci, orig_func);
4719     fn_pointer = (func_t)D2FPTR(orig_func);
4720     return_data =  (int)(*fn_pointer)(t_0, &i_1, &i_2, &i_3);
4721     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4722
4723 VTABLE_set_integer_native(interp, t_1, i_1);
4724 VTABLE_set_integer_native(interp, t_2, i_2);
4725 VTABLE_set_integer_native(interp, t_3, i_3);
4726 }
4727 static void
4728 pcf_i_sp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4729 {
4730     typedef int(* func_t)(short, void *);
4731     func_t fn_pointer;
4732     void *orig_func;
4733     PMC * const ctx         = CURRENT_CONTEXT(interp);
4734     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4735     PMC *       ret_object  = PMCNULL;
4736     INTVAL return_data;
4737
4738     INTVAL t_0;
4739     PMC *t_1;
4740     UNUSED(return_data); /* Potentially unused, at least */
4741     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
4742
4743     GETATTR_NCI_orig_func(interp, nci, orig_func);
4744     fn_pointer = (func_t)D2FPTR(orig_func);
4745     return_data =  (int)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
4746     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4747
4748
4749 }
4750 static void
4751 pcf_i_sss(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4752 {
4753     typedef int(* func_t)(short, short, short);
4754     func_t fn_pointer;
4755     void *orig_func;
4756     PMC * const ctx         = CURRENT_CONTEXT(interp);
4757     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4758     PMC *       ret_object  = PMCNULL;
4759     INTVAL return_data;
4760
4761     INTVAL t_0;
4762     INTVAL t_1;
4763     INTVAL t_2;
4764     UNUSED(return_data); /* Potentially unused, at least */
4765     Parrot_pcc_fill_params_from_c_args(interp, call_object, "III", &t_0, &t_1, &t_2);
4766
4767     GETATTR_NCI_orig_func(interp, nci, orig_func);
4768     fn_pointer = (func_t)D2FPTR(orig_func);
4769     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2);
4770     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4771
4772
4773
4774 }
4775 static void
4776 pcf_i_ssss(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4777 {
4778     typedef int(* func_t)(short, short, short, short);
4779     func_t fn_pointer;
4780     void *orig_func;
4781     PMC * const ctx         = CURRENT_CONTEXT(interp);
4782     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4783     PMC *       ret_object  = PMCNULL;
4784     INTVAL return_data;
4785
4786     INTVAL t_0;
4787     INTVAL t_1;
4788     INTVAL t_2;
4789     INTVAL t_3;
4790     UNUSED(return_data); /* Potentially unused, at least */
4791     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
4792
4793     GETATTR_NCI_orig_func(interp, nci, orig_func);
4794     fn_pointer = (func_t)D2FPTR(orig_func);
4795     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2, t_3);
4796     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4797
4798
4799
4800
4801 }
4802 static void
4803 pcf_i_t(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4804 {
4805     typedef int(* func_t)(char *);
4806     func_t fn_pointer;
4807     void *orig_func;
4808     PMC * const ctx         = CURRENT_CONTEXT(interp);
4809     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4810     PMC *       ret_object  = PMCNULL;
4811     INTVAL return_data;
4812
4813     char *t_0; STRING *ts_0;
4814     UNUSED(return_data); /* Potentially unused, at least */
4815     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
4816     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);
4817     GETATTR_NCI_orig_func(interp, nci, orig_func);
4818     fn_pointer = (func_t)D2FPTR(orig_func);
4819     return_data =  (int)(*fn_pointer)(t_0);
4820     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4821     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
4822 }
4823 static void
4824 pcf_i_ti(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4825 {
4826     typedef int(* func_t)(char *, int);
4827     func_t fn_pointer;
4828     void *orig_func;
4829     PMC * const ctx         = CURRENT_CONTEXT(interp);
4830     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4831     PMC *       ret_object  = PMCNULL;
4832     INTVAL return_data;
4833
4834     char *t_0; STRING *ts_0;
4835     INTVAL t_1;
4836     UNUSED(return_data); /* Potentially unused, at least */
4837     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SI", &ts_0, &t_1);
4838     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);
4839     GETATTR_NCI_orig_func(interp, nci, orig_func);
4840     fn_pointer = (func_t)D2FPTR(orig_func);
4841     return_data =  (int)(*fn_pointer)(t_0, t_1);
4842     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4843     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
4844
4845 }
4846 static void
4847 pcf_i_4(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4848 {
4849     typedef int(* func_t)(long *);
4850     func_t fn_pointer;
4851     void *orig_func;
4852     PMC * const ctx         = CURRENT_CONTEXT(interp);
4853     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4854     PMC *       ret_object  = PMCNULL;
4855     INTVAL return_data;
4856
4857     PMC *t_0; long i_0;
4858     UNUSED(return_data); /* Potentially unused, at least */
4859     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
4860     i_0 = VTABLE_get_integer(interp, t_0);
4861     GETATTR_NCI_orig_func(interp, nci, orig_func);
4862     fn_pointer = (func_t)D2FPTR(orig_func);
4863     return_data =  (int)(*fn_pointer)(&i_0);
4864     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4865     VTABLE_set_integer_native(interp, t_0, i_0);
4866 }
4867 static void
4868 pcf_i_4i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4869 {
4870     typedef int(* func_t)(long *, int);
4871     func_t fn_pointer;
4872     void *orig_func;
4873     PMC * const ctx         = CURRENT_CONTEXT(interp);
4874     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4875     PMC *       ret_object  = PMCNULL;
4876     INTVAL return_data;
4877
4878     PMC *t_0; long i_0;
4879     INTVAL t_1;
4880     UNUSED(return_data); /* Potentially unused, at least */
4881     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
4882     i_0 = VTABLE_get_integer(interp, t_0);
4883     GETATTR_NCI_orig_func(interp, nci, orig_func);
4884     fn_pointer = (func_t)D2FPTR(orig_func);
4885     return_data =  (int)(*fn_pointer)(&i_0, t_1);
4886     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4887     VTABLE_set_integer_native(interp, t_0, i_0);
4888
4889 }
4890 static void
4891 pcf_i_42p(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4892 {
4893     typedef int(* func_t)(long *, short *, void *);
4894     func_t fn_pointer;
4895     void *orig_func;
4896     PMC * const ctx         = CURRENT_CONTEXT(interp);
4897     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4898     PMC *       ret_object  = PMCNULL;
4899     INTVAL return_data;
4900
4901     PMC *t_0; long i_0;
4902     PMC *t_1; short i_1;
4903     PMC *t_2;
4904     UNUSED(return_data); /* Potentially unused, at least */
4905     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
4906     i_0 = VTABLE_get_integer(interp, t_0);i_1 = VTABLE_get_integer(interp, t_1);
4907     GETATTR_NCI_orig_func(interp, nci, orig_func);
4908     fn_pointer = (func_t)D2FPTR(orig_func);
4909     return_data =  (int)(*fn_pointer)(&i_0, &i_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
4910     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4911     VTABLE_set_integer_native(interp, t_0, i_0);
4912 VTABLE_set_integer_native(interp, t_1, i_1);
4913
4914 }
4915 static void
4916 pcf_l_ii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4917 {
4918     typedef long(* func_t)(int, int);
4919     func_t fn_pointer;
4920     void *orig_func;
4921     PMC * const ctx         = CURRENT_CONTEXT(interp);
4922     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4923     PMC *       ret_object  = PMCNULL;
4924     INTVAL return_data;
4925
4926     INTVAL t_0;
4927     INTVAL t_1;
4928     UNUSED(return_data); /* Potentially unused, at least */
4929     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
4930
4931     GETATTR_NCI_orig_func(interp, nci, orig_func);
4932     fn_pointer = (func_t)D2FPTR(orig_func);
4933     return_data =  (long)(*fn_pointer)(t_0, t_1);
4934     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4935
4936
4937 }
4938 static void
4939 pcf_l_l4(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4940 {
4941     typedef long(* func_t)(long, long *);
4942     func_t fn_pointer;
4943     void *orig_func;
4944     PMC * const ctx         = CURRENT_CONTEXT(interp);
4945     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4946     PMC *       ret_object  = PMCNULL;
4947     INTVAL return_data;
4948
4949     INTVAL t_0;
4950     PMC *t_1; long i_1;
4951     UNUSED(return_data); /* Potentially unused, at least */
4952     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
4953     i_1 = VTABLE_get_integer(interp, t_1);
4954     GETATTR_NCI_orig_func(interp, nci, orig_func);
4955     fn_pointer = (func_t)D2FPTR(orig_func);
4956     return_data =  (long)(*fn_pointer)(t_0, &i_1);
4957     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4958
4959 VTABLE_set_integer_native(interp, t_1, i_1);
4960 }
4961 static void
4962 pcf_l_pi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4963 {
4964     typedef long(* func_t)(void *, int);
4965     func_t fn_pointer;
4966     void *orig_func;
4967     PMC * const ctx         = CURRENT_CONTEXT(interp);
4968     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4969     PMC *       ret_object  = PMCNULL;
4970     INTVAL return_data;
4971
4972     PMC *t_0;
4973     INTVAL t_1;
4974     UNUSED(return_data); /* Potentially unused, at least */
4975     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
4976
4977     GETATTR_NCI_orig_func(interp, nci, orig_func);
4978     fn_pointer = (func_t)D2FPTR(orig_func);
4979     return_data =  (long)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
4980     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
4981
4982
4983 }
4984 static void
4985 pcf_l_pii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
4986 {
4987     typedef long(* func_t)(void *, int, int);
4988     func_t fn_pointer;
4989     void *orig_func;
4990     PMC * const ctx         = CURRENT_CONTEXT(interp);
4991     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
4992     PMC *       ret_object  = PMCNULL;
4993     INTVAL return_data;
4994
4995     PMC *t_0;
4996     INTVAL t_1;
4997     INTVAL t_2;
4998     UNUSED(return_data); /* Potentially unused, at least */
4999     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
5000
5001     GETATTR_NCI_orig_func(interp, nci, orig_func);
5002     fn_pointer = (func_t)D2FPTR(orig_func);
5003     return_data =  (long)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
5004     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5005
5006
5007
5008 }
5009 static void
5010 pcf_l_p33l(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5011 {
5012     typedef long(* func_t)(void *, int *, int *, long);
5013     func_t fn_pointer;
5014     void *orig_func;
5015     PMC * const ctx         = CURRENT_CONTEXT(interp);
5016     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5017     PMC *       ret_object  = PMCNULL;
5018     INTVAL return_data;
5019
5020     PMC *t_0;
5021     PMC *t_1; int i_1;
5022     PMC *t_2; int i_2;
5023     INTVAL t_3;
5024     UNUSED(return_data); /* Potentially unused, at least */
5025     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPI", &t_0, &t_1, &t_2, &t_3);
5026     i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);
5027     GETATTR_NCI_orig_func(interp, nci, orig_func);
5028     fn_pointer = (func_t)D2FPTR(orig_func);
5029     return_data =  (long)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1, &i_2, t_3);
5030     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5031
5032 VTABLE_set_integer_native(interp, t_1, i_1);
5033 VTABLE_set_integer_native(interp, t_2, i_2);
5034
5035 }
5036 static void
5037 pcf_l_33l(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5038 {
5039     typedef long(* func_t)(int *, int *, long);
5040     func_t fn_pointer;
5041     void *orig_func;
5042     PMC * const ctx         = CURRENT_CONTEXT(interp);
5043     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5044     PMC *       ret_object  = PMCNULL;
5045     INTVAL return_data;
5046
5047     PMC *t_0; int i_0;
5048     PMC *t_1; int i_1;
5049     INTVAL t_2;
5050     UNUSED(return_data); /* Potentially unused, at least */
5051     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPI", &t_0, &t_1, &t_2);
5052     i_0 = VTABLE_get_integer(interp, t_0);i_1 = VTABLE_get_integer(interp, t_1);
5053     GETATTR_NCI_orig_func(interp, nci, orig_func);
5054     fn_pointer = (func_t)D2FPTR(orig_func);
5055     return_data =  (long)(*fn_pointer)(&i_0, &i_1, t_2);
5056     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5057     VTABLE_set_integer_native(interp, t_0, i_0);
5058 VTABLE_set_integer_native(interp, t_1, i_1);
5059
5060 }
5061 static void
5062 pcf_p_(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5063 {
5064     typedef void *(* func_t)(void);
5065     func_t fn_pointer;
5066     void *orig_func;
5067     PMC * const ctx         = CURRENT_CONTEXT(interp);
5068     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5069     PMC *       ret_object  = PMCNULL;
5070     void * return_data;
5071 PMC * final_destination = PMCNULL;
5072
5073     ;
5074     UNUSED(return_data); /* Potentially unused, at least */
5075     GETATTR_NCI_orig_func(interp, nci, orig_func);
5076     fn_pointer = (func_t)D2FPTR(orig_func);
5077     return_data =  (void *)(*fn_pointer)();
5078     if (return_data != NULL) {
5079                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5080                              VTABLE_set_pointer(interp, final_destination, return_data);
5081                           }
5082                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5083
5084 }
5085 static void
5086 pcf_p_B(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5087 {
5088     typedef void *(* func_t)(char **);
5089     func_t fn_pointer;
5090     void *orig_func;
5091     PMC * const ctx         = CURRENT_CONTEXT(interp);
5092     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5093     PMC *       ret_object  = PMCNULL;
5094     void * return_data;
5095 PMC * final_destination = PMCNULL;
5096
5097     char *t_0; STRING *ts_0;
5098     UNUSED(return_data); /* Potentially unused, at least */
5099     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
5100     t_0 = STRING_IS_NULL(ts_0) ? (char *) NULL : Parrot_str_to_cstring(interp, ts_0);
5101     GETATTR_NCI_orig_func(interp, nci, orig_func);
5102     fn_pointer = (func_t)D2FPTR(orig_func);
5103     return_data =  (void *)(*fn_pointer)(&t_0);
5104     if (return_data != NULL) {
5105                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5106                              VTABLE_set_pointer(interp, final_destination, return_data);
5107                           }
5108                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5109     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
5110 }
5111 static void
5112 pcf_p_b(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5113 {
5114     typedef void *(* func_t)(void *);
5115     func_t fn_pointer;
5116     void *orig_func;
5117     PMC * const ctx         = CURRENT_CONTEXT(interp);
5118     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5119     PMC *       ret_object  = PMCNULL;
5120     void * return_data;
5121 PMC * final_destination = PMCNULL;
5122
5123     STRING *t_0;
5124     UNUSED(return_data); /* Potentially unused, at least */
5125     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &t_0);
5126
5127     GETATTR_NCI_orig_func(interp, nci, orig_func);
5128     fn_pointer = (func_t)D2FPTR(orig_func);
5129     return_data =  (void *)(*fn_pointer)(Buffer_bufstart(t_0));
5130     if (return_data != NULL) {
5131                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5132                              VTABLE_set_pointer(interp, final_destination, return_data);
5133                           }
5134                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5135
5136 }
5137 static void
5138 pcf_p_Jt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5139 {
5140     typedef void *(* func_t)(PARROT_INTERP, char *);
5141     func_t fn_pointer;
5142     void *orig_func;
5143     PMC * const ctx         = CURRENT_CONTEXT(interp);
5144     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5145     PMC *       ret_object  = PMCNULL;
5146     void * return_data;
5147 PMC * final_destination = PMCNULL;
5148
5149     char *t_1; STRING *ts_1;
5150     UNUSED(return_data); /* Potentially unused, at least */
5151     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_1);
5152     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
5153     GETATTR_NCI_orig_func(interp, nci, orig_func);
5154     fn_pointer = (func_t)D2FPTR(orig_func);
5155     return_data =  (void *)(*fn_pointer)(interp, t_1);
5156     if (return_data != NULL) {
5157                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5158                              VTABLE_set_pointer(interp, final_destination, return_data);
5159                           }
5160                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5161
5162 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
5163 }
5164 static void
5165 pcf_p_i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5166 {
5167     typedef void *(* func_t)(int);
5168     func_t fn_pointer;
5169     void *orig_func;
5170     PMC * const ctx         = CURRENT_CONTEXT(interp);
5171     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5172     PMC *       ret_object  = PMCNULL;
5173     void * return_data;
5174 PMC * final_destination = PMCNULL;
5175
5176     INTVAL t_0;
5177     UNUSED(return_data); /* Potentially unused, at least */
5178     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
5179
5180     GETATTR_NCI_orig_func(interp, nci, orig_func);
5181     fn_pointer = (func_t)D2FPTR(orig_func);
5182     return_data =  (void *)(*fn_pointer)(t_0);
5183     if (return_data != NULL) {
5184                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5185                              VTABLE_set_pointer(interp, final_destination, return_data);
5186                           }
5187                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5188
5189 }
5190 static void
5191 pcf_p_ii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5192 {
5193     typedef void *(* func_t)(int, int);
5194     func_t fn_pointer;
5195     void *orig_func;
5196     PMC * const ctx         = CURRENT_CONTEXT(interp);
5197     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5198     PMC *       ret_object  = PMCNULL;
5199     void * return_data;
5200 PMC * final_destination = PMCNULL;
5201
5202     INTVAL t_0;
5203     INTVAL t_1;
5204     UNUSED(return_data); /* Potentially unused, at least */
5205     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
5206
5207     GETATTR_NCI_orig_func(interp, nci, orig_func);
5208     fn_pointer = (func_t)D2FPTR(orig_func);
5209     return_data =  (void *)(*fn_pointer)(t_0, t_1);
5210     if (return_data != NULL) {
5211                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5212                              VTABLE_set_pointer(interp, final_destination, return_data);
5213                           }
5214                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5215
5216
5217 }
5218 static void
5219 pcf_p_iiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5220 {
5221     typedef void *(* func_t)(int, int, int, int);
5222     func_t fn_pointer;
5223     void *orig_func;
5224     PMC * const ctx         = CURRENT_CONTEXT(interp);
5225     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5226     PMC *       ret_object  = PMCNULL;
5227     void * return_data;
5228 PMC * final_destination = PMCNULL;
5229
5230     INTVAL t_0;
5231     INTVAL t_1;
5232     INTVAL t_2;
5233     INTVAL t_3;
5234     UNUSED(return_data); /* Potentially unused, at least */
5235     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
5236
5237     GETATTR_NCI_orig_func(interp, nci, orig_func);
5238     fn_pointer = (func_t)D2FPTR(orig_func);
5239     return_data =  (void *)(*fn_pointer)(t_0, t_1, t_2, t_3);
5240     if (return_data != NULL) {
5241                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5242                              VTABLE_set_pointer(interp, final_destination, return_data);
5243                           }
5244                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5245
5246
5247
5248
5249 }
5250 static void
5251 pcf_p_iiiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5252 {
5253     typedef void *(* func_t)(int, int, int, int, int, int);
5254     func_t fn_pointer;
5255     void *orig_func;
5256     PMC * const ctx         = CURRENT_CONTEXT(interp);
5257     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5258     PMC *       ret_object  = PMCNULL;
5259     void * return_data;
5260 PMC * final_destination = PMCNULL;
5261
5262     INTVAL t_0;
5263     INTVAL t_1;
5264     INTVAL t_2;
5265     INTVAL t_3;
5266     INTVAL t_4;
5267     INTVAL t_5;
5268     UNUSED(return_data); /* Potentially unused, at least */
5269     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5);
5270
5271     GETATTR_NCI_orig_func(interp, nci, orig_func);
5272     fn_pointer = (func_t)D2FPTR(orig_func);
5273     return_data =  (void *)(*fn_pointer)(t_0, t_1, t_2, t_3, t_4, t_5);
5274     if (return_data != NULL) {
5275                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5276                              VTABLE_set_pointer(interp, final_destination, return_data);
5277                           }
5278                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5279
5280
5281
5282
5283
5284
5285 }
5286 static void
5287 pcf_p_iiiiiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5288 {
5289     typedef void *(* func_t)(int, int, int, int, int, int, int, int);
5290     func_t fn_pointer;
5291     void *orig_func;
5292     PMC * const ctx         = CURRENT_CONTEXT(interp);
5293     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5294     PMC *       ret_object  = PMCNULL;
5295     void * return_data;
5296 PMC * final_destination = PMCNULL;
5297
5298     INTVAL t_0;
5299     INTVAL t_1;
5300     INTVAL t_2;
5301     INTVAL t_3;
5302     INTVAL t_4;
5303     INTVAL t_5;
5304     INTVAL t_6;
5305     INTVAL t_7;
5306     UNUSED(return_data); /* Potentially unused, at least */
5307     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6, &t_7);
5308
5309     GETATTR_NCI_orig_func(interp, nci, orig_func);
5310     fn_pointer = (func_t)D2FPTR(orig_func);
5311     return_data =  (void *)(*fn_pointer)(t_0, t_1, t_2, t_3, t_4, t_5, t_6, t_7);
5312     if (return_data != NULL) {
5313                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5314                              VTABLE_set_pointer(interp, final_destination, return_data);
5315                           }
5316                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5317
5318
5319
5320
5321
5322
5323
5324
5325 }
5326 static void
5327 pcf_p_pii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5328 {
5329     typedef void *(* func_t)(void *, int, int);
5330     func_t fn_pointer;
5331     void *orig_func;
5332     PMC * const ctx         = CURRENT_CONTEXT(interp);
5333     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5334     PMC *       ret_object  = PMCNULL;
5335     void * return_data;
5336 PMC * final_destination = PMCNULL;
5337
5338     PMC *t_0;
5339     INTVAL t_1;
5340     INTVAL t_2;
5341     UNUSED(return_data); /* Potentially unused, at least */
5342     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
5343
5344     GETATTR_NCI_orig_func(interp, nci, orig_func);
5345     fn_pointer = (func_t)D2FPTR(orig_func);
5346     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
5347     if (return_data != NULL) {
5348                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5349                              VTABLE_set_pointer(interp, final_destination, return_data);
5350                           }
5351                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5352
5353
5354
5355 }
5356 static void
5357 pcf_p_piiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5358 {
5359     typedef void *(* func_t)(void *, int, int, int, int);
5360     func_t fn_pointer;
5361     void *orig_func;
5362     PMC * const ctx         = CURRENT_CONTEXT(interp);
5363     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5364     PMC *       ret_object  = PMCNULL;
5365     void * return_data;
5366 PMC * final_destination = PMCNULL;
5367
5368     PMC *t_0;
5369     INTVAL t_1;
5370     INTVAL t_2;
5371     INTVAL t_3;
5372     INTVAL t_4;
5373     UNUSED(return_data); /* Potentially unused, at least */
5374     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIII", &t_0, &t_1, &t_2, &t_3, &t_4);
5375
5376     GETATTR_NCI_orig_func(interp, nci, orig_func);
5377     fn_pointer = (func_t)D2FPTR(orig_func);
5378     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4);
5379     if (return_data != NULL) {
5380                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5381                              VTABLE_set_pointer(interp, final_destination, return_data);
5382                           }
5383                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5384
5385
5386
5387
5388
5389 }
5390 static void
5391 pcf_p_t(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5392 {
5393     typedef void *(* func_t)(char *);
5394     func_t fn_pointer;
5395     void *orig_func;
5396     PMC * const ctx         = CURRENT_CONTEXT(interp);
5397     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5398     PMC *       ret_object  = PMCNULL;
5399     void * return_data;
5400 PMC * final_destination = PMCNULL;
5401
5402     char *t_0; STRING *ts_0;
5403     UNUSED(return_data); /* Potentially unused, at least */
5404     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
5405     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);
5406     GETATTR_NCI_orig_func(interp, nci, orig_func);
5407     fn_pointer = (func_t)D2FPTR(orig_func);
5408     return_data =  (void *)(*fn_pointer)(t_0);
5409     if (return_data != NULL) {
5410                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5411                              VTABLE_set_pointer(interp, final_destination, return_data);
5412                           }
5413                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5414     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
5415 }
5416 static void
5417 pcf_p_tpp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5418 {
5419     typedef void *(* func_t)(char *, void *, void *);
5420     func_t fn_pointer;
5421     void *orig_func;
5422     PMC * const ctx         = CURRENT_CONTEXT(interp);
5423     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5424     PMC *       ret_object  = PMCNULL;
5425     void * return_data;
5426 PMC * final_destination = PMCNULL;
5427
5428     char *t_0; STRING *ts_0;
5429     PMC *t_1;
5430     PMC *t_2;
5431     UNUSED(return_data); /* Potentially unused, at least */
5432     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SPP", &ts_0, &t_1, &t_2);
5433     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);
5434     GETATTR_NCI_orig_func(interp, nci, orig_func);
5435     fn_pointer = (func_t)D2FPTR(orig_func);
5436     return_data =  (void *)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
5437     if (return_data != NULL) {
5438                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5439                              VTABLE_set_pointer(interp, final_destination, return_data);
5440                           }
5441                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5442     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
5443
5444
5445 }
5446 static void
5447 pcf_p_ttttttt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5448 {
5449     typedef void *(* func_t)(char *, char *, char *, char *, char *, char *, char *);
5450     func_t fn_pointer;
5451     void *orig_func;
5452     PMC * const ctx         = CURRENT_CONTEXT(interp);
5453     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5454     PMC *       ret_object  = PMCNULL;
5455     void * return_data;
5456 PMC * final_destination = PMCNULL;
5457
5458     char *t_0; STRING *ts_0;
5459     char *t_1; STRING *ts_1;
5460     char *t_2; STRING *ts_2;
5461     char *t_3; STRING *ts_3;
5462     char *t_4; STRING *ts_4;
5463     char *t_5; STRING *ts_5;
5464     char *t_6; STRING *ts_6;
5465     UNUSED(return_data); /* Potentially unused, at least */
5466     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SSSSSSS", &ts_0, &ts_1, &ts_2, &ts_3, &ts_4, &ts_5, &ts_6);
5467     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);t_3 = STRING_IS_NULL(ts_3) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_3);t_4 = STRING_IS_NULL(ts_4) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_4);t_5 = STRING_IS_NULL(ts_5) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_5);t_6 = STRING_IS_NULL(ts_6) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_6);
5468     GETATTR_NCI_orig_func(interp, nci, orig_func);
5469     fn_pointer = (func_t)D2FPTR(orig_func);
5470     return_data =  (void *)(*fn_pointer)(t_0, t_1, t_2, t_3, t_4, t_5, t_6);
5471     if (return_data != NULL) {
5472                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5473                              VTABLE_set_pointer(interp, final_destination, return_data);
5474                           }
5475                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5476     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
5477 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
5478 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
5479 if (!STRING_IS_NULL(ts_3)) Parrot_str_free_cstring(t_3);
5480 if (!STRING_IS_NULL(ts_4)) Parrot_str_free_cstring(t_4);
5481 if (!STRING_IS_NULL(ts_5)) Parrot_str_free_cstring(t_5);
5482 if (!STRING_IS_NULL(ts_6)) Parrot_str_free_cstring(t_6);
5483 }
5484 static void
5485 pcf_s_(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5486 {
5487     typedef short(* func_t)(void);
5488     func_t fn_pointer;
5489     void *orig_func;
5490     PMC * const ctx         = CURRENT_CONTEXT(interp);
5491     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5492     PMC *       ret_object  = PMCNULL;
5493     INTVAL return_data;
5494
5495     ;
5496     UNUSED(return_data); /* Potentially unused, at least */
5497     GETATTR_NCI_orig_func(interp, nci, orig_func);
5498     fn_pointer = (func_t)D2FPTR(orig_func);
5499     return_data =  (short)(*fn_pointer)();
5500     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5501
5502 }
5503 static void
5504 pcf_t_(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5505 {
5506     typedef char *(* func_t)(void);
5507     func_t fn_pointer;
5508     void *orig_func;
5509     PMC * const ctx         = CURRENT_CONTEXT(interp);
5510     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5511     PMC *       ret_object  = PMCNULL;
5512     char * return_data;
5513 STRING *final_destination;
5514
5515     ;
5516     UNUSED(return_data); /* Potentially unused, at least */
5517     GETATTR_NCI_orig_func(interp, nci, orig_func);
5518     fn_pointer = (func_t)D2FPTR(orig_func);
5519     return_data =  (char *)(*fn_pointer)();
5520     final_destination = Parrot_str_new(interp, return_data, 0);
5521            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5522
5523 }
5524 static void
5525 pcf_t_i(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5526 {
5527     typedef char *(* func_t)(int);
5528     func_t fn_pointer;
5529     void *orig_func;
5530     PMC * const ctx         = CURRENT_CONTEXT(interp);
5531     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5532     PMC *       ret_object  = PMCNULL;
5533     char * return_data;
5534 STRING *final_destination;
5535
5536     INTVAL t_0;
5537     UNUSED(return_data); /* Potentially unused, at least */
5538     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
5539
5540     GETATTR_NCI_orig_func(interp, nci, orig_func);
5541     fn_pointer = (func_t)D2FPTR(orig_func);
5542     return_data =  (char *)(*fn_pointer)(t_0);
5543     final_destination = Parrot_str_new(interp, return_data, 0);
5544            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5545
5546 }
5547 static void
5548 pcf_t_ii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5549 {
5550     typedef char *(* func_t)(int, int);
5551     func_t fn_pointer;
5552     void *orig_func;
5553     PMC * const ctx         = CURRENT_CONTEXT(interp);
5554     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5555     PMC *       ret_object  = PMCNULL;
5556     char * return_data;
5557 STRING *final_destination;
5558
5559     INTVAL t_0;
5560     INTVAL t_1;
5561     UNUSED(return_data); /* Potentially unused, at least */
5562     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
5563
5564     GETATTR_NCI_orig_func(interp, nci, orig_func);
5565     fn_pointer = (func_t)D2FPTR(orig_func);
5566     return_data =  (char *)(*fn_pointer)(t_0, t_1);
5567     final_destination = Parrot_str_new(interp, return_data, 0);
5568            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5569
5570
5571 }
5572 static void
5573 pcf_t_pi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5574 {
5575     typedef char *(* func_t)(void *, int);
5576     func_t fn_pointer;
5577     void *orig_func;
5578     PMC * const ctx         = CURRENT_CONTEXT(interp);
5579     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5580     PMC *       ret_object  = PMCNULL;
5581     char * return_data;
5582 STRING *final_destination;
5583
5584     PMC *t_0;
5585     INTVAL t_1;
5586     UNUSED(return_data); /* Potentially unused, at least */
5587     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
5588
5589     GETATTR_NCI_orig_func(interp, nci, orig_func);
5590     fn_pointer = (func_t)D2FPTR(orig_func);
5591     return_data =  (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
5592     final_destination = Parrot_str_new(interp, return_data, 0);
5593            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5594
5595
5596 }
5597 static void
5598 pcf_t_pii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5599 {
5600     typedef char *(* func_t)(void *, int, int);
5601     func_t fn_pointer;
5602     void *orig_func;
5603     PMC * const ctx         = CURRENT_CONTEXT(interp);
5604     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5605     PMC *       ret_object  = PMCNULL;
5606     char * return_data;
5607 STRING *final_destination;
5608
5609     PMC *t_0;
5610     INTVAL t_1;
5611     INTVAL t_2;
5612     UNUSED(return_data); /* Potentially unused, at least */
5613     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
5614
5615     GETATTR_NCI_orig_func(interp, nci, orig_func);
5616     fn_pointer = (func_t)D2FPTR(orig_func);
5617     return_data =  (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
5618     final_destination = Parrot_str_new(interp, return_data, 0);
5619            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5620
5621
5622
5623 }
5624 static void
5625 pcf_t_t(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5626 {
5627     typedef char *(* func_t)(char *);
5628     func_t fn_pointer;
5629     void *orig_func;
5630     PMC * const ctx         = CURRENT_CONTEXT(interp);
5631     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5632     PMC *       ret_object  = PMCNULL;
5633     char * return_data;
5634 STRING *final_destination;
5635
5636     char *t_0; STRING *ts_0;
5637     UNUSED(return_data); /* Potentially unused, at least */
5638     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
5639     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);
5640     GETATTR_NCI_orig_func(interp, nci, orig_func);
5641     fn_pointer = (func_t)D2FPTR(orig_func);
5642     return_data =  (char *)(*fn_pointer)(t_0);
5643     final_destination = Parrot_str_new(interp, return_data, 0);
5644            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5645     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
5646 }
5647 static void
5648 pcf_t_tl4(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5649 {
5650     typedef char *(* func_t)(char *, long, long *);
5651     func_t fn_pointer;
5652     void *orig_func;
5653     PMC * const ctx         = CURRENT_CONTEXT(interp);
5654     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5655     PMC *       ret_object  = PMCNULL;
5656     char * return_data;
5657 STRING *final_destination;
5658
5659     char *t_0; STRING *ts_0;
5660     INTVAL t_1;
5661     PMC *t_2; long i_2;
5662     UNUSED(return_data); /* Potentially unused, at least */
5663     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SIP", &ts_0, &t_1, &t_2);
5664     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);i_2 = VTABLE_get_integer(interp, t_2);
5665     GETATTR_NCI_orig_func(interp, nci, orig_func);
5666     fn_pointer = (func_t)D2FPTR(orig_func);
5667     return_data =  (char *)(*fn_pointer)(t_0, t_1, &i_2);
5668     final_destination = Parrot_str_new(interp, return_data, 0);
5669            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5670     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
5671
5672 VTABLE_set_integer_native(interp, t_2, i_2);
5673 }
5674 static void
5675 pcf_t_t4(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5676 {
5677     typedef char *(* func_t)(char *, long *);
5678     func_t fn_pointer;
5679     void *orig_func;
5680     PMC * const ctx         = CURRENT_CONTEXT(interp);
5681     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5682     PMC *       ret_object  = PMCNULL;
5683     char * return_data;
5684 STRING *final_destination;
5685
5686     char *t_0; STRING *ts_0;
5687     PMC *t_1; long i_1;
5688     UNUSED(return_data); /* Potentially unused, at least */
5689     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SP", &ts_0, &t_1);
5690     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);i_1 = VTABLE_get_integer(interp, t_1);
5691     GETATTR_NCI_orig_func(interp, nci, orig_func);
5692     fn_pointer = (func_t)D2FPTR(orig_func);
5693     return_data =  (char *)(*fn_pointer)(t_0, &i_1);
5694     final_destination = Parrot_str_new(interp, return_data, 0);
5695            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5696     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
5697 VTABLE_set_integer_native(interp, t_1, i_1);
5698 }
5699 static void
5700 pcf_i_sc(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5701 {
5702     typedef int(* func_t)(short, char);
5703     func_t fn_pointer;
5704     void *orig_func;
5705     PMC * const ctx         = CURRENT_CONTEXT(interp);
5706     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5707     PMC *       ret_object  = PMCNULL;
5708     INTVAL return_data;
5709
5710     INTVAL t_0;
5711     INTVAL t_1;
5712     UNUSED(return_data); /* Potentially unused, at least */
5713     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
5714
5715     GETATTR_NCI_orig_func(interp, nci, orig_func);
5716     fn_pointer = (func_t)D2FPTR(orig_func);
5717     return_data =  (int)(*fn_pointer)(t_0, t_1);
5718     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5719
5720
5721 }
5722 static void
5723 pcf_s_sc(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5724 {
5725     typedef short(* func_t)(short, char);
5726     func_t fn_pointer;
5727     void *orig_func;
5728     PMC * const ctx         = CURRENT_CONTEXT(interp);
5729     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5730     PMC *       ret_object  = PMCNULL;
5731     INTVAL return_data;
5732
5733     INTVAL t_0;
5734     INTVAL t_1;
5735     UNUSED(return_data); /* Potentially unused, at least */
5736     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
5737
5738     GETATTR_NCI_orig_func(interp, nci, orig_func);
5739     fn_pointer = (func_t)D2FPTR(orig_func);
5740     return_data =  (short)(*fn_pointer)(t_0, t_1);
5741     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5742
5743
5744 }
5745 static void
5746 pcf_c_sc(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5747 {
5748     typedef char(* func_t)(short, char);
5749     func_t fn_pointer;
5750     void *orig_func;
5751     PMC * const ctx         = CURRENT_CONTEXT(interp);
5752     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5753     PMC *       ret_object  = PMCNULL;
5754     INTVAL return_data;
5755
5756     INTVAL t_0;
5757     INTVAL t_1;
5758     UNUSED(return_data); /* Potentially unused, at least */
5759     Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
5760
5761     GETATTR_NCI_orig_func(interp, nci, orig_func);
5762     fn_pointer = (func_t)D2FPTR(orig_func);
5763     return_data =  (char)(*fn_pointer)(t_0, t_1);
5764     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5765
5766
5767 }
5768 static void
5769 pcf_i_iii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5770 {
5771     typedef int(* func_t)(int, int, int);
5772     func_t fn_pointer;
5773     void *orig_func;
5774     PMC * const ctx         = CURRENT_CONTEXT(interp);
5775     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5776     PMC *       ret_object  = PMCNULL;
5777     INTVAL return_data;
5778
5779     INTVAL t_0;
5780     INTVAL t_1;
5781     INTVAL t_2;
5782     UNUSED(return_data); /* Potentially unused, at least */
5783     Parrot_pcc_fill_params_from_c_args(interp, call_object, "III", &t_0, &t_1, &t_2);
5784
5785     GETATTR_NCI_orig_func(interp, nci, orig_func);
5786     fn_pointer = (func_t)D2FPTR(orig_func);
5787     return_data =  (int)(*fn_pointer)(t_0, t_1, t_2);
5788     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5789
5790
5791
5792 }
5793 static void
5794 pcf_i_i3(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5795 {
5796     typedef int(* func_t)(int, int *);
5797     func_t fn_pointer;
5798     void *orig_func;
5799     PMC * const ctx         = CURRENT_CONTEXT(interp);
5800     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5801     PMC *       ret_object  = PMCNULL;
5802     INTVAL return_data;
5803
5804     INTVAL t_0;
5805     PMC *t_1; int i_1;
5806     UNUSED(return_data); /* Potentially unused, at least */
5807     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
5808     i_1 = VTABLE_get_integer(interp, t_1);
5809     GETATTR_NCI_orig_func(interp, nci, orig_func);
5810     fn_pointer = (func_t)D2FPTR(orig_func);
5811     return_data =  (int)(*fn_pointer)(t_0, &i_1);
5812     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5813
5814 VTABLE_set_integer_native(interp, t_1, i_1);
5815 }
5816 static void
5817 pcf_t_b(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5818 {
5819     typedef char *(* func_t)(void *);
5820     func_t fn_pointer;
5821     void *orig_func;
5822     PMC * const ctx         = CURRENT_CONTEXT(interp);
5823     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5824     PMC *       ret_object  = PMCNULL;
5825     char * return_data;
5826 STRING *final_destination;
5827
5828     STRING *t_0;
5829     UNUSED(return_data); /* Potentially unused, at least */
5830     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &t_0);
5831
5832     GETATTR_NCI_orig_func(interp, nci, orig_func);
5833     fn_pointer = (func_t)D2FPTR(orig_func);
5834     return_data =  (char *)(*fn_pointer)(Buffer_bufstart(t_0));
5835     final_destination = Parrot_str_new(interp, return_data, 0);
5836            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5837
5838 }
5839 static void
5840 pcf_t_B(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5841 {
5842     typedef char *(* func_t)(char **);
5843     func_t fn_pointer;
5844     void *orig_func;
5845     PMC * const ctx         = CURRENT_CONTEXT(interp);
5846     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5847     PMC *       ret_object  = PMCNULL;
5848     char * return_data;
5849 STRING *final_destination;
5850
5851     char *t_0; STRING *ts_0;
5852     UNUSED(return_data); /* Potentially unused, at least */
5853     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
5854     t_0 = STRING_IS_NULL(ts_0) ? (char *) NULL : Parrot_str_to_cstring(interp, ts_0);
5855     GETATTR_NCI_orig_func(interp, nci, orig_func);
5856     fn_pointer = (func_t)D2FPTR(orig_func);
5857     return_data =  (char *)(*fn_pointer)(&t_0);
5858     final_destination = Parrot_str_new(interp, return_data, 0);
5859            ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
5860     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
5861 }
5862 static void
5863 pcf_v_P(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5864 {
5865     typedef void(* func_t)(PMC *);
5866     func_t fn_pointer;
5867     void *orig_func;
5868     PMC * const ctx         = CURRENT_CONTEXT(interp);
5869     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5870     PMC *       ret_object  = PMCNULL;
5871     void * return_data;
5872
5873     PMC * t_0;
5874     UNUSED(return_data); /* Potentially unused, at least */
5875     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
5876
5877     GETATTR_NCI_orig_func(interp, nci, orig_func);
5878     fn_pointer = (func_t)D2FPTR(orig_func);
5879      (*fn_pointer)(t_0);
5880
5881
5882 }
5883 static void
5884 pcf_v_pP(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5885 {
5886     typedef void(* func_t)(void *, PMC *);
5887     func_t fn_pointer;
5888     void *orig_func;
5889     PMC * const ctx         = CURRENT_CONTEXT(interp);
5890     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5891     PMC *       ret_object  = PMCNULL;
5892     void * return_data;
5893
5894     PMC *t_0;
5895     PMC * t_1;
5896     UNUSED(return_data); /* Potentially unused, at least */
5897     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
5898
5899     GETATTR_NCI_orig_func(interp, nci, orig_func);
5900     fn_pointer = (func_t)D2FPTR(orig_func);
5901      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
5902
5903
5904
5905 }
5906 static void
5907 pcf_p_ip(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5908 {
5909     typedef void *(* func_t)(int, void *);
5910     func_t fn_pointer;
5911     void *orig_func;
5912     PMC * const ctx         = CURRENT_CONTEXT(interp);
5913     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5914     PMC *       ret_object  = PMCNULL;
5915     void * return_data;
5916 PMC * final_destination = PMCNULL;
5917
5918     INTVAL t_0;
5919     PMC *t_1;
5920     UNUSED(return_data); /* Potentially unused, at least */
5921     Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
5922
5923     GETATTR_NCI_orig_func(interp, nci, orig_func);
5924     fn_pointer = (func_t)D2FPTR(orig_func);
5925     return_data =  (void *)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
5926     if (return_data != NULL) {
5927                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
5928                              VTABLE_set_pointer(interp, final_destination, return_data);
5929                           }
5930                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
5931
5932
5933 }
5934 static void
5935 pcf_i_33(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5936 {
5937     typedef int(* func_t)(int *, int *);
5938     func_t fn_pointer;
5939     void *orig_func;
5940     PMC * const ctx         = CURRENT_CONTEXT(interp);
5941     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5942     PMC *       ret_object  = PMCNULL;
5943     INTVAL return_data;
5944
5945     PMC *t_0; int i_0;
5946     PMC *t_1; int i_1;
5947     UNUSED(return_data); /* Potentially unused, at least */
5948     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
5949     i_0 = VTABLE_get_integer(interp, t_0);i_1 = VTABLE_get_integer(interp, t_1);
5950     GETATTR_NCI_orig_func(interp, nci, orig_func);
5951     fn_pointer = (func_t)D2FPTR(orig_func);
5952     return_data =  (int)(*fn_pointer)(&i_0, &i_1);
5953     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
5954     VTABLE_set_integer_native(interp, t_0, i_0);
5955 VTABLE_set_integer_native(interp, t_1, i_1);
5956 }
5957 static void
5958 pcf_v_pii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5959 {
5960     typedef void(* func_t)(void *, int, int);
5961     func_t fn_pointer;
5962     void *orig_func;
5963     PMC * const ctx         = CURRENT_CONTEXT(interp);
5964     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5965     PMC *       ret_object  = PMCNULL;
5966     void * return_data;
5967
5968     PMC *t_0;
5969     INTVAL t_1;
5970     INTVAL t_2;
5971     UNUSED(return_data); /* Potentially unused, at least */
5972     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
5973
5974     GETATTR_NCI_orig_func(interp, nci, orig_func);
5975     fn_pointer = (func_t)D2FPTR(orig_func);
5976      (*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
5977
5978
5979
5980
5981 }
5982 static void
5983 pcf_v_JO(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
5984 {
5985     typedef void(* func_t)(PARROT_INTERP, PMC *);
5986     func_t fn_pointer;
5987     void *orig_func;
5988     PMC * const ctx         = CURRENT_CONTEXT(interp);
5989     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
5990     PMC *       ret_object  = PMCNULL;
5991     void * return_data;
5992
5993     PMC * t_1;
5994     UNUSED(return_data); /* Potentially unused, at least */
5995     Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
5996
5997     GETATTR_NCI_orig_func(interp, nci, orig_func);
5998     fn_pointer = (func_t)D2FPTR(orig_func);
5999      (*fn_pointer)(interp, t_1);
6000
6001
6002
6003 }
6004 static void
6005 pcf_i_JO(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6006 {
6007     typedef int(* func_t)(PARROT_INTERP, PMC *);
6008     func_t fn_pointer;
6009     void *orig_func;
6010     PMC * const ctx         = CURRENT_CONTEXT(interp);
6011     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6012     PMC *       ret_object  = PMCNULL;
6013     INTVAL return_data;
6014
6015     PMC * t_1;
6016     UNUSED(return_data); /* Potentially unused, at least */
6017     Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
6018
6019     GETATTR_NCI_orig_func(interp, nci, orig_func);
6020     fn_pointer = (func_t)D2FPTR(orig_func);
6021     return_data =  (int)(*fn_pointer)(interp, t_1);
6022     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6023
6024
6025 }
6026 static void
6027 pcf_i_JOi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6028 {
6029     typedef int(* func_t)(PARROT_INTERP, PMC *, int);
6030     func_t fn_pointer;
6031     void *orig_func;
6032     PMC * const ctx         = CURRENT_CONTEXT(interp);
6033     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6034     PMC *       ret_object  = PMCNULL;
6035     INTVAL return_data;
6036
6037     PMC * t_1;
6038     INTVAL t_2;
6039     UNUSED(return_data); /* Potentially unused, at least */
6040     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
6041
6042     GETATTR_NCI_orig_func(interp, nci, orig_func);
6043     fn_pointer = (func_t)D2FPTR(orig_func);
6044     return_data =  (int)(*fn_pointer)(interp, t_1, t_2);
6045     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6046
6047
6048
6049 }
6050 static void
6051 pcf_i_JOt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6052 {
6053     typedef int(* func_t)(PARROT_INTERP, PMC *, char *);
6054     func_t fn_pointer;
6055     void *orig_func;
6056     PMC * const ctx         = CURRENT_CONTEXT(interp);
6057     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6058     PMC *       ret_object  = PMCNULL;
6059     INTVAL return_data;
6060
6061     PMC * t_1;
6062     char *t_2; STRING *ts_2;
6063     UNUSED(return_data); /* Potentially unused, at least */
6064     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiS", &t_1, &ts_2);
6065     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
6066     GETATTR_NCI_orig_func(interp, nci, orig_func);
6067     fn_pointer = (func_t)D2FPTR(orig_func);
6068     return_data =  (int)(*fn_pointer)(interp, t_1, t_2);
6069     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6070
6071
6072 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
6073 }
6074 static void
6075 pcf_i_Jt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6076 {
6077     typedef int(* func_t)(PARROT_INTERP, char *);
6078     func_t fn_pointer;
6079     void *orig_func;
6080     PMC * const ctx         = CURRENT_CONTEXT(interp);
6081     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6082     PMC *       ret_object  = PMCNULL;
6083     INTVAL return_data;
6084
6085     char *t_1; STRING *ts_1;
6086     UNUSED(return_data); /* Potentially unused, at least */
6087     Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_1);
6088     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);
6089     GETATTR_NCI_orig_func(interp, nci, orig_func);
6090     fn_pointer = (func_t)D2FPTR(orig_func);
6091     return_data =  (int)(*fn_pointer)(interp, t_1);
6092     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6093
6094 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
6095 }
6096 static void
6097 pcf_i_Ji(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6098 {
6099     typedef int(* func_t)(PARROT_INTERP, int);
6100     func_t fn_pointer;
6101     void *orig_func;
6102     PMC * const ctx         = CURRENT_CONTEXT(interp);
6103     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6104     PMC *       ret_object  = PMCNULL;
6105     INTVAL return_data;
6106
6107     INTVAL t_1;
6108     UNUSED(return_data); /* Potentially unused, at least */
6109     Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_1);
6110
6111     GETATTR_NCI_orig_func(interp, nci, orig_func);
6112     fn_pointer = (func_t)D2FPTR(orig_func);
6113     return_data =  (int)(*fn_pointer)(interp, t_1);
6114     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6115
6116
6117 }
6118 static void
6119 pcf_v_Vi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6120 {
6121     typedef void(* func_t)(void **, int);
6122     func_t fn_pointer;
6123     void *orig_func;
6124     PMC * const ctx         = CURRENT_CONTEXT(interp);
6125     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6126     PMC *       ret_object  = PMCNULL;
6127     void * return_data;
6128
6129     PMC *t_0; void *v_0;
6130     INTVAL t_1;
6131     UNUSED(return_data); /* Potentially unused, at least */
6132     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
6133     v_0 = VTABLE_get_pointer(interp, t_0);
6134     GETATTR_NCI_orig_func(interp, nci, orig_func);
6135     fn_pointer = (func_t)D2FPTR(orig_func);
6136      (*fn_pointer)(&v_0, t_1);
6137
6138     VTABLE_set_pointer(interp, t_0, v_0);
6139
6140 }
6141 static void
6142 pcf_p_ppiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6143 {
6144     typedef void *(* func_t)(void *, void *, int, int, int);
6145     func_t fn_pointer;
6146     void *orig_func;
6147     PMC * const ctx         = CURRENT_CONTEXT(interp);
6148     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6149     PMC *       ret_object  = PMCNULL;
6150     void * return_data;
6151 PMC * final_destination = PMCNULL;
6152
6153     PMC *t_0;
6154     PMC *t_1;
6155     INTVAL t_2;
6156     INTVAL t_3;
6157     INTVAL t_4;
6158     UNUSED(return_data); /* Potentially unused, at least */
6159     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIII", &t_0, &t_1, &t_2, &t_3, &t_4);
6160
6161     GETATTR_NCI_orig_func(interp, nci, orig_func);
6162     fn_pointer = (func_t)D2FPTR(orig_func);
6163     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3, t_4);
6164     if (return_data != NULL) {
6165                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6166                              VTABLE_set_pointer(interp, final_destination, return_data);
6167                           }
6168                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
6169
6170
6171
6172
6173
6174 }
6175 static void
6176 pcf_p_ppiiiiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6177 {
6178     typedef void *(* func_t)(void *, void *, int, int, int, int, int, int, int);
6179     func_t fn_pointer;
6180     void *orig_func;
6181     PMC * const ctx         = CURRENT_CONTEXT(interp);
6182     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6183     PMC *       ret_object  = PMCNULL;
6184     void * return_data;
6185 PMC * final_destination = PMCNULL;
6186
6187     PMC *t_0;
6188     PMC *t_1;
6189     INTVAL t_2;
6190     INTVAL t_3;
6191     INTVAL t_4;
6192     INTVAL t_5;
6193     INTVAL t_6;
6194     INTVAL t_7;
6195     INTVAL t_8;
6196     UNUSED(return_data); /* Potentially unused, at least */
6197     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIIIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6, &t_7, &t_8);
6198
6199     GETATTR_NCI_orig_func(interp, nci, orig_func);
6200     fn_pointer = (func_t)D2FPTR(orig_func);
6201     return_data =  (void *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3, t_4, t_5, t_6, t_7, t_8);
6202     if (return_data != NULL) {
6203                              final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6204                              VTABLE_set_pointer(interp, final_destination, return_data);
6205                           }
6206                           ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216 }
6217 static void
6218 pcf_i_ppii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6219 {
6220     typedef int(* func_t)(void *, void *, int, int);
6221     func_t fn_pointer;
6222     void *orig_func;
6223     PMC * const ctx         = CURRENT_CONTEXT(interp);
6224     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6225     PMC *       ret_object  = PMCNULL;
6226     INTVAL return_data;
6227
6228     PMC *t_0;
6229     PMC *t_1;
6230     INTVAL t_2;
6231     INTVAL t_3;
6232     UNUSED(return_data); /* Potentially unused, at least */
6233     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPII", &t_0, &t_1, &t_2, &t_3);
6234
6235     GETATTR_NCI_orig_func(interp, nci, orig_func);
6236     fn_pointer = (func_t)D2FPTR(orig_func);
6237     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3);
6238     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6239
6240
6241
6242
6243 }
6244 static void
6245 pcf_i_ppiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6246 {
6247     typedef int(* func_t)(void *, void *, int, int, int);
6248     func_t fn_pointer;
6249     void *orig_func;
6250     PMC * const ctx         = CURRENT_CONTEXT(interp);
6251     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6252     PMC *       ret_object  = PMCNULL;
6253     INTVAL return_data;
6254
6255     PMC *t_0;
6256     PMC *t_1;
6257     INTVAL t_2;
6258     INTVAL t_3;
6259     INTVAL t_4;
6260     UNUSED(return_data); /* Potentially unused, at least */
6261     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIII", &t_0, &t_1, &t_2, &t_3, &t_4);
6262
6263     GETATTR_NCI_orig_func(interp, nci, orig_func);
6264     fn_pointer = (func_t)D2FPTR(orig_func);
6265     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3, t_4);
6266     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6267
6268
6269
6270
6271
6272 }
6273 static void
6274 pcf_i_ppiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6275 {
6276     typedef int(* func_t)(void *, void *, int, int, int, int);
6277     func_t fn_pointer;
6278     void *orig_func;
6279     PMC * const ctx         = CURRENT_CONTEXT(interp);
6280     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6281     PMC *       ret_object  = PMCNULL;
6282     INTVAL return_data;
6283
6284     PMC *t_0;
6285     PMC *t_1;
6286     INTVAL t_2;
6287     INTVAL t_3;
6288     INTVAL t_4;
6289     INTVAL t_5;
6290     UNUSED(return_data); /* Potentially unused, at least */
6291     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5);
6292
6293     GETATTR_NCI_orig_func(interp, nci, orig_func);
6294     fn_pointer = (func_t)D2FPTR(orig_func);
6295     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3, t_4, t_5);
6296     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6297
6298
6299
6300
6301
6302
6303 }
6304 static void
6305 pcf_i_ppiiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6306 {
6307     typedef int(* func_t)(void *, void *, int, int, int, int, int);
6308     func_t fn_pointer;
6309     void *orig_func;
6310     PMC * const ctx         = CURRENT_CONTEXT(interp);
6311     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6312     PMC *       ret_object  = PMCNULL;
6313     INTVAL return_data;
6314
6315     PMC *t_0;
6316     PMC *t_1;
6317     INTVAL t_2;
6318     INTVAL t_3;
6319     INTVAL t_4;
6320     INTVAL t_5;
6321     INTVAL t_6;
6322     UNUSED(return_data); /* Potentially unused, at least */
6323     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6);
6324
6325     GETATTR_NCI_orig_func(interp, nci, orig_func);
6326     fn_pointer = (func_t)D2FPTR(orig_func);
6327     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3, t_4, t_5, t_6);
6328     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6329
6330
6331
6332
6333
6334
6335
6336 }
6337 static void
6338 pcf_i_ppiiiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6339 {
6340     typedef int(* func_t)(void *, void *, int, int, int, int, int, int);
6341     func_t fn_pointer;
6342     void *orig_func;
6343     PMC * const ctx         = CURRENT_CONTEXT(interp);
6344     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6345     PMC *       ret_object  = PMCNULL;
6346     INTVAL return_data;
6347
6348     PMC *t_0;
6349     PMC *t_1;
6350     INTVAL t_2;
6351     INTVAL t_3;
6352     INTVAL t_4;
6353     INTVAL t_5;
6354     INTVAL t_6;
6355     INTVAL t_7;
6356     UNUSED(return_data); /* Potentially unused, at least */
6357     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6, &t_7);
6358
6359     GETATTR_NCI_orig_func(interp, nci, orig_func);
6360     fn_pointer = (func_t)D2FPTR(orig_func);
6361     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3, t_4, t_5, t_6, t_7);
6362     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6363
6364
6365
6366
6367
6368
6369
6370
6371 }
6372 static void
6373 pcf_i_ppt(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6374 {
6375     typedef int(* func_t)(void *, void *, char *);
6376     func_t fn_pointer;
6377     void *orig_func;
6378     PMC * const ctx         = CURRENT_CONTEXT(interp);
6379     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6380     PMC *       ret_object  = PMCNULL;
6381     INTVAL return_data;
6382
6383     PMC *t_0;
6384     PMC *t_1;
6385     char *t_2; STRING *ts_2;
6386     UNUSED(return_data); /* Potentially unused, at least */
6387     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPS", &t_0, &t_1, &ts_2);
6388     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
6389     GETATTR_NCI_orig_func(interp, nci, orig_func);
6390     fn_pointer = (func_t)D2FPTR(orig_func);
6391     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2);
6392     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6393
6394
6395 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
6396 }
6397 static void
6398 pcf_i_pppi(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6399 {
6400     typedef int(* func_t)(void *, void *, void *, int);
6401     func_t fn_pointer;
6402     void *orig_func;
6403     PMC * const ctx         = CURRENT_CONTEXT(interp);
6404     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6405     PMC *       ret_object  = PMCNULL;
6406     INTVAL return_data;
6407
6408     PMC *t_0;
6409     PMC *t_1;
6410     PMC *t_2;
6411     INTVAL t_3;
6412     UNUSED(return_data); /* Potentially unused, at least */
6413     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPI", &t_0, &t_1, &t_2, &t_3);
6414
6415     GETATTR_NCI_orig_func(interp, nci, orig_func);
6416     fn_pointer = (func_t)D2FPTR(orig_func);
6417     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), t_3);
6418     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6419
6420
6421
6422
6423 }
6424 static void
6425 pcf_i_pppii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6426 {
6427     typedef int(* func_t)(void *, void *, void *, int, int);
6428     func_t fn_pointer;
6429     void *orig_func;
6430     PMC * const ctx         = CURRENT_CONTEXT(interp);
6431     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6432     PMC *       ret_object  = PMCNULL;
6433     INTVAL return_data;
6434
6435     PMC *t_0;
6436     PMC *t_1;
6437     PMC *t_2;
6438     INTVAL t_3;
6439     INTVAL t_4;
6440     UNUSED(return_data); /* Potentially unused, at least */
6441     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPII", &t_0, &t_1, &t_2, &t_3, &t_4);
6442
6443     GETATTR_NCI_orig_func(interp, nci, orig_func);
6444     fn_pointer = (func_t)D2FPTR(orig_func);
6445     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), t_3, t_4);
6446     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6447
6448
6449
6450
6451
6452 }
6453 static void
6454 pcf_i_pppiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6455 {
6456     typedef int(* func_t)(void *, void *, void *, int, int, int, int);
6457     func_t fn_pointer;
6458     void *orig_func;
6459     PMC * const ctx         = CURRENT_CONTEXT(interp);
6460     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6461     PMC *       ret_object  = PMCNULL;
6462     INTVAL return_data;
6463
6464     PMC *t_0;
6465     PMC *t_1;
6466     PMC *t_2;
6467     INTVAL t_3;
6468     INTVAL t_4;
6469     INTVAL t_5;
6470     INTVAL t_6;
6471     UNUSED(return_data); /* Potentially unused, at least */
6472     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6);
6473
6474     GETATTR_NCI_orig_func(interp, nci, orig_func);
6475     fn_pointer = (func_t)D2FPTR(orig_func);
6476     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), t_3, t_4, t_5, t_6);
6477     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6478
6479
6480
6481
6482
6483
6484
6485 }
6486 static void
6487 pcf_i_ppppiiiiii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6488 {
6489     typedef int(* func_t)(void *, void *, void *, void *, int, int, int, int, int, int);
6490     func_t fn_pointer;
6491     void *orig_func;
6492     PMC * const ctx         = CURRENT_CONTEXT(interp);
6493     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6494     PMC *       ret_object  = PMCNULL;
6495     INTVAL return_data;
6496
6497     PMC *t_0;
6498     PMC *t_1;
6499     PMC *t_2;
6500     PMC *t_3;
6501     INTVAL t_4;
6502     INTVAL t_5;
6503     INTVAL t_6;
6504     INTVAL t_7;
6505     INTVAL t_8;
6506     INTVAL t_9;
6507     UNUSED(return_data); /* Potentially unused, at least */
6508     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPPIIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5, &t_6, &t_7, &t_8, &t_9);
6509
6510     GETATTR_NCI_orig_func(interp, nci, orig_func);
6511     fn_pointer = (func_t)D2FPTR(orig_func);
6512     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3), t_4, t_5, t_6, t_7, t_8, t_9);
6513     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6514
6515
6516
6517
6518
6519
6520
6521
6522
6523
6524 }
6525 static void
6526 pcf_v_fff(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6527 {
6528     typedef void(* func_t)(float, float, float);
6529     func_t fn_pointer;
6530     void *orig_func;
6531     PMC * const ctx         = CURRENT_CONTEXT(interp);
6532     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6533     PMC *       ret_object  = PMCNULL;
6534     void * return_data;
6535
6536     FLOATVAL t_0;
6537     FLOATVAL t_1;
6538     FLOATVAL t_2;
6539     UNUSED(return_data); /* Potentially unused, at least */
6540     Parrot_pcc_fill_params_from_c_args(interp, call_object, "NNN", &t_0, &t_1, &t_2);
6541
6542     GETATTR_NCI_orig_func(interp, nci, orig_func);
6543     fn_pointer = (func_t)D2FPTR(orig_func);
6544      (*fn_pointer)(t_0, t_1, t_2);
6545
6546
6547
6548
6549 }
6550 static void
6551 pcf_v_V(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6552 {
6553     typedef void(* func_t)(void **);
6554     func_t fn_pointer;
6555     void *orig_func;
6556     PMC * const ctx         = CURRENT_CONTEXT(interp);
6557     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6558     PMC *       ret_object  = PMCNULL;
6559     void * return_data;
6560
6561     PMC *t_0; void *v_0;
6562     UNUSED(return_data); /* Potentially unused, at least */
6563     Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
6564     v_0 = VTABLE_get_pointer(interp, t_0);
6565     GETATTR_NCI_orig_func(interp, nci, orig_func);
6566     fn_pointer = (func_t)D2FPTR(orig_func);
6567      (*fn_pointer)(&v_0);
6568
6569     VTABLE_set_pointer(interp, t_0, v_0);
6570 }
6571 static void
6572 pcf_v_VVV(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6573 {
6574     typedef void(* func_t)(void **, void **, void **);
6575     func_t fn_pointer;
6576     void *orig_func;
6577     PMC * const ctx         = CURRENT_CONTEXT(interp);
6578     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6579     PMC *       ret_object  = PMCNULL;
6580     void * return_data;
6581
6582     PMC *t_0; void *v_0;
6583     PMC *t_1; void *v_1;
6584     PMC *t_2; void *v_2;
6585     UNUSED(return_data); /* Potentially unused, at least */
6586     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
6587     v_0 = VTABLE_get_pointer(interp, t_0);v_1 = VTABLE_get_pointer(interp, t_1);v_2 = VTABLE_get_pointer(interp, t_2);
6588     GETATTR_NCI_orig_func(interp, nci, orig_func);
6589     fn_pointer = (func_t)D2FPTR(orig_func);
6590      (*fn_pointer)(&v_0, &v_1, &v_2);
6591
6592     VTABLE_set_pointer(interp, t_0, v_0);
6593 VTABLE_set_pointer(interp, t_1, v_1);
6594 VTABLE_set_pointer(interp, t_2, v_2);
6595 }
6596 static void
6597 pcf_i_tV(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6598 {
6599     typedef int(* func_t)(char *, void **);
6600     func_t fn_pointer;
6601     void *orig_func;
6602     PMC * const ctx         = CURRENT_CONTEXT(interp);
6603     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6604     PMC *       ret_object  = PMCNULL;
6605     INTVAL return_data;
6606
6607     char *t_0; STRING *ts_0;
6608     PMC *t_1; void *v_1;
6609     UNUSED(return_data); /* Potentially unused, at least */
6610     Parrot_pcc_fill_params_from_c_args(interp, call_object, "SP", &ts_0, &t_1);
6611     t_0 = STRING_IS_NULL(ts_0) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_0);v_1 = VTABLE_get_pointer(interp, t_1);
6612     GETATTR_NCI_orig_func(interp, nci, orig_func);
6613     fn_pointer = (func_t)D2FPTR(orig_func);
6614     return_data =  (int)(*fn_pointer)(t_0, &v_1);
6615     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6616     if (!STRING_IS_NULL(ts_0)) Parrot_str_free_cstring(t_0);
6617 VTABLE_set_pointer(interp, t_1, v_1);
6618 }
6619 static void
6620 pcf_i_ptiVp(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6621 {
6622     typedef int(* func_t)(void *, char *, int, void **, void *);
6623     func_t fn_pointer;
6624     void *orig_func;
6625     PMC * const ctx         = CURRENT_CONTEXT(interp);
6626     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6627     PMC *       ret_object  = PMCNULL;
6628     INTVAL return_data;
6629
6630     PMC *t_0;
6631     char *t_1; STRING *ts_1;
6632     INTVAL t_2;
6633     PMC *t_3; void *v_3;
6634     PMC *t_4;
6635     UNUSED(return_data); /* Potentially unused, at least */
6636     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSIPP", &t_0, &ts_1, &t_2, &t_3, &t_4);
6637     t_1 = STRING_IS_NULL(ts_1) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_1);v_3 = VTABLE_get_pointer(interp, t_3);
6638     GETATTR_NCI_orig_func(interp, nci, orig_func);
6639     fn_pointer = (func_t)D2FPTR(orig_func);
6640     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, &v_3, PMC_IS_NULL((PMC*)t_4) ? (void *)NULL : VTABLE_get_pointer(interp, t_4));
6641     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6642
6643 if (!STRING_IS_NULL(ts_1)) Parrot_str_free_cstring(t_1);
6644
6645 VTABLE_set_pointer(interp, t_3, v_3);
6646
6647 }
6648 static void
6649 pcf_i_pid(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6650 {
6651     typedef int(* func_t)(void *, int, double);
6652     func_t fn_pointer;
6653     void *orig_func;
6654     PMC * const ctx         = CURRENT_CONTEXT(interp);
6655     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6656     PMC *       ret_object  = PMCNULL;
6657     INTVAL return_data;
6658
6659     PMC *t_0;
6660     INTVAL t_1;
6661     FLOATVAL t_2;
6662     UNUSED(return_data); /* Potentially unused, at least */
6663     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIN", &t_0, &t_1, &t_2);
6664
6665     GETATTR_NCI_orig_func(interp, nci, orig_func);
6666     fn_pointer = (func_t)D2FPTR(orig_func);
6667     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
6668     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6669
6670
6671
6672 }
6673 static void
6674 pcf_i_pitii(PARROT_INTERP, PMC *nci, SHIM(PMC *self))
6675 {
6676     typedef int(* func_t)(void *, int, char *, int, int);
6677     func_t fn_pointer;
6678     void *orig_func;
6679     PMC * const ctx         = CURRENT_CONTEXT(interp);
6680     PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
6681     PMC *       ret_object  = PMCNULL;
6682     INTVAL return_data;
6683
6684     PMC *t_0;
6685     INTVAL t_1;
6686     char *t_2; STRING *ts_2;
6687     INTVAL t_3;
6688     INTVAL t_4;
6689     UNUSED(return_data); /* Potentially unused, at least */
6690     Parrot_pcc_fill_params_from_c_args(interp, call_object, "PISII", &t_0, &t_1, &ts_2, &t_3, &t_4);
6691     t_2 = STRING_IS_NULL(ts_2) ? (char *)NULL : Parrot_str_to_cstring(interp, ts_2);
6692     GETATTR_NCI_orig_func(interp, nci, orig_func);
6693     fn_pointer = (func_t)D2FPTR(orig_func);
6694     return_data =  (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2, t_3, t_4);
6695     ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
6696
6697
6698 if (!STRING_IS_NULL(ts_2)) Parrot_str_free_cstring(t_2);
6699
6700
6701 }
6702
6703  void
6704 Parrot_nci_load_extra_thunks(PARROT_INTERP)
6705  {
6706     PMC * const iglobals = interp->iglobals;
6707     PMC *nci_funcs;
6708     PMC *temp_pmc;
6709
6710     PARROT_ASSERT(!(PMC_IS_NULL(iglobals)));
6711
6712     nci_funcs = VTABLE_get_pmc_keyed_int(interp, iglobals, IGLOBALS_NCI_FUNCS);
6713     PARROT_ASSERT(!(PMC_IS_NULL(nci_funcs)));
6714
6715     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6716     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_J);
6717     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJ"), temp_pmc);
6718
6719     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6720     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ip);
6721     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iip"), temp_pmc);
6722
6723     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6724     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_JPip);
6725     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iJPip"), temp_pmc);
6726
6727     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6728     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_JpP);
6729     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iJpP"), temp_pmc);
6730
6731     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6732     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_Jpii);
6733     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iJpii"), temp_pmc);
6734
6735     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6736     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_p);
6737     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ip"), temp_pmc);
6738
6739     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6740     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_tp);
6741     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "itp"), temp_pmc);
6742
6743     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6744     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_J);
6745     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pJ"), temp_pmc);
6746
6747     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6748     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_Jp);
6749     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pJp"), temp_pmc);
6750
6751     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6752     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_J);
6753     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tJ"), temp_pmc);
6754
6755     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6756     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_Jpti);
6757     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tJpti"), temp_pmc);
6758
6759     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6760     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_p);
6761     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tp"), temp_pmc);
6762
6763     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6764     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_pt);
6765     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tpt"), temp_pmc);
6766
6767     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6768     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_p);
6769     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vp"), temp_pmc);
6770
6771     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6772     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_pit);
6773     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpit"), temp_pmc);
6774
6775     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6776     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_ptt);
6777     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vptt"), temp_pmc);
6778
6779     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6780     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_Jtiiipt);
6781     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJtiiipt"), temp_pmc);
6782
6783     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6784     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_JttPP);
6785     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pJttPP"), temp_pmc);
6786
6787     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6788     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_Jtpi);
6789     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJtpi"), temp_pmc);
6790
6791     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6792     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_Vppp);
6793     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iVppp"), temp_pmc);
6794
6795     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6796     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_JpPP);
6797     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJpPP"), temp_pmc);
6798
6799     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6800     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_pt);
6801     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpt"), temp_pmc);
6802
6803     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6804     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_Jpt);
6805     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJpt"), temp_pmc);
6806
6807     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6808     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_);
6809     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "v"), temp_pmc);
6810
6811     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6812     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_Jiiip);
6813     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJiiip"), temp_pmc);
6814
6815     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6816     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_i);
6817     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vi"), temp_pmc);
6818
6819     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6820     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_ii);
6821     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vii"), temp_pmc);
6822
6823     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6824     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_illllllll);
6825     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "villllllll"), temp_pmc);
6826
6827     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6828     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_l);
6829     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vl"), temp_pmc);
6830
6831     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6832     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_pbip);
6833     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpbip"), temp_pmc);
6834
6835     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6836     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_pi);
6837     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpi"), temp_pmc);
6838
6839     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6840     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_piiii);
6841     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpiiii"), temp_pmc);
6842
6843     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6844     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_pl);
6845     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpl"), temp_pmc);
6846
6847     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6848     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_pp);
6849     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpp"), temp_pmc);
6850
6851     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6852     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_JPP);
6853     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iJPP"), temp_pmc);
6854
6855     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6856     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JP);
6857     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJP"), temp_pmc);
6858
6859     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6860     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JPP);
6861     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJPP"), temp_pmc);
6862
6863     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6864     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JO);
6865     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJO"), temp_pmc);
6866
6867     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6868     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_S_JO);
6869     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "SJO"), temp_pmc);
6870
6871     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6872     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_P);
6873     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iP"), temp_pmc);
6874
6875     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6876     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JOPP);
6877     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJOPP"), temp_pmc);
6878
6879     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6880     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JOPPP);
6881     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJOPPP"), temp_pmc);
6882
6883     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6884     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_JOPP);
6885     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJOPP"), temp_pmc);
6886
6887     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6888     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_JOPPP);
6889     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJOPPP"), temp_pmc);
6890
6891     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6892     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JOPPPP);
6893     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJOPPPP"), temp_pmc);
6894
6895     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6896     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JOPPPPP);
6897     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJOPPPPP"), temp_pmc);
6898
6899     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6900     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_I_JOSI);
6901     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "IJOSI"), temp_pmc);
6902
6903     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6904     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JOSII);
6905     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJOSII"), temp_pmc);
6906
6907     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6908     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_p3);
6909     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tp3"), temp_pmc);
6910
6911     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6912     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pp3p);
6913     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipp3p"), temp_pmc);
6914
6915     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6916     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pp3);
6917     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipp3"), temp_pmc);
6918
6919     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6920     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppd);
6921     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippd"), temp_pmc);
6922
6923     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6924     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ptii);
6925     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iptii"), temp_pmc);
6926
6927     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6928     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pipi);
6929     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipipi"), temp_pmc);
6930
6931     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6932     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_ptti);
6933     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tptti"), temp_pmc);
6934
6935     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6936     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_pti);
6937     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tpti"), temp_pmc);
6938
6939     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6940     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_pttti);
6941     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tpttti"), temp_pmc);
6942
6943     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6944     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_Ji);
6945     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pJi"), temp_pmc);
6946
6947     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6948     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_Jipp);
6949     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pJipp"), temp_pmc);
6950
6951     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6952     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_Jbip);
6953     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pJbip"), temp_pmc);
6954
6955     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6956     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_Jp);
6957     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJp"), temp_pmc);
6958
6959     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6960     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_JS);
6961     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJS"), temp_pmc);
6962
6963     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6964     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_tt);
6965     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ttt"), temp_pmc);
6966
6967     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6968     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_I_JOt);
6969     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "IJOt"), temp_pmc);
6970
6971     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6972     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_JOSI);
6973     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJOSI"), temp_pmc);
6974
6975     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6976     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_S_JOi);
6977     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "SJOi"), temp_pmc);
6978
6979     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6980     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_JOi);
6981     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJOi"), temp_pmc);
6982
6983     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6984     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_I_JO);
6985     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "IJO"), temp_pmc);
6986
6987     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6988     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_N_JO);
6989     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "NJO"), temp_pmc);
6990
6991     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6992     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_JON);
6993     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJON"), temp_pmc);
6994
6995     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
6996     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JOi);
6997     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJOi"), temp_pmc);
6998
6999     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7000     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_JOI);
7001     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJOI"), temp_pmc);
7002
7003     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7004     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JOI);
7005     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJOI"), temp_pmc);
7006
7007     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7008     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_P_JOIS);
7009     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "PJOIS"), temp_pmc);
7010
7011     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7012     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_S_JOSP);
7013     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "SJOSP"), temp_pmc);
7014
7015     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7016     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_);
7017     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "i"), temp_pmc);
7018
7019     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7020     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_i3i);
7021     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ii3i"), temp_pmc);
7022
7023     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7024     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ibi);
7025     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iibi"), temp_pmc);
7026
7027     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7028     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_lttl);
7029     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "llttl"), temp_pmc);
7030
7031     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7032     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pip);
7033     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipip"), temp_pmc);
7034
7035     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7036     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_piS);
7037     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipiS"), temp_pmc);
7038
7039     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7040     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_S_i);
7041     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "Si"), temp_pmc);
7042
7043     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7044     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_p);
7045     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "lp"), temp_pmc);
7046
7047     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7048     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_c_p);
7049     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "cp"), temp_pmc);
7050
7051     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7052     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_pi);
7053     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppi"), temp_pmc);
7054
7055     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7056     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_p);
7057     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pp"), temp_pmc);
7058
7059     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7060     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pttttt);
7061     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipttttt"), temp_pmc);
7062
7063     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7064     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_c_pttt);
7065     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "cpttt"), temp_pmc);
7066
7067     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7068     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_pttttiti);
7069     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppttttiti"), temp_pmc);
7070
7071     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7072     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pt);
7073     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipt"), temp_pmc);
7074
7075     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7076     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ptl);
7077     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iptl"), temp_pmc);
7078
7079     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7080     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pi);
7081     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipi"), temp_pmc);
7082
7083     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7084     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pl);
7085     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipl"), temp_pmc);
7086
7087     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7088     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_);
7089     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "l"), temp_pmc);
7090
7091     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7092     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_pt);
7093     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppt"), temp_pmc);
7094
7095     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7096     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ptt);
7097     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pptt"), temp_pmc);
7098
7099     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7100     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pit);
7101     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipit"), temp_pmc);
7102
7103     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7104     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_pp);
7105     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppp"), temp_pmc);
7106
7107     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7108     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_ttl);
7109     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "lttl"), temp_pmc);
7110
7111     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7112     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_pttl);
7113     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "lpttl"), temp_pmc);
7114
7115     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7116     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_t);
7117     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vt"), temp_pmc);
7118
7119     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7120     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_pttttitl);
7121     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppttttitl"), temp_pmc);
7122
7123     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7124     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_tiB3P);
7125     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ptiB3P"), temp_pmc);
7126
7127     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7128     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_tip3P);
7129     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ptip3P"), temp_pmc);
7130
7131     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7132     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pPtiiipi);
7133     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipPtiiipi"), temp_pmc);
7134
7135     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7136     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_tpiibi);
7137     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "itpiibi"), temp_pmc);
7138
7139     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7140     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ptippppi);
7141     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pptippppi"), temp_pmc);
7142
7143     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7144     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_pi33ipi);
7145     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppi33ipi"), temp_pmc);
7146
7147     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7148     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_pttip);
7149     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppttip"), temp_pmc);
7150
7151     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7152     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ptipppi);
7153     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pptipppi"), temp_pmc);
7154
7155     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7156     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ppP);
7157     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pppP"), temp_pmc);
7158
7159     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7160     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_iiil);
7161     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "piiil"), temp_pmc);
7162
7163     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7164     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppl);
7165     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippl"), temp_pmc);
7166
7167     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7168     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_pip);
7169     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpip"), temp_pmc);
7170
7171     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7172     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_pti);
7173     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppti"), temp_pmc);
7174
7175     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7176     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppp);
7177     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippp"), temp_pmc);
7178
7179     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7180     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ptii);
7181     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pptii"), temp_pmc);
7182
7183     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7184     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ti);
7185     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pti"), temp_pmc);
7186
7187     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7188     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ptp);
7189     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pptp"), temp_pmc);
7190
7191     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7192     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pt33);
7193     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipt33"), temp_pmc);
7194
7195     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7196     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_c_);
7197     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "c"), temp_pmc);
7198
7199     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7200     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_c_pi);
7201     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "cpi"), temp_pmc);
7202
7203     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7204     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_d_);
7205     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "d"), temp_pmc);
7206
7207     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7208     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_d_d);
7209     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "dd"), temp_pmc);
7210
7211     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7212     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_f_);
7213     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "f"), temp_pmc);
7214
7215     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7216     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_f_ff);
7217     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "fff"), temp_pmc);
7218
7219     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7220     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_f_is);
7221     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "fis"), temp_pmc);
7222
7223     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7224     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_b);
7225     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ib"), temp_pmc);
7226
7227     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7228     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_d);
7229     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "id"), temp_pmc);
7230
7231     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7232     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_i);
7233     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ii"), temp_pmc);
7234
7235     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7236     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ii);
7237     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iii"), temp_pmc);
7238
7239     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7240     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ii4);
7241     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iii4"), temp_pmc);
7242
7243     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7244     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ii4i);
7245     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iii4i"), temp_pmc);
7246
7247     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7248     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_iiii);
7249     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iiiii"), temp_pmc);
7250
7251     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7252     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_iiilsp);
7253     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iiiilsp"), temp_pmc);
7254
7255     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7256     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_iil);
7257     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iiil"), temp_pmc);
7258
7259     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7260     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_iili);
7261     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iiili"), temp_pmc);
7262
7263     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7264     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_iip);
7265     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iiip"), temp_pmc);
7266
7267     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7268     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_iit);
7269     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iiit"), temp_pmc);
7270
7271     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7272     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_iiti);
7273     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iiiti"), temp_pmc);
7274
7275     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7276     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ilsp);
7277     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iilsp"), temp_pmc);
7278
7279     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7280     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_iti);
7281     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iiti"), temp_pmc);
7282
7283     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7284     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_l);
7285     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "il"), temp_pmc);
7286
7287     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7288     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_li);
7289     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ili"), temp_pmc);
7290
7291     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7292     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_lp);
7293     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ilp"), temp_pmc);
7294
7295     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7296     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_lsp);
7297     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ilsp"), temp_pmc);
7298
7299     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7300     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_p33);
7301     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ip33"), temp_pmc);
7302
7303     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7304     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_p333);
7305     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ip333"), temp_pmc);
7306
7307     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7308     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_p333333);
7309     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ip333333"), temp_pmc);
7310
7311     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7312     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_p4);
7313     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ip4"), temp_pmc);
7314
7315     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7316     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_p42p);
7317     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ip42p"), temp_pmc);
7318
7319     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7320     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_p4i);
7321     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ip4i"), temp_pmc);
7322
7323     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7324     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pb);
7325     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipb"), temp_pmc);
7326
7327     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7328     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pii);
7329     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipii"), temp_pmc);
7330
7331     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7332     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pii4);
7333     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipii4"), temp_pmc);
7334
7335     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7336     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pii4i);
7337     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipii4i"), temp_pmc);
7338
7339     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7340     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_piii);
7341     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipiii"), temp_pmc);
7342
7343     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7344     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_piiiiii);
7345     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipiiiiii"), temp_pmc);
7346
7347     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7348     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_piiilsp);
7349     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipiiilsp"), temp_pmc);
7350
7351     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7352     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_piil);
7353     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipiil"), temp_pmc);
7354
7355     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7356     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_piili);
7357     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipiili"), temp_pmc);
7358
7359     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7360     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_piit);
7361     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipiit"), temp_pmc);
7362
7363     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7364     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_piiti);
7365     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipiiti"), temp_pmc);
7366
7367     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7368     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pilsp);
7369     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipilsp"), temp_pmc);
7370
7371     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7372     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pli);
7373     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipli"), temp_pmc);
7374
7375     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7376     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pll);
7377     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipll"), temp_pmc);
7378
7379     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7380     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pllllllll);
7381     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipllllllll"), temp_pmc);
7382
7383     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7384     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_plp);
7385     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iplp"), temp_pmc);
7386
7387     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7388     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_plsp);
7389     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iplsp"), temp_pmc);
7390
7391     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7392     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pp);
7393     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipp"), temp_pmc);
7394
7395     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7396     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppi);
7397     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippi"), temp_pmc);
7398
7399     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7400     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppiiiiiiii);
7401     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippiiiiiiii"), temp_pmc);
7402
7403     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7404     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pppp);
7405     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipppp"), temp_pmc);
7406
7407     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7408     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_psp);
7409     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipsp"), temp_pmc);
7410
7411     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7412     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pti);
7413     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipti"), temp_pmc);
7414
7415     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7416     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pitl);
7417     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipitl"), temp_pmc);
7418
7419     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7420     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_s);
7421     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "is"), temp_pmc);
7422
7423     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7424     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_s22);
7425     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "is22"), temp_pmc);
7426
7427     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7428     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_s222);
7429     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "is222"), temp_pmc);
7430
7431     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7432     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_sp);
7433     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "isp"), temp_pmc);
7434
7435     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7436     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_sss);
7437     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "isss"), temp_pmc);
7438
7439     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7440     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ssss);
7441     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "issss"), temp_pmc);
7442
7443     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7444     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_t);
7445     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "it"), temp_pmc);
7446
7447     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7448     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ti);
7449     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iti"), temp_pmc);
7450
7451     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7452     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_4);
7453     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "i4"), temp_pmc);
7454
7455     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7456     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_4i);
7457     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "i4i"), temp_pmc);
7458
7459     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7460     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_42p);
7461     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "i42p"), temp_pmc);
7462
7463     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7464     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_ii);
7465     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "lii"), temp_pmc);
7466
7467     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7468     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_l4);
7469     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ll4"), temp_pmc);
7470
7471     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7472     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_pi);
7473     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "lpi"), temp_pmc);
7474
7475     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7476     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_pii);
7477     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "lpii"), temp_pmc);
7478
7479     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7480     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_p33l);
7481     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "lp33l"), temp_pmc);
7482
7483     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7484     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_l_33l);
7485     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "l33l"), temp_pmc);
7486
7487     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7488     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_);
7489     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "p"), temp_pmc);
7490
7491     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7492     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_B);
7493     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pB"), temp_pmc);
7494
7495     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7496     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_b);
7497     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pb"), temp_pmc);
7498
7499     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7500     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_Jt);
7501     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pJt"), temp_pmc);
7502
7503     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7504     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_i);
7505     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pi"), temp_pmc);
7506
7507     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7508     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ii);
7509     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pii"), temp_pmc);
7510
7511     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7512     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_iiii);
7513     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "piiii"), temp_pmc);
7514
7515     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7516     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_iiiiii);
7517     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "piiiiii"), temp_pmc);
7518
7519     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7520     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_iiiiiiii);
7521     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "piiiiiiii"), temp_pmc);
7522
7523     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7524     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_pii);
7525     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppii"), temp_pmc);
7526
7527     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7528     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_piiii);
7529     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ppiiii"), temp_pmc);
7530
7531     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7532     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_t);
7533     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pt"), temp_pmc);
7534
7535     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7536     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_tpp);
7537     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ptpp"), temp_pmc);
7538
7539     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7540     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ttttttt);
7541     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pttttttt"), temp_pmc);
7542
7543     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7544     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_s_);
7545     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "s"), temp_pmc);
7546
7547     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7548     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_);
7549     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "t"), temp_pmc);
7550
7551     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7552     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_i);
7553     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ti"), temp_pmc);
7554
7555     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7556     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_ii);
7557     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tii"), temp_pmc);
7558
7559     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7560     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_pi);
7561     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tpi"), temp_pmc);
7562
7563     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7564     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_pii);
7565     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tpii"), temp_pmc);
7566
7567     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7568     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_t);
7569     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tt"), temp_pmc);
7570
7571     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7572     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_tl4);
7573     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ttl4"), temp_pmc);
7574
7575     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7576     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_t4);
7577     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tt4"), temp_pmc);
7578
7579     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7580     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_sc);
7581     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "isc"), temp_pmc);
7582
7583     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7584     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_s_sc);
7585     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ssc"), temp_pmc);
7586
7587     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7588     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_c_sc);
7589     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "csc"), temp_pmc);
7590
7591     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7592     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_iii);
7593     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iiii"), temp_pmc);
7594
7595     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7596     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_i3);
7597     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ii3"), temp_pmc);
7598
7599     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7600     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_b);
7601     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tb"), temp_pmc);
7602
7603     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7604     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_t_B);
7605     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "tB"), temp_pmc);
7606
7607     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7608     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_P);
7609     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vP"), temp_pmc);
7610
7611     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7612     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_pP);
7613     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpP"), temp_pmc);
7614
7615     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7616     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ip);
7617     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pip"), temp_pmc);
7618
7619     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7620     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_33);
7621     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "i33"), temp_pmc);
7622
7623     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7624     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_pii);
7625     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vpii"), temp_pmc);
7626
7627     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7628     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_JO);
7629     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vJO"), temp_pmc);
7630
7631     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7632     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_JO);
7633     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iJO"), temp_pmc);
7634
7635     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7636     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_JOi);
7637     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iJOi"), temp_pmc);
7638
7639     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7640     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_JOt);
7641     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iJOt"), temp_pmc);
7642
7643     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7644     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_Jt);
7645     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iJt"), temp_pmc);
7646
7647     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7648     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_Ji);
7649     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iJi"), temp_pmc);
7650
7651     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7652     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_Vi);
7653     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vVi"), temp_pmc);
7654
7655     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7656     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ppiii);
7657     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pppiii"), temp_pmc);
7658
7659     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7660     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_p_ppiiiiiii);
7661     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "pppiiiiiii"), temp_pmc);
7662
7663     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7664     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppii);
7665     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippii"), temp_pmc);
7666
7667     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7668     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppiii);
7669     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippiii"), temp_pmc);
7670
7671     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7672     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppiiii);
7673     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippiiii"), temp_pmc);
7674
7675     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7676     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppiiiii);
7677     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippiiiii"), temp_pmc);
7678
7679     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7680     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppiiiiii);
7681     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippiiiiii"), temp_pmc);
7682
7683     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7684     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppt);
7685     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippt"), temp_pmc);
7686
7687     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7688     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pppi);
7689     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipppi"), temp_pmc);
7690
7691     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7692     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pppii);
7693     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipppii"), temp_pmc);
7694
7695     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7696     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pppiiii);
7697     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipppiiii"), temp_pmc);
7698
7699     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7700     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ppppiiiiii);
7701     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ippppiiiiii"), temp_pmc);
7702
7703     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7704     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_fff);
7705     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vfff"), temp_pmc);
7706
7707     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7708     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_V);
7709     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vV"), temp_pmc);
7710
7711     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7712     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_v_VVV);
7713     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "vVVV"), temp_pmc);
7714
7715     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7716     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_tV);
7717     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "itV"), temp_pmc);
7718
7719     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7720     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_ptiVp);
7721     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "iptiVp"), temp_pmc);
7722
7723     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7724     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pid);
7725     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipid"), temp_pmc);
7726
7727     temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
7728     VTABLE_set_pointer(interp, temp_pmc, (void *)pcf_i_pitii);
7729     VTABLE_set_pmc_keyed_str(interp, nci_funcs, CONST_STRING(interp, "ipitii"), temp_pmc);
7730
7731
7732 }
7733
7734
7735 /*
7736  * Local variables:
7737  *   c-file-style: "parrot"
7738  * End:
7739  * vim: expandtab shiftwidth=4:
7740  */
7741