Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

consted a pointer. Undid some unnecessary var setting

  • Loading branch information...
commit 9f7969e6fd4df1bffa7f3c7f478475b2178777f0 1 parent 8f7ec49
Andy Lester petdance authored
Showing with 7 additions and 7 deletions.
  1. +7 −7 src/ops/core.ops
14 src/ops/core.ops
View
@@ -504,8 +504,8 @@ op set_returns(inconst PMC) :flow {
op get_results(inconst PMC) :flow {
opcode_t * const raw_params = CUR_OPCODE;
PMC * const signature = $1;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+ PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, ctx);
INTVAL argc;
@@ -1275,7 +1275,7 @@ inline op loadlib(out PMC, in STR, in PMC) {
op dlfunc(out PMC, invar PMC, in STR, in STR) {
void *dl_handle = NULL;
- void *ptr = NULL;
+ void *ptr;
funcptr_t p;
if (!PMC_IS_NULL($2)
@@ -1288,7 +1288,7 @@ op dlfunc(out PMC, invar PMC, in STR, in STR) {
p = D2FPTR(ptr);
if (p == NULLfunc) {
- const char * err = Parrot_dlerror();
+ const char * const err = Parrot_dlerror();
Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
"Symbol '%Ss' not found: %s\n", $3, err ? err : "unknown reason");
$1 = Parrot_pmc_new(interp, enum_class_Undef);
@@ -1301,7 +1301,7 @@ op dlfunc(out PMC, invar PMC, in STR, in STR) {
op dlfunc(out PMC, invar PMC, in STR, invar PMC) {
void *dl_handle = NULL;
- void *ptr = NULL;
+ void *ptr;
funcptr_t p;
if (!PMC_IS_NULL($2)
@@ -1314,7 +1314,7 @@ op dlfunc(out PMC, invar PMC, in STR, invar PMC) {
p = D2FPTR(ptr);
if (p == NULLfunc) {
- const char * err = Parrot_dlerror();
+ const char * const err = Parrot_dlerror();
Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
"Symbol '%Ss' not found: %s\n", $3, err ? err : "unknown reason");
$1 = Parrot_pmc_new(interp, enum_class_Undef);
@@ -1327,7 +1327,7 @@ op dlfunc(out PMC, invar PMC, in STR, invar PMC) {
op dlvar(out PMC, invar PMC, in STR) {
void * dl_handle = NULL;
- void * p = NULL;
+ void * p;
if (!PMC_IS_NULL($2)
&& $2->vtable->base_type == enum_class_ParrotLibrary
Please sign in to comment.
Something went wrong with that request. Please try again.