-
- case 19 : /* imin:function(x, y:integer):integer */
- param[ 2 ].xword = min(param[ 0 ].xword, param[ 1 ].xword);
- break;
-
- case 20 : /* imax:function(x, y:integer):integer */
- param[ 2 ].xword = max(param[ 0 ].xword, param[ 1 ].xword);
- break;
-
- case 21 : /* imin3:function(x, y, z:integer):integer */
- t1 = min(param[ 0 ].xword, param[ 1 ].xword);
- param[ 3 ].xword = min(t1, param[ 2 ].xword);
- break;
-
- case 22 : /* imax3:function(x, y, z:integer):integer */
- t1 = max(param[ 0 ].xword, param[ 1 ].xword);
- param[ 3 ].xword = max(t1, param[ 2 ].xword);
- break;
-
- case 23 : /* sin:function(x:real):real */
- param[ 1 ].xreal = (real)sin((double) param[ 0 ].xreal);
- break;
-
- case 24 : /* cos:function(x:real):real */
- param[ 1 ].xreal = (real)cos((double) param[ 0 ].xreal);
- break;
-
- case 25 : /* tan:function(x:real):real */
- r = cos((double) param[ 0 ].xreal);
- if (r == 0.0) errsignal(RTEDIVBZ);
- param[ 1 ].xreal = (real)sin((double) param[ 0 ].xreal) / r;
- break;
-
- case 26 : /* exp:function(x:real):real */
- param[ 1 ].xreal = (real)exp((double) param[ 0 ].xreal);
- break;
-
- case 27 : /* ln:function(x:real):real */
- param[ 1 ].xreal = (real)log((double) param[ 0 ].xreal);
- break;
-
- case 28 : /* atan:function(x:real):real */
- param[ 1 ].xreal = (real)atan((double) param[ 0 ].xreal);
- break;
-
- case 29 : /* endrun:procedure */
+ /* imin:function(x, y:integer):integer */
+ case 19:
+ param[2].xword = min(param[0].xword, param[1].xword);
+ break;
+ /* imax:function(x, y:integer):integer */
+ case 20:
+ param[2].xword = max(param[0].xword, param[1].xword);
+ break;
+ /* imin3:function(x, y, z:integer):integer */
+ case 21:
+ t1 = min(param[0].xword, param[1].xword);
+ param[3].xword = min(t1, param[2].xword);
+ break;
+ /* imax3:function(x, y, z:integer):integer */
+ case 22:
+ t1 = max(param[0].xword, param[1].xword);
+ param[3].xword = max(t1, param[2].xword);
+ break;
+ /* sin:function(x:real):real */
+ case 23:
+ param[1].xreal = (real)sin((double) param[0].xreal);
+ break;
+ /* cos:function(x:real):real */
+ case 24:
+ param[1].xreal = (real)cos((double) param[0].xreal);
+ break;
+ /* tan:function(x:real):real */
+ case 25:
+ r = cos((double) param[0].xreal);
+ if (r == 0.0)
+ errsignal(RTEDIVBZ);
+ param[1].xreal = (real)sin((double) param[0].xreal) / r;
+ break;
+ /* exp:function(x:real):real */
+ case 26:
+ param[1].xreal = (real)exp((double) param[0].xreal);
+ break;
+ /* ln:function(x:real):real */
+ case 27:
+ param[1].xreal = (real)log((double) param[0].xreal);
+ break;
+ /* atan:function(x:real):real */
+ case 28:
+ param[1].xreal = (real)atan((double) param[0].xreal);
+ break;
+ /* endrun:procedure */
+ case 29: