pike.git/ src/ pike_types.c

Branch: Tag:

2007-04-05

2007-04-05 16:00:59 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed issue with multiple void results in new_get_return_type().

Rev: src/pike_types.c:1.280

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: pike_types.c,v 1.279 2007/04/05 12:52:19 grubba Exp $ + || $Id: pike_types.c,v 1.280 2007/04/05 16:00:59 grubba Exp $   */      #include "global.h"
5011:    goto loop;       case T_OR: -  if (!(res = new_get_return_type(fun_type->car, flags)) || -  (res == void_type_string)) { -  /* Promote void to zero in return value in case there are others. */ -  if (res) { -  free_type(res); -  res = NULL; -  } +  if (!(res = new_get_return_type(fun_type->car, flags))) {    fun_type = fun_type->cdr;    goto loop;    } -  if (!(tmp = new_get_return_type(fun_type->cdr, flags)) || -  (tmp == void_type_string)) { -  /* Promote void to zero in return value. */ -  if (tmp) { +  if (!(tmp = new_get_return_type(fun_type->cdr, flags))) { +  break; +  } +  if ((res == void_type_string) || (tmp == void_type_string)) { +  /* Note: Promote void to zero in the return value +  * when there's another non-void result. +  */ +  if (tmp == void_type_string) { +  /* Keep res as is. */    free_type(tmp); -  +  } else { +  free_type(res); +  res = tmp;    }    break;    }
5389:    /* This token can expand to anything between zero and MAX_ARGS args. */      #ifdef PIKE_DEBUG -  if (l_flag>2) { +  if (1 || l_flag>2) {    fprintf(stderr, "\n The argument is a splice operator.\n");    }   #endif /* PIKE_DEBUG */
5402:    (fun_type != prev) && --cnt) {      #ifdef PIKE_DEBUG -  if (l_flag>4) { +  if (1 || l_flag>4) {    fprintf(stderr, "\n sub_result_type: ");    simple_describe_type(fun_type);    }
5412:    or_pike_types(debug_malloc_pass(tmp = res),    debug_malloc_pass(fun_type), 1));   #ifdef PIKE_DEBUG -  if (l_flag>4) { +  if (1 || l_flag>4) {    fprintf(stderr, "\n joined_type: ");    simple_describe_type(res);    }
5443:    }      #ifdef PIKE_DEBUG -  if (l_flag>2) { +  if (1 || l_flag>2) {    fprintf(stderr, "\n result: ");    simple_describe_type(res);    fprintf(stderr, " OK.\n");