Merge pull request #103 from iwadon/intptr_t-instead-of-int

Use intptr_t instead of int.

src/parse.y

@@ -660,7 +660,7 @@ new_op_asgn(parser_state *p, node *a, mrb_sym op, node *b)
 static node*
 new_int(parser_state *p, const char *s, int base)
 {
-  return list3((node*)NODE_INT, (node*)strdup(s), (node*)base);
+  return list3((node*)NODE_INT, (node*)strdup(s), (node*)(intptr_t)base);
 }
 
 // (:float . i)
@@ -688,14 +688,14 @@ new_dstr(parser_state *p, node *a)
 static node*
 new_back_ref(parser_state *p, int n)
 {
-  return cons((node*)NODE_BACK_REF, (node*)n);
+  return cons((node*)NODE_BACK_REF, (node*)(intptr_t)n);
 }
 
 // (:nthref . n)
 static node*
 new_nth_ref(parser_state *p, int n)
 {
-  return cons((node*)NODE_NTH_REF, (node*)n);
+  return cons((node*)NODE_NTH_REF, (node*)(intptr_t)n);
 }
 
 static void
@@ -774,7 +774,7 @@ ret_args(parser_state *p, node *n)
 static void
 assignable(parser_state *p, node *lhs)
 {
-  switch ((int)lhs->car) {
+  switch ((int)(intptr_t)lhs->car) {
   case NODE_LVAR:
     local_add(p, (mrb_sym)lhs->cdr);
     break;
@@ -788,7 +788,7 @@ var_reference(parser_state *p, node *lhs)
 {
   node *n;
 
-  switch ((int)lhs->car) {
+  switch ((int)(intptr_t)lhs->car) {
   case NODE_LVAR:
     if (!local_var_p(p, (mrb_sym)lhs->cdr)) {
       n = new_fcall(p, (mrb_sym)lhs->cdr, 0);
@@ -1989,7 +1989,7 @@ primary		: literal
 		    }
 		  term
 		    {
-		      $<node>$ = cons(local_switch(p), (node*)p->in_single);
+		      $<node>$ = cons(local_switch(p), (node*)(intptr_t)p->in_single);
 		      p->in_single = 0;
 		    }
 		  bodystmt
@@ -1998,7 +1998,7 @@ primary		: literal
 		      $$ = new_sclass(p, $3, $7);
 		      local_resume(p, $<node>6->car);
 		      p->in_def = $<num>4;
-		      p->in_single = (int)$<node>6->cdr;
+		      p->in_single = (int)(intptr_t)$<node>6->cdr;
 		    }
 		| keyword_module cpath
 		    {
@@ -2972,12 +2972,12 @@ yywarning_s(parser_state *p, const char *fmt, const char *s)
 static void
 backref_error(parser_state *p, node *n)
 {
-  switch ((int)n->car) {
+  switch ((int)(intptr_t)n->car) {
   case NODE_NTH_REF:
-    yyerror_i(p, "can't set variable $%d", (int)n->cdr);
+    yyerror_i(p, "can't set variable $%d", (int)(intptr_t)n->cdr);
     break;
   case NODE_BACK_REF:
-    yyerror_i(p, "can't set variable $%c", (int)n->cdr);
+    yyerror_i(p, "can't set variable $%c", (int)(intptr_t)n->cdr);
     break;
   }
 }
@@ -2993,7 +2993,7 @@ nextc(parser_state *p)
   if (p->pb) {
     node *tmp;
 
-    c = (int)p->pb->car;
+    c = (int)(intptr_t)p->pb->car;
     tmp = p->pb;
     p->pb = p->pb->cdr;
     cons_free(tmp);
@@ -3030,7 +3030,7 @@ pushback(parser_state *p, int c)
 {
   if (c < 0) return;
   p->column--;
-  p->pb = cons((node*)c, p->pb);
+  p->pb = cons((node*)(intptr_t)c, p->pb);
 }
 
 static void
@@ -3055,7 +3055,7 @@ peek_n(parser_state *p, int c, int n)
   while (n--) {
     c0 = nextc(p);
     if (c0 < 0) return FALSE;
-    list = push(list, (node*)c0);
+    list = push(list, (node*)(intptr_t)c0);
   }
   if (p->pb) {
     p->pb = push(p->pb, (node*)list);
@@ -4812,7 +4812,7 @@ parser_dump(mrb_state *mrb, node *tree, int offset)
   if (!tree) return;
  again:
   dump_prefix(offset);
-  n = (int)tree->car;
+  n = (int)(intptr_t)tree->car;
   tree = tree->cdr;
   switch (n) {
   case NODE_BEGIN:
@@ -5051,7 +5051,7 @@ parser_dump(mrb_state *mrb, node *tree, int offset)
     dump_prefix(offset+1);
     printf("method='%s' (%d)\n", 
 	   mrb_sym2name(mrb, (mrb_sym)tree->cdr->car),
-	   (int)tree->cdr->car);
+	   (int)(intptr_t)tree->cdr->car);
     tree = tree->cdr->cdr->car;
     if (tree) {
       dump_prefix(offset+1);
@@ -5164,7 +5164,7 @@ parser_dump(mrb_state *mrb, node *tree, int offset)
     parser_dump(mrb, tree->car, offset+2);
     tree = tree->cdr;
     dump_prefix(offset+1);
-    printf("op='%s' (%d)\n", mrb_sym2name(mrb, (mrb_sym)tree->car), (int)tree->car);
+    printf("op='%s' (%d)\n", mrb_sym2name(mrb, (mrb_sym)tree->car), (int)(intptr_t)tree->car);
     tree = tree->cdr;
     parser_dump(mrb, tree->car, offset+1);
     break;
@@ -5255,7 +5255,7 @@ parser_dump(mrb_state *mrb, node *tree, int offset)
     break;
 
   case NODE_INT:
-    printf("NODE_INT %s base %d\n", (char*)tree->car, (int)tree->cdr->car);
+    printf("NODE_INT %s base %d\n", (char*)tree->car, (int)(intptr_t)tree->cdr->car);
     break;
 
   case NODE_FLOAT:
@@ -5268,7 +5268,7 @@ parser_dump(mrb_state *mrb, node *tree, int offset)
     break;
 
   case NODE_STR:
-    printf("NODE_STR \"%s\" len %d\n", (char*)tree->car, (int)tree->cdr);
+    printf("NODE_STR \"%s\" len %d\n", (char*)tree->car, (int)(intptr_t)tree->cdr);
     break;
 
   case NODE_DSTR: