pike.git / src / modules / Image / orient.c

version» Context lines:

pike.git/src/modules/Image/orient.c:160:    rgb_group *d,*s1,*s2,*s3,*s0;    double mag;    int i, w, h;       if (!THIS->img) { Pike_error("Called Image.Image object is not initialized\n");; return; }       this=THIS;       if (args)    { -  if (sp[-args].type==T_INT) +  if (TYPEOF(sp[-args]) == T_INT)    mag=sp[-args].u.integer; -  else if (sp[-args].type==T_FLOAT) +  else if (TYPEOF(sp[-args]) == T_FLOAT)    mag=sp[-args].u.float_number;    else {    bad_arg_error("image->orient\\n",sp-args,args,1,"",sp+1-1-args,    "Bad argument 1 to image->orient\n()\n");    /* Not reached, but keeps the compiler happy. */    mag = 0.0;    }    }    else mag=1.0;       if (args==1)    pop_n_elems(args);       if (args>1)    { -  if (sp[1-args].type!=T_ARRAY) +  if (TYPEOF(sp[1-args]) != T_ARRAY)    bad_arg_error("image->orient\\n",sp-args,args,2,"",sp+2-1-args,    "Bad argument 2 to image->orient\n()\n");    if (sp[1-args].u.array->size!=4)    Pike_error("The array given as argument 2 to image->orient do not have size 4\n");    for(i=0; i<4; i++) -  if ((sp[1-args].u.array->item[i].type!=T_OBJECT) || +  if ((TYPEOF(sp[1-args].u.array->item[i]) != T_OBJECT) ||    (!(sp[1-args].u.array->item[i].u.object)) ||    (sp[1-args].u.array->item[i].u.object->prog!=image_program))    Pike_error("The array given as argument 2 to image->orient do not contain images\n");    img1=(struct image*)sp[1-args].u.array->item[0].u.object->storage;       w=this->xsize;    h=this->ysize;       for(i=0; i<4; i++)    {