For some reason, I was a bit suprised for the extensive use of gotos. Thanks for sharing this pearl!
switch (o=symbol()) {
....
/* short constant */
case 21:
case21:
*cp++ = block(1,21,ctyp,0,cval);
goto tand;
.... elsewhere in the switch ....
cval = -cval;
goto case21;