mirror of
https://github.com/lcn2/calc.git
synced 2025-08-19 01:13:27 +03:00
Release calc version 2.11.0t9.4.5
This commit is contained in:
5
obj.c
5
obj.c
@@ -141,6 +141,10 @@ objcall(int action, VALUE *v1, VALUE *v2, VALUE *v3)
|
||||
VALUE tmp; /* temp value */
|
||||
char name[SYMBOLSIZE+1]; /* full name of user routine to call */
|
||||
|
||||
/* initialize VALUEs */
|
||||
val.v_subtype = V_NOSUBTYPE;
|
||||
tmp.v_subtype = V_NOSUBTYPE;
|
||||
|
||||
if ((unsigned)action > OBJ_MAXFUNC) {
|
||||
math_error("Illegal action for object call");
|
||||
/*NOTREACHED*/
|
||||
@@ -404,6 +408,7 @@ objpowi(VALUE *vp, NUMBER *q)
|
||||
case 1:
|
||||
res.v_obj = objcopy(vp->v_obj);
|
||||
res.v_type = V_OBJ;
|
||||
res.v_subtype = V_NOSUBTYPE;
|
||||
return res;
|
||||
case -1:
|
||||
return objcall(OBJ_INV, vp, NULL_VALUE, NULL_VALUE);
|
||||
|
Reference in New Issue
Block a user