Commit 7a7ff084330e6c95963a826aa0432cd376c4aaac

Thomas de Grivel 2023-10-18T22:00:25

wip operators

diff --git a/libc3/tag.c b/libc3/tag.c
index 4344620..dda268f 100644
--- a/libc3/tag.c
+++ b/libc3/tag.c
@@ -6100,6 +6100,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_CHARACTER:
     switch (b->type) {
     case TAG_BOOL:
@@ -6152,6 +6153,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_INTEGER:
     switch (b->type) {
     case TAG_BOOL:
@@ -6228,6 +6230,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_SW:
     switch (b->type) {
     case TAG_BOOL:
@@ -6280,6 +6283,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_S64:
     switch (b->type) {
     case TAG_BOOL:
@@ -6332,6 +6336,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_S32:
     switch (b->type) {
     case TAG_BOOL:
@@ -6384,6 +6389,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_S16:
     switch (b->type) {
     case TAG_BOOL:
@@ -6436,6 +6442,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_S8:
     switch (b->type) {
     case TAG_BOOL:
@@ -6488,6 +6495,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_U8:
     switch (b->type) {
     case TAG_BOOL:
@@ -6540,6 +6548,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_U16:
     switch (b->type) {
     case TAG_BOOL:
@@ -6592,6 +6601,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_U32:
     switch (b->type) {
     case TAG_BOOL:
@@ -6644,6 +6654,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_U64:
     switch (b->type) {
     case TAG_BOOL:
@@ -6696,6 +6707,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_UW:
     switch (b->type) {
     case TAG_BOOL:
@@ -6748,6 +6760,7 @@ s_tag * tag_shift_left (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_VOID:
   case TAG_ARRAY:
   case TAG_CALL:
@@ -6832,6 +6845,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_CHARACTER:
     switch (b->type) {
     case TAG_BOOL:
@@ -6884,6 +6898,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_INTEGER:
     switch (b->type) {
     case TAG_BOOL:
@@ -6960,6 +6975,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_SW:
     switch (b->type) {
     case TAG_BOOL:
@@ -7012,6 +7028,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_S64:
     switch (b->type) {
     case TAG_BOOL:
@@ -7064,6 +7081,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_S32:
     switch (b->type) {
     case TAG_BOOL:
@@ -7116,6 +7134,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_S16:
     switch (b->type) {
     case TAG_BOOL:
@@ -7168,6 +7187,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_S8:
     switch (b->type) {
     case TAG_BOOL:
@@ -7220,6 +7240,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_U8:
     switch (b->type) {
     case TAG_BOOL:
@@ -7272,6 +7293,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_U16:
     switch (b->type) {
     case TAG_BOOL:
@@ -7324,6 +7346,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_U32:
     switch (b->type) {
     case TAG_BOOL:
@@ -7376,6 +7399,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_U64:
     switch (b->type) {
     case TAG_BOOL:
@@ -7428,6 +7452,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_UW:
     switch (b->type) {
     case TAG_BOOL:
@@ -7480,6 +7505,7 @@ s_tag * tag_shift_right (const s_tag *a, const s_tag *b, s_tag *result)
     case TAG_VAR:
       goto error;
     }
+    goto error;
   case TAG_VOID:
   case TAG_ARRAY:
   case TAG_CALL: