This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test $x=wait under arybase
[perl5.git] / ext / arybase / arybase.xs
index 3151d31..5c653e3 100644 (file)
@@ -28,7 +28,7 @@ STATIC const ab_op_info *ab_map_fetch(const OP *o, ab_op_info *oi) {
  MUTEX_LOCK(&ab_op_map_mutex);
 #endif
 
- val = ptable_fetch(ab_op_map, o);
+ val = (ab_op_info *)ptable_fetch(ab_op_map, o);
  if (val) {
   *oi = *val;
   val = oi;
@@ -48,8 +48,8 @@ STATIC const ab_op_info *ab_map_store_locked(
   ab_map_store_locked(aPTBLMS_ (O), (PP), (B))
  ab_op_info *oi;
 
- if (!(oi = ptable_fetch(ab_op_map, o))) {
-  oi = PerlMemShared_malloc(sizeof *oi);
+ if (!(oi = (ab_op_info *)ptable_fetch(ab_op_map, o))) {
+  oi = (ab_op_info *)PerlMemShared_malloc(sizeof *oi);
   ptable_map_store(ab_op_map, o, oi);
  }
 
@@ -116,7 +116,7 @@ STATIC void set_arybase_to(pTHX_ IV base) {
  sv_setiv_mg(hsv, base);
 }
 
-#define old_ck(opname) STATIC OP *(*ab_old_ck_##opname)(pTHX_ OP *) = 0;
+#define old_ck(opname) STATIC OP *(*ab_old_ck_##opname)(pTHX_ OP *) = 0
 old_ck(sassign);
 old_ck(aassign);
 old_ck(aelem);
@@ -166,23 +166,23 @@ STATIC void ab_process_assignment(pTHX_ OP *left, OP *right) {
 
 STATIC OP *ab_ck_sassign(pTHX_ OP *o) {
  o = (*ab_old_ck_sassign)(aTHX_ o);
- {
if (o->op_type == OP_SASSIGN) {
   OP *right = cBINOPx(o)->op_first;
   OP *left = right->op_sibling;
   if (left) ab_process_assignment(left, right);
-  return o;
  }
+ return o;
 }
 
 STATIC OP *ab_ck_aassign(pTHX_ OP *o) {
  o = (*ab_old_ck_aassign)(aTHX_ o);
- {
if (o->op_type == OP_AASSIGN) {
   OP *right = cBINOPx(o)->op_first;
   OP *left = cBINOPx(right->op_sibling)->op_first->op_sibling;
   right = cBINOPx(right)->op_first->op_sibling;
   ab_process_assignment(left, right);
-  return o;
  }
+ return o;
 }
 
 void