[svn:parrot] r45470 - trunk/src/nci
plobsing at svn.parrot.org
plobsing at svn.parrot.org
Thu Apr 8 23:57:56 UTC 2010
Author: plobsing
Date: Thu Apr 8 23:57:55 2010
New Revision: 45470
URL: https://trac.parrot.org/parrot/changeset/45470
Log:
regenerate nci thunks
Modified:
trunk/src/nci/core_thunks.c
trunk/src/nci/extra_thunks.c
Modified: trunk/src/nci/core_thunks.c
==============================================================================
--- trunk/src/nci/core_thunks.c Thu Apr 8 23:26:04 2010 (r45469)
+++ trunk/src/nci/core_thunks.c Thu Apr 8 23:57:55 2010 (r45470)
@@ -20,6 +20,7 @@
* References:
*/
+
#include "parrot/parrot.h"
#include "pmc/pmc_nci.h"
@@ -1129,19 +1130,14 @@
void
Parrot_nci_load_core_thunks(PARROT_INTERP)
-;
- void
-Parrot_nci_load_core_thunks(PARROT_INTERP)
{
- PMC *iglobals;
+ PMC * const iglobals = interp->iglobals;
PMC *nci_funcs;
PMC *temp_pmc;
- iglobals = interp->iglobals;
PARROT_ASSERT(!(PMC_IS_NULL(iglobals)));
- nci_funcs = VTABLE_get_pmc_keyed_int(interp, iglobals,
- IGLOBALS_NCI_FUNCS);
+ nci_funcs = VTABLE_get_pmc_keyed_int(interp, iglobals, IGLOBALS_NCI_FUNCS);
PARROT_ASSERT(!(PMC_IS_NULL(nci_funcs)));
temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
Modified: trunk/src/nci/extra_thunks.c
==============================================================================
--- trunk/src/nci/extra_thunks.c Thu Apr 8 23:26:04 2010 (r45469)
+++ trunk/src/nci/extra_thunks.c Thu Apr 8 23:57:55 2010 (r45470)
@@ -45,11 +45,13 @@
typedef void(* func_t)(PARROT_INTERP);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "");
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -64,18 +66,20 @@
typedef int(* func_t)(int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -85,19 +89,21 @@
typedef int(* func_t)(PARROT_INTERP, PMC *, int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC * t_1;
INTVAL t_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(interp, t_1, t_2, PMC_IS_NULL((PMC*)t_3) ? (void *)NULL : VTABLE_get_pointer(interp, t_3));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -109,18 +115,20 @@
typedef int(* func_t)(PARROT_INTERP, void *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_1;
PMC * t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -131,19 +139,21 @@
typedef int(* func_t)(PARROT_INTERP, void *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -155,17 +165,19 @@
typedef int(* func_t)(void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -174,18 +186,20 @@
typedef int(* func_t)(char *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
char *t_0; STRING *ts_0;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SP", &ts_0, &t_1);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_0) Parrot_str_free_cstring(t_0);
}
@@ -195,12 +209,14 @@
typedef void *(* func_t)(PARROT_INTERP);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "");
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -210,7 +226,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
static void
@@ -219,12 +235,14 @@
typedef void *(* func_t)(PARROT_INTERP, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -234,7 +252,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
@@ -244,19 +262,21 @@
typedef char *(* func_t)(PARROT_INTERP);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "");
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(interp);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
}
static void
@@ -265,21 +285,23 @@
typedef char *(* func_t)(PARROT_INTERP, void *, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
PMC *t_1;
char *t_2; STRING *ts_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_1, &ts_2, &t_3);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(interp, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1), t_2, t_3);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -291,19 +313,21 @@
typedef char *(* func_t)(void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
PMC *t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
}
static void
@@ -312,20 +336,22 @@
typedef char *(* func_t)(void *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
PMC *t_0;
char *t_1; STRING *ts_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &ts_1);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
}
@@ -335,11 +361,13 @@
typedef void(* func_t)(void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -354,13 +382,15 @@
typedef void(* func_t)(void *, int, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
INTVAL t_1;
char *t_2; STRING *ts_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIS", &t_0, &t_1, &ts_2);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -377,13 +407,15 @@
typedef void(* func_t)(void *, char *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
char *t_1; STRING *ts_1;
char *t_2; STRING *ts_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSS", &t_0, &ts_1, &ts_2);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -400,8 +432,9 @@
typedef void(* func_t)(PARROT_INTERP, char *, int, int, int, void *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
char *t_1; STRING *ts_1;
@@ -410,6 +443,7 @@
INTVAL t_4;
PMC *t_5;
char *t_6; STRING *ts_6;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SIIIPS", &ts_1, &t_2, &t_3, &t_4, &t_5, &ts_6);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_6 = ts_6 ? Parrot_str_to_cstring(interp, ts_6) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -430,8 +464,9 @@
typedef void *(* func_t)(PARROT_INTERP, char *, char *, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -439,6 +474,7 @@
char *t_2; STRING *ts_2;
PMC * t_3;
PMC * t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SSPP", &ts_1, &ts_2, &t_3, &t_4);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -448,7 +484,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -461,19 +497,21 @@
typedef PMC *(* func_t)(PARROT_INTERP, char *, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
char *t_1; STRING *ts_1;
PMC *t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SPI", &ts_1, &t_2, &t_3);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2), t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -485,20 +523,22 @@
typedef int(* func_t)(void **, void *, void *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0; void *v_0;
PMC *t_1;
PMC *t_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
v_0 = VTABLE_get_pointer(interp, t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_pointer(interp, t_0, v_0);
@@ -510,13 +550,15 @@
typedef void(* func_t)(PARROT_INTERP, void *, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_1;
PMC * t_2;
PMC * t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -534,12 +576,14 @@
typedef void(* func_t)(void *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
char *t_1; STRING *ts_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &ts_1);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -555,12 +599,14 @@
typedef void(* func_t)(PARROT_INTERP, void *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_1;
char *t_2; STRING *ts_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_1, &ts_2);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -577,11 +623,13 @@
typedef void(* func_t)(void);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
;
+ UNUSED(return_data); /* Potentially unused, at least */
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
(*fn_pointer)();
@@ -594,14 +642,16 @@
typedef void(* func_t)(PARROT_INTERP, int, int, int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
INTVAL t_1;
INTVAL t_2;
INTVAL t_3;
PMC *t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIP", &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -620,11 +670,13 @@
typedef void(* func_t)(int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
INTVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -639,12 +691,14 @@
typedef void(* func_t)(int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -660,8 +714,9 @@
typedef void(* func_t)(int, long, long, long, long, long, long, long, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
INTVAL t_0;
@@ -673,6 +728,7 @@
INTVAL t_6;
INTVAL t_7;
INTVAL t_8;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -695,11 +751,13 @@
typedef void(* func_t)(long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
INTVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -714,14 +772,16 @@
typedef void(* func_t)(void *, void *, int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
STRING *t_1;
INTVAL t_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSIP", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -739,12 +799,14 @@
typedef void(* func_t)(void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -760,8 +822,9 @@
typedef void(* func_t)(void *, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
@@ -769,6 +832,7 @@
INTVAL t_2;
INTVAL t_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIII", &t_0, &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -787,12 +851,14 @@
typedef void(* func_t)(void *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -808,12 +874,14 @@
typedef void(* func_t)(void *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -829,18 +897,20 @@
typedef int(* func_t)(PARROT_INTERP, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC * t_1;
PMC * t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(interp, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -851,17 +921,19 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
}
@@ -871,18 +943,20 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
PMC * t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
@@ -893,17 +967,19 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
}
@@ -913,17 +989,19 @@
typedef STRING *(* func_t)(PARROT_INTERP, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
STRING * return_data;
PMC * t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (STRING *)(*fn_pointer)(interp, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
}
@@ -933,17 +1011,19 @@
typedef int(* func_t)(PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC * t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -952,19 +1032,21 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
PMC * t_2;
PMC * t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPP", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
@@ -976,20 +1058,22 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
PMC * t_2;
PMC * t_3;
PMC * t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPPP", &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3, t_4);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
@@ -1002,13 +1086,15 @@
typedef void(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * t_1;
PMC * t_2;
PMC * t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPP", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1026,14 +1112,16 @@
typedef void(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * t_1;
PMC * t_2;
PMC * t_3;
PMC * t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPPP", &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1052,8 +1140,9 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
@@ -1061,12 +1150,13 @@
PMC * t_3;
PMC * t_4;
PMC * t_5;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPPPP", &t_1, &t_2, &t_3, &t_4, &t_5);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3, t_4, t_5);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
@@ -1080,8 +1170,9 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *, PMC *, PMC *, PMC *, PMC *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
@@ -1090,12 +1181,13 @@
PMC * t_4;
PMC * t_5;
PMC * t_6;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiPPPPP", &t_1, &t_2, &t_3, &t_4, &t_5, &t_6);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3, t_4, t_5, t_6);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
@@ -1110,19 +1202,21 @@
typedef INTVAL(* func_t)(PARROT_INTERP, PMC *, STRING *, INTVAL);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC * t_1;
STRING * t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiSI", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (INTVAL)(*fn_pointer)(interp, t_1, t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -1134,20 +1228,22 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *, STRING *, INTVAL, INTVAL);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
STRING * t_2;
INTVAL t_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiSII", &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3, t_4);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
@@ -1160,20 +1256,22 @@
typedef char *(* func_t)(void *, int *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
PMC *t_0;
PMC *t_1; int i_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
VTABLE_set_integer_native(interp, t_1, i_1);
}
@@ -1183,20 +1281,22 @@
typedef int(* func_t)(void *, void *, int *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
PMC *t_2; int i_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
i_2 = VTABLE_get_integer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -1208,19 +1308,21 @@
typedef int(* func_t)(void *, void *, int *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
PMC *t_2; int i_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
i_2 = VTABLE_get_integer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -1231,19 +1333,21 @@
typedef int(* func_t)(void *, void *, double);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
FLOATVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPN", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -1254,20 +1358,22 @@
typedef int(* func_t)(void *, char *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
char *t_1; STRING *ts_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSII", &t_0, &ts_1, &t_2, &t_3);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -1279,20 +1385,22 @@
typedef int(* func_t)(void *, int, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
PMC *t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIPI", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -1304,8 +1412,9 @@
typedef char *(* func_t)(void *, char *, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
@@ -1313,13 +1422,14 @@
char *t_1; STRING *ts_1;
char *t_2; STRING *ts_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSI", &t_0, &ts_1, &ts_2, &t_3);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -1331,21 +1441,23 @@
typedef char *(* func_t)(void *, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
PMC *t_0;
char *t_1; STRING *ts_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_0, &ts_1, &t_2);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -1356,8 +1468,9 @@
typedef char *(* func_t)(void *, char *, char *, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
@@ -1366,13 +1479,14 @@
char *t_2; STRING *ts_2;
char *t_3; STRING *ts_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSSI", &t_0, &ts_1, &ts_2, &ts_3, &t_4);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;t_3 = ts_3 ? Parrot_str_to_cstring(interp, ts_3) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -1385,12 +1499,14 @@
typedef void *(* func_t)(PARROT_INTERP, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1400,7 +1516,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
@@ -1410,14 +1526,16 @@
typedef void *(* func_t)(PARROT_INTERP, int, void *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
INTVAL t_1;
PMC *t_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IPP", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1427,7 +1545,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -1439,14 +1557,16 @@
typedef void *(* func_t)(PARROT_INTERP, void *, int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
STRING *t_1;
INTVAL t_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SIP", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1456,7 +1576,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -1468,11 +1588,13 @@
typedef void(* func_t)(PARROT_INTERP, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1488,11 +1610,13 @@
typedef void(* func_t)(PARROT_INTERP, STRING *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
STRING * t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1508,20 +1632,22 @@
typedef char *(* func_t)(char *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
char *t_0; STRING *ts_0;
char *t_1; STRING *ts_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SS", &ts_0, &ts_1);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(t_0, t_1);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
if (t_1) Parrot_str_free_cstring(t_1);
}
@@ -1531,18 +1657,20 @@
typedef INTVAL(* func_t)(PARROT_INTERP, PMC *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC * t_1;
char *t_2; STRING *ts_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiS", &t_1, &ts_2);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (INTVAL)(*fn_pointer)(interp, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -1553,13 +1681,15 @@
typedef void(* func_t)(PARROT_INTERP, PMC *, STRING *, INTVAL);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * t_1;
STRING * t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiSI", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1577,18 +1707,20 @@
typedef STRING *(* func_t)(PARROT_INTERP, PMC *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
STRING * return_data;
PMC * t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (STRING *)(*fn_pointer)(interp, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
@@ -1599,12 +1731,14 @@
typedef void(* func_t)(PARROT_INTERP, PMC *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1621,17 +1755,19 @@
typedef INTVAL(* func_t)(PARROT_INTERP, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC * t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (INTVAL)(*fn_pointer)(interp, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -1641,17 +1777,19 @@
typedef FLOATVAL(* func_t)(PARROT_INTERP, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
FLOATVAL return_data;
PMC * t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (FLOATVAL)(*fn_pointer)(interp, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
}
@@ -1661,12 +1799,14 @@
typedef void(* func_t)(PARROT_INTERP, PMC *, FLOATVAL);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * t_1;
FLOATVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiN", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1683,18 +1823,20 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
@@ -1705,12 +1847,14 @@
typedef void(* func_t)(PARROT_INTERP, PMC *, INTVAL);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -1727,18 +1871,20 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *, INTVAL);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
@@ -1749,19 +1895,21 @@
typedef PMC *(* func_t)(PARROT_INTERP, PMC *, INTVAL, STRING *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
PMC * return_data;
PMC * t_1;
INTVAL t_2;
STRING * t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiIS", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (PMC *)(*fn_pointer)(interp, t_1, t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", return_data);
@@ -1773,19 +1921,21 @@
typedef STRING *(* func_t)(PARROT_INTERP, PMC *, STRING *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
STRING * return_data;
PMC * t_1;
STRING * t_2;
PMC * t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiSP", &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (STRING *)(*fn_pointer)(interp, t_1, t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
@@ -1797,15 +1947,17 @@
typedef int(* func_t)(void);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
;
+ UNUSED(return_data); /* Potentially unused, at least */
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)();
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -1814,19 +1966,21 @@
typedef int(* func_t)(int, int *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
PMC *t_1; int i_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IPI", &t_0, &t_1, &t_2);
i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, &i_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
@@ -1837,19 +1991,21 @@
typedef int(* func_t)(int, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
STRING *t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "ISI", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, Buffer_bufstart(t_1), t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -1860,20 +2016,22 @@
typedef long(* func_t)(long, char *, char *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
char *t_1; STRING *ts_1;
char *t_2; STRING *ts_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "ISSI", &t_0, &ts_1, &ts_2, &t_3);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (long)(*fn_pointer)(t_0, t_1, t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -1885,19 +2043,21 @@
typedef int(* func_t)(void *, int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -1908,19 +2068,21 @@
typedef int(* func_t)(void *, int, STRING *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
STRING * t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIS", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -1931,17 +2093,19 @@
typedef STRING *(* func_t)(int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
STRING * return_data;
INTVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (STRING *)(*fn_pointer)(t_0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", return_data);
}
static void
@@ -1950,17 +2114,19 @@
typedef long(* func_t)(void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (long)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -1969,17 +2135,19 @@
typedef char(* func_t)(void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -1988,13 +2156,15 @@
typedef void *(* func_t)(void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2004,7 +2174,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
@@ -2014,12 +2184,14 @@
typedef void *(* func_t)(void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2029,7 +2201,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
static void
@@ -2038,8 +2210,9 @@
typedef int(* func_t)(void *, char *, char *, char *, char *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -2048,12 +2221,13 @@
char *t_3; STRING *ts_3;
char *t_4; STRING *ts_4;
char *t_5; STRING *ts_5;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSSSS", &t_0, &ts_1, &ts_2, &ts_3, &ts_4, &ts_5);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;t_3 = ts_3 ? Parrot_str_to_cstring(interp, ts_3) : (char *)NULL;t_4 = ts_4 ? Parrot_str_to_cstring(interp, ts_4) : (char *)NULL;t_5 = ts_5 ? Parrot_str_to_cstring(interp, ts_5) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2067,20 +2241,22 @@
typedef char(* func_t)(void *, char *, char *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
char *t_1; STRING *ts_1;
char *t_2; STRING *ts_2;
char *t_3; STRING *ts_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSS", &t_0, &ts_1, &ts_2, &ts_3);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;t_3 = ts_3 ? Parrot_str_to_cstring(interp, ts_3) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2092,8 +2268,9 @@
typedef void *(* func_t)(void *, char *, char *, char *, char *, int, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2105,6 +2282,7 @@
INTVAL t_5;
char *t_6; STRING *ts_6;
INTVAL t_7;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;t_3 = ts_3 ? Parrot_str_to_cstring(interp, ts_3) : (char *)NULL;t_4 = ts_4 ? Parrot_str_to_cstring(interp, ts_4) : (char *)NULL;t_6 = ts_6 ? Parrot_str_to_cstring(interp, ts_6) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2114,7 +2292,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2130,18 +2308,20 @@
typedef int(* func_t)(void *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
char *t_1; STRING *ts_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &ts_1);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
}
@@ -2151,19 +2331,21 @@
typedef int(* func_t)(void *, char *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
char *t_1; STRING *ts_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_0, &ts_1, &t_2);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -2174,18 +2356,20 @@
typedef int(* func_t)(void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -2195,18 +2379,20 @@
typedef int(* func_t)(void *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -2216,15 +2402,17 @@
typedef long(* func_t)(void);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
;
+ UNUSED(return_data); /* Potentially unused, at least */
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (long)(*fn_pointer)();
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -2233,13 +2421,15 @@
typedef void *(* func_t)(void *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_0;
char *t_1; STRING *ts_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &ts_1);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2249,7 +2439,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
}
@@ -2259,14 +2449,16 @@
typedef void *(* func_t)(void *, char *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_0;
char *t_1; STRING *ts_1;
char *t_2; STRING *ts_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSS", &t_0, &ts_1, &ts_2);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2276,7 +2468,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2287,19 +2479,21 @@
typedef int(* func_t)(void *, int, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
char *t_2; STRING *ts_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIS", &t_0, &t_1, &ts_2);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2310,13 +2504,15 @@
typedef void *(* func_t)(void *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_0;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2326,7 +2522,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
@@ -2336,19 +2532,21 @@
typedef long(* func_t)(char *, char *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
char *t_0; STRING *ts_0;
char *t_1; STRING *ts_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SSI", &ts_0, &ts_1, &t_2);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (long)(*fn_pointer)(t_0, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_0) Parrot_str_free_cstring(t_0);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -2359,20 +2557,22 @@
typedef long(* func_t)(void *, char *, char *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
char *t_1; STRING *ts_1;
char *t_2; STRING *ts_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSI", &t_0, &ts_1, &ts_2, &t_3);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2384,11 +2584,13 @@
typedef void(* func_t)(char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
char *t_0; STRING *ts_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2403,8 +2605,9 @@
typedef void *(* func_t)(void *, char *, char *, char *, char *, int, char *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2416,6 +2619,7 @@
INTVAL t_5;
char *t_6; STRING *ts_6;
INTVAL t_7;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;t_3 = ts_3 ? Parrot_str_to_cstring(interp, ts_3) : (char *)NULL;t_4 = ts_4 ? Parrot_str_to_cstring(interp, ts_4) : (char *)NULL;t_6 = ts_6 ? Parrot_str_to_cstring(interp, ts_6) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2425,7 +2629,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2441,8 +2645,9 @@
typedef void *(* func_t)(char *, int, char **, int *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2451,6 +2656,7 @@
char *t_2; STRING *ts_2;
PMC *t_3; int i_3;
PMC * t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SISPP", &ts_0, &t_1, &ts_2, &t_3, &t_4);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *) NULL;i_3 = VTABLE_get_integer(interp, t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2460,7 +2666,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2473,8 +2679,9 @@
typedef void *(* func_t)(char *, int, void *, int *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2483,6 +2690,7 @@
PMC *t_2;
PMC *t_3; int i_3;
PMC * t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SIPPP", &ts_0, &t_1, &t_2, &t_3, &t_4);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;i_3 = VTABLE_get_integer(interp, t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2492,7 +2700,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
@@ -2505,8 +2713,9 @@
typedef int(* func_t)(void *, PMC *, char *, int, int, int, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -2517,12 +2726,13 @@
INTVAL t_5;
PMC *t_6;
INTVAL t_7;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2538,8 +2748,9 @@
typedef int(* func_t)(char *, void *, int, int, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
char *t_0; STRING *ts_0;
@@ -2548,12 +2759,13 @@
INTVAL t_3;
STRING *t_4;
INTVAL t_5;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SPIISI", &ts_0, &t_1, &t_2, &t_3, &t_4, &t_5);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_0) Parrot_str_free_cstring(t_0);
@@ -2567,8 +2779,9 @@
typedef void *(* func_t)(void *, char *, int, void *, void *, void *, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2580,6 +2793,7 @@
PMC *t_5;
PMC *t_6;
INTVAL t_7;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2589,7 +2803,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -2605,8 +2819,9 @@
typedef void *(* func_t)(void *, int, int *, int *, int, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2617,6 +2832,7 @@
INTVAL t_4;
PMC *t_5;
INTVAL t_6;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
i_2 = VTABLE_get_integer(interp, t_2);i_3 = VTABLE_get_integer(interp, t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2626,7 +2842,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -2641,8 +2857,9 @@
typedef void *(* func_t)(void *, char *, char *, int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2651,6 +2868,7 @@
char *t_2; STRING *ts_2;
INTVAL t_3;
PMC *t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSSIP", &t_0, &ts_1, &ts_2, &t_3, &t_4);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2660,7 +2878,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -2673,8 +2891,9 @@
typedef void *(* func_t)(void *, char *, int, void *, void *, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2685,6 +2904,7 @@
PMC *t_4;
PMC *t_5;
INTVAL t_6;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2694,7 +2914,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -2709,14 +2929,16 @@
typedef void *(* func_t)(void *, void *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_0;
PMC *t_1;
PMC * t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2726,7 +2948,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -2737,8 +2959,9 @@
typedef void *(* func_t)(int, int, int, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2746,6 +2969,7 @@
INTVAL t_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2755,7 +2979,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -2767,19 +2991,21 @@
typedef int(* func_t)(void *, void *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPI", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -2790,13 +3016,15 @@
typedef void(* func_t)(void *, int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
INTVAL t_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2813,14 +3041,16 @@
typedef void *(* func_t)(void *, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_0;
char *t_1; STRING *ts_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_0, &ts_1, &t_2);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2830,7 +3060,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -2841,19 +3071,21 @@
typedef int(* func_t)(void *, void *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -2864,8 +3096,9 @@
typedef void *(* func_t)(void *, char *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -2873,6 +3106,7 @@
char *t_1; STRING *ts_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSII", &t_0, &ts_1, &t_2, &t_3);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2882,7 +3116,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -2894,13 +3128,15 @@
typedef void *(* func_t)(char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
char *t_0; STRING *ts_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SI", &ts_0, &t_1);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2910,7 +3146,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
}
@@ -2920,14 +3156,16 @@
typedef void *(* func_t)(void *, char *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_0;
char *t_1; STRING *ts_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSP", &t_0, &ts_1, &t_2);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -2937,7 +3175,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -2948,20 +3186,22 @@
typedef int(* func_t)(void *, char *, int *, int *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
char *t_1; STRING *ts_1;
PMC *t_2; int i_2;
PMC *t_3; int i_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSPP", &t_0, &ts_1, &t_2, &t_3);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;i_2 = VTABLE_get_integer(interp, t_2);i_3 = VTABLE_get_integer(interp, t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -2973,15 +3213,17 @@
typedef char(* func_t)(void);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
;
+ UNUSED(return_data); /* Potentially unused, at least */
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char)(*fn_pointer)();
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -2990,18 +3232,20 @@
typedef char(* func_t)(void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -3011,15 +3255,17 @@
typedef double(* func_t)(void);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
FLOATVAL return_data;
;
+ UNUSED(return_data); /* Potentially unused, at least */
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (double)(*fn_pointer)();
- Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
}
static void
@@ -3028,17 +3274,19 @@
typedef double(* func_t)(double);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
FLOATVAL return_data;
FLOATVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "N", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (double)(*fn_pointer)(t_0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
}
static void
@@ -3047,15 +3295,17 @@
typedef float(* func_t)(void);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
FLOATVAL return_data;
;
+ UNUSED(return_data); /* Potentially unused, at least */
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (float)(*fn_pointer)();
- Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
}
static void
@@ -3064,18 +3314,20 @@
typedef float(* func_t)(float, float);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
FLOATVAL return_data;
FLOATVAL t_0;
FLOATVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "NN", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (float)(*fn_pointer)(t_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
}
@@ -3085,18 +3337,20 @@
typedef float(* func_t)(int, short);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
FLOATVAL return_data;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (float)(*fn_pointer)(t_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "N", return_data);
}
@@ -3106,17 +3360,19 @@
typedef int(* func_t)(void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
STRING *t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(Buffer_bufstart(t_0));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -3125,17 +3381,19 @@
typedef int(* func_t)(double);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
FLOATVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "N", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -3144,17 +3402,19 @@
typedef int(* func_t)(int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -3163,18 +3423,20 @@
typedef int(* func_t)(int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -3184,19 +3446,21 @@
typedef int(* func_t)(int, int, long *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
PMC *t_2; long i_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIP", &t_0, &t_1, &t_2);
i_2 = VTABLE_get_integer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, &i_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -3207,20 +3471,22 @@
typedef int(* func_t)(int, int, long *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
PMC *t_2; long i_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIPI", &t_0, &t_1, &t_2, &t_3);
i_2 = VTABLE_get_integer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, &i_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -3232,20 +3498,22 @@
typedef int(* func_t)(int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3257,8 +3525,9 @@
typedef int(* func_t)(int, int, int, long, short, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
@@ -3267,12 +3536,13 @@
INTVAL t_3;
INTVAL t_4;
PMC *t_5;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIIIP", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3286,19 +3556,21 @@
typedef int(* func_t)(int, int, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "III", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3309,20 +3581,22 @@
typedef int(* func_t)(int, int, long, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3334,19 +3608,21 @@
typedef int(* func_t)(int, int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIP", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3357,19 +3633,21 @@
typedef int(* func_t)(int, int, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
char *t_2; STRING *ts_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIS", &t_0, &t_1, &ts_2);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -3380,20 +3658,22 @@
typedef int(* func_t)(int, int, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
char *t_2; STRING *ts_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IISI", &t_0, &t_1, &ts_2, &t_3);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -3405,20 +3685,22 @@
typedef int(* func_t)(int, long, short, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
INTVAL t_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIP", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3430,19 +3712,21 @@
typedef int(* func_t)(int, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
char *t_1; STRING *ts_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "ISI", &t_0, &ts_1, &t_2);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -3453,17 +3737,19 @@
typedef int(* func_t)(long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -3472,18 +3758,20 @@
typedef int(* func_t)(long, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -3493,18 +3781,20 @@
typedef int(* func_t)(long, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -3514,19 +3804,21 @@
typedef int(* func_t)(long, short, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIP", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3537,19 +3829,21 @@
typedef int(* func_t)(void *, int *, int *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1; int i_1;
PMC *t_2; int i_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1, &i_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -3560,20 +3854,22 @@
typedef int(* func_t)(void *, int *, int *, int *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1; int i_1;
PMC *t_2; int i_2;
PMC *t_3; int i_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);i_3 = VTABLE_get_integer(interp, t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -3585,8 +3881,9 @@
typedef int(* func_t)(void *, int *, int *, int *, int *, int *, int *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -3596,12 +3893,13 @@
PMC *t_4; int i_4;
PMC *t_5; int i_5;
PMC *t_6; int i_6;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -3616,18 +3914,20 @@
typedef int(* func_t)(void *, long *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1; long i_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
}
@@ -3637,20 +3937,22 @@
typedef int(* func_t)(void *, long *, short *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1; long i_1;
PMC *t_2; short i_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -3662,19 +3964,21 @@
typedef int(* func_t)(void *, long *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1; long i_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPI", &t_0, &t_1, &t_2);
i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), &i_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
@@ -3685,18 +3989,20 @@
typedef int(* func_t)(void *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
STRING *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PS", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), Buffer_bufstart(t_1));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -3706,19 +4012,21 @@
typedef int(* func_t)(void *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3729,20 +4037,22 @@
typedef int(* func_t)(void *, int, int, long *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
PMC *t_3; long i_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIP", &t_0, &t_1, &t_2, &t_3);
i_3 = VTABLE_get_integer(interp, t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3754,8 +4064,9 @@
typedef int(* func_t)(void *, int, int, long *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -3763,12 +4074,13 @@
INTVAL t_2;
PMC *t_3; long i_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIPI", &t_0, &t_1, &t_2, &t_3, &t_4);
i_3 = VTABLE_get_integer(interp, t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3781,20 +4093,22 @@
typedef int(* func_t)(void *, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIII", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3806,8 +4120,9 @@
typedef int(* func_t)(void *, int, int, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -3817,12 +4132,13 @@
INTVAL t_4;
INTVAL t_5;
INTVAL t_6;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3837,8 +4153,9 @@
typedef int(* func_t)(void *, int, int, int, long, short, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -3848,12 +4165,13 @@
INTVAL t_4;
INTVAL t_5;
PMC *t_6;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3868,20 +4186,22 @@
typedef int(* func_t)(void *, int, int, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIII", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3893,8 +4213,9 @@
typedef int(* func_t)(void *, int, int, long, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -3902,12 +4223,13 @@
INTVAL t_2;
INTVAL t_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIII", &t_0, &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3920,20 +4242,22 @@
typedef int(* func_t)(void *, int, int, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
char *t_3; STRING *ts_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIS", &t_0, &t_1, &t_2, &ts_3);
t_3 = ts_3 ? Parrot_str_to_cstring(interp, ts_3) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3945,8 +4269,9 @@
typedef int(* func_t)(void *, int, int, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -3954,12 +4279,13 @@
INTVAL t_2;
char *t_3; STRING *ts_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIISI", &t_0, &t_1, &t_2, &ts_3, &t_4);
t_3 = ts_3 ? Parrot_str_to_cstring(interp, ts_3) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3972,8 +4298,9 @@
typedef int(* func_t)(void *, int, long, short, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -3981,12 +4308,13 @@
INTVAL t_2;
INTVAL t_3;
PMC *t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIIP", &t_0, &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -3999,19 +4327,21 @@
typedef int(* func_t)(void *, long, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4022,19 +4352,21 @@
typedef int(* func_t)(void *, long, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4045,8 +4377,9 @@
typedef int(* func_t)(void *, long, long, long, long, long, long, long, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -4058,12 +4391,13 @@
INTVAL t_6;
INTVAL t_7;
INTVAL t_8;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4080,19 +4414,21 @@
typedef int(* func_t)(void *, long, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4103,20 +4439,22 @@
typedef int(* func_t)(void *, long, short, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIP", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4128,18 +4466,20 @@
typedef int(* func_t)(void *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -4149,19 +4489,21 @@
typedef int(* func_t)(void *, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPI", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4172,8 +4514,9 @@
typedef int(* func_t)(void *, void *, int, int, int, int, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -4186,12 +4529,13 @@
INTVAL t_7;
INTVAL t_8;
INTVAL t_9;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4209,20 +4553,22 @@
typedef int(* func_t)(void *, void *, void *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
PMC *t_2;
PMC *t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPP", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4234,19 +4580,21 @@
typedef int(* func_t)(void *, short, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIP", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4257,19 +4605,21 @@
typedef int(* func_t)(void *, char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
char *t_1; STRING *ts_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSI", &t_0, &ts_1, &t_2);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -4280,20 +4630,22 @@
typedef int(* func_t)(void *, int, char *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
char *t_2; STRING *ts_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PISI", &t_0, &t_1, &ts_2, &t_3);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -4305,17 +4657,19 @@
typedef int(* func_t)(short);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -4324,19 +4678,21 @@
typedef int(* func_t)(short, short *, short *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
PMC *t_1; short i_1;
PMC *t_2; short i_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IPP", &t_0, &t_1, &t_2);
i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, &i_1, &i_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -4347,20 +4703,22 @@
typedef int(* func_t)(short, short *, short *, short *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
PMC *t_1; short i_1;
PMC *t_2; short i_2;
PMC *t_3; short i_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IPPP", &t_0, &t_1, &t_2, &t_3);
i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);i_3 = VTABLE_get_integer(interp, t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, &i_1, &i_2, &i_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -4372,18 +4730,20 @@
typedef int(* func_t)(short, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, PMC_IS_NULL((PMC*)t_1) ? (void *)NULL : VTABLE_get_pointer(interp, t_1));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -4393,19 +4753,21 @@
typedef int(* func_t)(short, short, short);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "III", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4416,20 +4778,22 @@
typedef int(* func_t)(short, short, short, short);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, t_2, t_3);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4441,17 +4805,19 @@
typedef int(* func_t)(char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
char *t_0; STRING *ts_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_0) Parrot_str_free_cstring(t_0);
}
static void
@@ -4460,18 +4826,20 @@
typedef int(* func_t)(char *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
char *t_0; STRING *ts_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SI", &ts_0, &t_1);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_0) Parrot_str_free_cstring(t_0);
}
@@ -4481,17 +4849,19 @@
typedef int(* func_t)(long *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0; long i_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
i_0 = VTABLE_get_integer(interp, t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(&i_0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_0, i_0);
}
static void
@@ -4500,18 +4870,20 @@
typedef int(* func_t)(long *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0; long i_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
i_0 = VTABLE_get_integer(interp, t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(&i_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_0, i_0);
}
@@ -4521,19 +4893,21 @@
typedef int(* func_t)(long *, short *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0; long i_0;
PMC *t_1; short i_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
i_0 = VTABLE_get_integer(interp, t_0);i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(&i_0, &i_1, PMC_IS_NULL((PMC*)t_2) ? (void *)NULL : VTABLE_get_pointer(interp, t_2));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_0, i_0);
VTABLE_set_integer_native(interp, t_1, i_1);
@@ -4544,18 +4918,20 @@
typedef long(* func_t)(int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (long)(*fn_pointer)(t_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -4565,18 +4941,20 @@
typedef long(* func_t)(long, long *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
PMC *t_1; long i_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (long)(*fn_pointer)(t_0, &i_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
}
@@ -4586,18 +4964,20 @@
typedef long(* func_t)(void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (long)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -4607,19 +4987,21 @@
typedef long(* func_t)(void *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (long)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -4630,20 +5012,22 @@
typedef long(* func_t)(void *, int *, int *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1; int i_1;
PMC *t_2; int i_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPI", &t_0, &t_1, &t_2, &t_3);
i_1 = VTABLE_get_integer(interp, t_1);i_2 = VTABLE_get_integer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -4655,19 +5039,21 @@
typedef long(* func_t)(int *, int *, long);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0; int i_0;
PMC *t_1; int i_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPI", &t_0, &t_1, &t_2);
i_0 = VTABLE_get_integer(interp, t_0);i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (long)(*fn_pointer)(&i_0, &i_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_0, i_0);
VTABLE_set_integer_native(interp, t_1, i_1);
@@ -4678,12 +5064,14 @@
typedef void *(* func_t)(void);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
;
+ UNUSED(return_data); /* Potentially unused, at least */
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (void *)(*fn_pointer)();
@@ -4691,7 +5079,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
static void
@@ -4700,12 +5088,14 @@
typedef void *(* func_t)(char **);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
char *t_0; STRING *ts_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *) NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4715,7 +5105,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
}
static void
@@ -4724,12 +5114,14 @@
typedef void *(* func_t)(void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
STRING *t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4739,7 +5131,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
static void
@@ -4748,12 +5140,14 @@
typedef void *(* func_t)(PARROT_INTERP, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
char *t_1; STRING *ts_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_1);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4763,7 +5157,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_1) Parrot_str_free_cstring(t_1);
}
@@ -4773,12 +5167,14 @@
typedef void *(* func_t)(int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
INTVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4788,7 +5184,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
static void
@@ -4797,13 +5193,15 @@
typedef void *(* func_t)(int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4813,7 +5211,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
@@ -4823,8 +5221,9 @@
typedef void *(* func_t)(int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -4832,6 +5231,7 @@
INTVAL t_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIII", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4841,7 +5241,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -4853,8 +5253,9 @@
typedef void *(* func_t)(int, int, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -4864,6 +5265,7 @@
INTVAL t_3;
INTVAL t_4;
INTVAL t_5;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IIIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4873,7 +5275,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -4887,8 +5289,9 @@
typedef void *(* func_t)(int, int, int, int, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -4900,6 +5303,7 @@
INTVAL t_5;
INTVAL t_6;
INTVAL t_7;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4909,7 +5313,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -4925,14 +5329,16 @@
typedef void *(* func_t)(void *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4942,7 +5348,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -4953,8 +5359,9 @@
typedef void *(* func_t)(void *, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -4963,6 +5370,7 @@
INTVAL t_2;
INTVAL t_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIIII", &t_0, &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -4972,7 +5380,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -4985,12 +5393,14 @@
typedef void *(* func_t)(char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
char *t_0; STRING *ts_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5000,7 +5410,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
}
static void
@@ -5009,14 +5419,16 @@
typedef void *(* func_t)(char *, void *, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
char *t_0; STRING *ts_0;
PMC *t_1;
PMC *t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SPP", &ts_0, &t_1, &t_2);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5026,7 +5438,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
@@ -5037,8 +5449,9 @@
typedef void *(* func_t)(char *, char *, char *, char *, char *, char *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -5049,6 +5462,7 @@
char *t_4; STRING *ts_4;
char *t_5; STRING *ts_5;
char *t_6; STRING *ts_6;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;t_3 = ts_3 ? Parrot_str_to_cstring(interp, ts_3) : (char *)NULL;t_4 = ts_4 ? Parrot_str_to_cstring(interp, ts_4) : (char *)NULL;t_5 = ts_5 ? Parrot_str_to_cstring(interp, ts_5) : (char *)NULL;t_6 = ts_6 ? Parrot_str_to_cstring(interp, ts_6) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5058,7 +5472,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
if (t_1) Parrot_str_free_cstring(t_1);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -5073,15 +5487,17 @@
typedef short(* func_t)(void);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
;
+ UNUSED(return_data); /* Potentially unused, at least */
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (short)(*fn_pointer)();
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
static void
@@ -5090,17 +5506,19 @@
typedef char *(* func_t)(void);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
;
+ UNUSED(return_data); /* Potentially unused, at least */
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)();
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
}
static void
@@ -5109,19 +5527,21 @@
typedef char *(* func_t)(int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
INTVAL t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(t_0);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
}
static void
@@ -5130,20 +5550,22 @@
typedef char *(* func_t)(int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(t_0, t_1);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
}
@@ -5153,20 +5575,22 @@
typedef char *(* func_t)(void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
PMC *t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
}
@@ -5176,21 +5600,23 @@
typedef char *(* func_t)(void *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
@@ -5201,19 +5627,21 @@
typedef char *(* func_t)(char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
char *t_0; STRING *ts_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(t_0);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
}
static void
@@ -5222,21 +5650,23 @@
typedef char *(* func_t)(char *, long, long *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
char *t_0; STRING *ts_0;
INTVAL t_1;
PMC *t_2; long i_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SIP", &ts_0, &t_1, &t_2);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;i_2 = VTABLE_get_integer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(t_0, t_1, &i_2);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
VTABLE_set_integer_native(interp, t_2, i_2);
@@ -5247,20 +5677,22 @@
typedef char *(* func_t)(char *, long *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
char *t_0; STRING *ts_0;
PMC *t_1; long i_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SP", &ts_0, &t_1);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(t_0, &i_1);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
VTABLE_set_integer_native(interp, t_1, i_1);
}
@@ -5270,18 +5702,20 @@
typedef int(* func_t)(short, char);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -5291,18 +5725,20 @@
typedef short(* func_t)(short, char);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (short)(*fn_pointer)(t_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -5312,18 +5748,20 @@
typedef char(* func_t)(short, char);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "II", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char)(*fn_pointer)(t_0, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -5333,19 +5771,21 @@
typedef int(* func_t)(int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "III", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5356,18 +5796,20 @@
typedef int(* func_t)(int, int *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_0;
PMC *t_1; int i_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, &i_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_1, i_1);
}
@@ -5377,19 +5819,21 @@
typedef char *(* func_t)(void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
STRING *t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(Buffer_bufstart(t_0));
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
}
static void
@@ -5398,19 +5842,21 @@
typedef char *(* func_t)(char **);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
char * return_data;
STRING *final_destination;
char *t_0; STRING *ts_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_0);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *) NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (char *)(*fn_pointer)(&t_0);
final_destination = Parrot_str_new(interp, return_data, 0);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "S", final_destination);
if (t_0) Parrot_str_free_cstring(t_0);
}
static void
@@ -5419,11 +5865,13 @@
typedef void(* func_t)(PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * t_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5438,12 +5886,14 @@
typedef void(* func_t)(void *, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
PMC * t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5459,13 +5909,15 @@
typedef void *(* func_t)(int, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
INTVAL t_0;
PMC *t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "IP", &t_0, &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5475,7 +5927,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
}
@@ -5485,18 +5937,20 @@
typedef int(* func_t)(int *, int *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0; int i_0;
PMC *t_1; int i_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PP", &t_0, &t_1);
i_0 = VTABLE_get_integer(interp, t_0);i_1 = VTABLE_get_integer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(&i_0, &i_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
VTABLE_set_integer_native(interp, t_0, i_0);
VTABLE_set_integer_native(interp, t_1, i_1);
}
@@ -5506,13 +5960,15 @@
typedef void(* func_t)(void *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0;
INTVAL t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PII", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5529,11 +5985,13 @@
typedef void(* func_t)(PARROT_INTERP, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5549,17 +6007,19 @@
typedef int(* func_t)(PARROT_INTERP, PMC *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC * t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "Pi", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(interp, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -5569,18 +6029,20 @@
typedef int(* func_t)(PARROT_INTERP, PMC *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC * t_1;
INTVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiI", &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(interp, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5591,18 +6053,20 @@
typedef int(* func_t)(PARROT_INTERP, PMC *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC * t_1;
char *t_2; STRING *ts_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PiS", &t_1, &ts_2);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(interp, t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -5613,17 +6077,19 @@
typedef int(* func_t)(PARROT_INTERP, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
char *t_1; STRING *ts_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "S", &ts_1);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(interp, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
}
@@ -5633,17 +6099,19 @@
typedef int(* func_t)(PARROT_INTERP, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "I", &t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(interp, t_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
}
@@ -5653,12 +6121,14 @@
typedef void(* func_t)(void **, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0; void *v_0;
INTVAL t_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PI", &t_0, &t_1);
v_0 = VTABLE_get_pointer(interp, t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5674,8 +6144,9 @@
typedef void *(* func_t)(void *, void *, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -5684,6 +6155,7 @@
INTVAL t_2;
INTVAL t_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIII", &t_0, &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5693,7 +6165,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -5706,8 +6178,9 @@
typedef void *(* func_t)(void *, void *, int, int, int, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC * final_destination = PMCNULL;
@@ -5720,6 +6193,7 @@
INTVAL t_6;
INTVAL t_7;
INTVAL t_8;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -5729,7 +6203,7 @@
final_destination = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
VTABLE_set_pointer(interp, final_destination, return_data);
}
- Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "P", final_destination);
@@ -5746,20 +6220,22 @@
typedef int(* func_t)(void *, void *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
INTVAL t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPII", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5771,8 +6247,9 @@
typedef int(* func_t)(void *, void *, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -5780,12 +6257,13 @@
INTVAL t_2;
INTVAL t_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIII", &t_0, &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5798,8 +6276,9 @@
typedef int(* func_t)(void *, void *, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -5808,12 +6287,13 @@
INTVAL t_3;
INTVAL t_4;
INTVAL t_5;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPIIII", &t_0, &t_1, &t_2, &t_3, &t_4, &t_5);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5827,8 +6307,9 @@
typedef int(* func_t)(void *, void *, int, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -5838,12 +6319,13 @@
INTVAL t_4;
INTVAL t_5;
INTVAL t_6;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5858,8 +6340,9 @@
typedef int(* func_t)(void *, void *, int, int, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -5870,12 +6353,13 @@
INTVAL t_5;
INTVAL t_6;
INTVAL t_7;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5891,19 +6375,21 @@
typedef int(* func_t)(void *, void *, char *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
char *t_2; STRING *ts_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPS", &t_0, &t_1, &ts_2);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -5914,20 +6400,22 @@
typedef int(* func_t)(void *, void *, void *, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
PMC *t_1;
PMC *t_2;
INTVAL t_3;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPI", &t_0, &t_1, &t_2, &t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5939,8 +6427,9 @@
typedef int(* func_t)(void *, void *, void *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -5948,12 +6437,13 @@
PMC *t_2;
INTVAL t_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPPII", &t_0, &t_1, &t_2, &t_3, &t_4);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5966,8 +6456,9 @@
typedef int(* func_t)(void *, void *, void *, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -5977,12 +6468,13 @@
INTVAL t_4;
INTVAL t_5;
INTVAL t_6;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -5997,8 +6489,9 @@
typedef int(* func_t)(void *, void *, void *, void *, int, int, int, int, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -6011,12 +6504,13 @@
INTVAL t_7;
INTVAL t_8;
INTVAL t_9;
+ UNUSED(return_data); /* Potentially unused, at least */
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);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -6034,13 +6528,15 @@
typedef void(* func_t)(float, float, float);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
FLOATVAL t_0;
FLOATVAL t_1;
FLOATVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "NNN", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -6057,11 +6553,13 @@
typedef void(* func_t)(void **);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0; void *v_0;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "P", &t_0);
v_0 = VTABLE_get_pointer(interp, t_0);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -6076,13 +6574,15 @@
typedef void(* func_t)(void **, void **, void **);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
void * return_data;
PMC *t_0; void *v_0;
PMC *t_1; void *v_1;
PMC *t_2; void *v_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PPP", &t_0, &t_1, &t_2);
v_0 = VTABLE_get_pointer(interp, t_0);v_1 = VTABLE_get_pointer(interp, t_1);v_2 = VTABLE_get_pointer(interp, t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
@@ -6099,18 +6599,20 @@
typedef int(* func_t)(char *, void **);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
char *t_0; STRING *ts_0;
PMC *t_1; void *v_1;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "SP", &ts_0, &t_1);
t_0 = ts_0 ? Parrot_str_to_cstring(interp, ts_0) : (char *)NULL;v_1 = VTABLE_get_pointer(interp, t_1);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(t_0, &v_1);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_0) Parrot_str_free_cstring(t_0);
VTABLE_set_pointer(interp, t_1, v_1);
}
@@ -6120,8 +6622,9 @@
typedef int(* func_t)(void *, char *, int, void **, void *);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -6129,12 +6632,13 @@
INTVAL t_2;
PMC *t_3; void *v_3;
PMC *t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PSIPP", &t_0, &ts_1, &t_2, &t_3, &t_4);
t_1 = ts_1 ? Parrot_str_to_cstring(interp, ts_1) : (char *)NULL;v_3 = VTABLE_get_pointer(interp, t_3);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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));
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_1) Parrot_str_free_cstring(t_1);
@@ -6147,19 +6651,21 @@
typedef int(* func_t)(void *, int, double);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
INTVAL t_1;
FLOATVAL t_2;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PIN", &t_0, &t_1, &t_2);
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
return_data = (int)(*fn_pointer)(PMC_IS_NULL((PMC*)t_0) ? (void *)NULL : VTABLE_get_pointer(interp, t_0), t_1, t_2);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
@@ -6170,8 +6676,9 @@
typedef int(* func_t)(void *, int, char *, int, int);
func_t fn_pointer;
void *orig_func;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ const PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * ret_object = PMCNULL;
INTVAL return_data;
PMC *t_0;
@@ -6179,12 +6686,13 @@
char *t_2; STRING *ts_2;
INTVAL t_3;
INTVAL t_4;
+ UNUSED(return_data); /* Potentially unused, at least */
Parrot_pcc_fill_params_from_c_args(interp, call_object, "PISII", &t_0, &t_1, &ts_2, &t_3, &t_4);
t_2 = ts_2 ? Parrot_str_to_cstring(interp, ts_2) : (char *)NULL;
GETATTR_NCI_orig_func(interp, nci, orig_func);
fn_pointer = (func_t)D2FPTR(orig_func);
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);
- Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
+ ret_object = Parrot_pcc_build_call_from_c_args(interp, call_object, "I", return_data);
if (t_2) Parrot_str_free_cstring(t_2);
@@ -6194,19 +6702,14 @@
void
Parrot_nci_load_extra_thunks(PARROT_INTERP)
-;
- void
-Parrot_nci_load_extra_thunks(PARROT_INTERP)
{
- PMC *iglobals;
+ PMC * const iglobals = interp->iglobals;
PMC *nci_funcs;
PMC *temp_pmc;
- iglobals = interp->iglobals;
PARROT_ASSERT(!(PMC_IS_NULL(iglobals)));
- nci_funcs = VTABLE_get_pmc_keyed_int(interp, iglobals,
- IGLOBALS_NCI_FUNCS);
+ nci_funcs = VTABLE_get_pmc_keyed_int(interp, iglobals, IGLOBALS_NCI_FUNCS);
PARROT_ASSERT(!(PMC_IS_NULL(nci_funcs)));
temp_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
More information about the parrot-commits
mailing list