[fossil-users] TH: unary bitwise operator

[Sergei Gavrikov]

Hi

[FYI]

  % fossil test-th-eval 'expr ~1234'
  fossil: ../src/th.c:2002: exprEval: Assertion `!"Internal error"' failed.

Sergei

Index: src/th.c
==================================================================
--- src/th.c
+++ src/th.c
@@ -1996,10 +1996,11 @@
         case OP_BITWISE_OR:   iRes = iLeft|iRight;  break;
         case OP_LOGICAL_AND:  iRes = iLeft&&iRight; break;
         case OP_LOGICAL_OR:   iRes = iLeft||iRight; break;
         case OP_UNARY_MINUS:  iRes = -iLeft;        break;
         case OP_UNARY_PLUS:   iRes = +iLeft;        break;
+        case OP_BITWISE_NOT:  iRes = ~iLeft;        break;
         case OP_LOGICAL_NOT:  iRes = !iLeft;        break;
         default: assert(!"Internal error");
       }
       Th_SetResultInt(interp, iRes);
     }else if( rc==TH_OK && eArgType==ARG_NUMBER ){

_______________________________________________
fossil-users mailing list
fossil-users@lists.fossil-scm.org
http://lists.fossil-scm.org:8080/cgi-bin/mailman/listinfo/fossil-users