Added instruction to get the size of some allocation

This will allow for more library level code to be written.  For
example, say you wanted to write a generic byte level reversal
algorithm for dynamically sized allocations.  Getting the size of the
allocation would be fundamental to this operation.

1 files changed, 6 insertions, 88 deletions

diff --git a/lib/inst.c b/lib/inst.c
index 6d46e19..0fc66f3 100644
--- a/lib/inst.c
+++ b/lib/inst.c
@@ -23,258 +23,176 @@ const char *opcode_as_cstr(opcode_t code)
   {
   case OP_NOOP:
     return "NOOP";
-    break;
   case OP_PUSH_BYTE:
     return "PUSH_BYTE";
-    break;
   case OP_PUSH_WORD:
     return "PUSH_WORD";
-    break;
   case OP_PUSH_HWORD:
     return "PUSH_HWORD";
-    break;
   case OP_PUSH_REGISTER_BYTE:
     return "PUSH_REGISTER_BYTE";
-    break;
   case OP_PUSH_REGISTER_WORD:
     return "PUSH_REGISTER_WORD";
-    break;
   case OP_PUSH_REGISTER_HWORD:
     return "PUSH_REGISTER_HWORD";
-    break;
   case OP_POP_BYTE:
     return "POP_BYTE";
-    break;
   case OP_POP_WORD:
     return "POP_WORD";
-    break;
   case OP_POP_HWORD:
     return "POP_HWORD";
-    break;
   case OP_MOV_BYTE:
     return "MOV_BYTE";
-    break;
   case OP_MOV_WORD:
     return "MOV_WORD";
-    break;
   case OP_MOV_HWORD:
     return "MOV_HWORD";
-    break;
   case OP_DUP_BYTE:
     return "DUP_BYTE";
-    break;
   case OP_DUP_HWORD:
     return "DUP_HWORD";
-    break;
   case OP_DUP_WORD:
     return "DUP_WORD";
-    break;
   case OP_MALLOC_BYTE:
     return "MALLOC_BYTE";
-    break;
   case OP_MALLOC_HWORD:
     return "MALLOC_HWORD";
-    break;
   case OP_MALLOC_WORD:
     return "MALLOC_WORD";
-    break;
   case OP_MSET_BYTE:
     return "MSET_BYTE";
-    break;
   case OP_MSET_HWORD:
     return "MSET_HWORD";
-    break;
   case OP_MSET_WORD:
     return "MSET_WORD";
-    break;
   case OP_MGET_BYTE:
     return "MGET_BYTE";
-    break;
   case OP_MGET_HWORD:
     return "MGET_HWORD";
-    break;
   case OP_MGET_WORD:
     return "MGET_WORD";
-    break;
   case OP_MDELETE:
     return "MDELETE";
-    break;
+  case OP_MSIZE:
+    return "MDELETE";
   case OP_NOT_BYTE:
     return "NOT_BYTE";
-    break;
   case OP_NOT_HWORD:
     return "NOT_HWORD";
-    break;
   case OP_NOT_WORD:
     return "NOT_WORD";
-    break;
   case OP_OR_BYTE:
     return "OR_BYTE";
-    break;
   case OP_OR_HWORD:
     return "OR_HWORD";
-    break;
   case OP_OR_WORD:
     return "OR_WORD";
-    break;
   case OP_AND_BYTE:
     return "AND_BYTE";
-    break;
   case OP_AND_HWORD:
     return "AND_HWORD";
-    break;
   case OP_AND_WORD:
     return "AND_WORD";
-    break;
   case OP_XOR_BYTE:
     return "XOR_BYTE";
-    break;
   case OP_XOR_HWORD:
     return "XOR_HWORD";
-    break;
   case OP_XOR_WORD:
     return "XOR_WORD";
-    break;
   case OP_EQ_BYTE:
     return "EQ_BYTE";
-    break;
   case OP_EQ_HWORD:
     return "EQ_HWORD";
-    break;
   case OP_EQ_WORD:
     return "EQ_WORD";
-    break;
   case OP_LT_BYTE:
     return "LT_BYTE";
-    break;
   case OP_LT_CHAR:
     return "LT_CHAR";
-    break;
   case OP_LT_HWORD:
     return "LT_HWORD";
-    break;
   case OP_LT_INT:
     return "LT_INT";
-    break;
   case OP_LT_LONG:
     return "LT_LONG";
-    break;
   case OP_LT_WORD:
     return "LT_WORD";
-    break;
   case OP_LTE_BYTE:
     return "LTE_BYTE";
-    break;
   case OP_LTE_CHAR:
     return "LTE_CHAR";
-    break;
   case OP_LTE_HWORD:
     return "LTE_HWORD";
-    break;
   case OP_LTE_INT:
     return "LTE_INT";
-    break;
   case OP_LTE_LONG:
     return "LTE_LONG";
-    break;
   case OP_LTE_WORD:
     return "LTE_WORD";
-    break;
   case OP_GT_BYTE:
     return "GT_BYTE";
-    break;
   case OP_GT_CHAR:
     return "GT_CHAR";
-    break;
   case OP_GT_HWORD:
     return "GT_HWORD";
-    break;
   case OP_GT_INT:
     return "GT_INT";
-    break;
   case OP_GT_LONG:
     return "GT_LONG";
-    break;
   case OP_GT_WORD:
     return "GT_WORD";
-    break;
   case OP_GTE_BYTE:
     return "GTE_BYTE";
-    break;
   case OP_GTE_CHAR:
     return "GTE_CHAR";
-    break;
   case OP_GTE_HWORD:
     return "GTE_HWORD";
-    break;
   case OP_GTE_INT:
     return "GTE_INT";
-    break;
   case OP_GTE_LONG:
     return "GTE_LONG";
-    break;
   case OP_GTE_WORD:
     return "GTE_WORD";
-    break;
   case OP_PLUS_BYTE:
     return "PLUS_BYTE";
-    break;
   case OP_PLUS_HWORD:
     return "PLUS_HWORD";
-    break;
   case OP_PLUS_WORD:
     return "PLUS_WORD";
   case OP_MULT_BYTE:
     return "MULT_BYTE";
-    break;
   case OP_MULT_HWORD:
     return "MULT_HWORD";
-    break;
   case OP_MULT_WORD:
     return "MULT_WORD";
-    break;
   case OP_JUMP_ABS:
     return "JUMP_ABS";
-    break;
   case OP_JUMP_STACK:
     return "JUMP_STACK";
-    break;
   case OP_JUMP_REGISTER:
     return "JUMP_REGISTER";
-    break;
   case OP_JUMP_IF_BYTE:
     return "JUMP_IF_BYTE";
-    break;
   case OP_JUMP_IF_HWORD:
     return "JUMP_IF_HWORD";
-    break;
   case OP_JUMP_IF_WORD:
     return "JUMP_IF_WORD";
-    break;
   case OP_PRINT_CHAR:
     return "PRINT_CHAR";
-    break;
   case OP_PRINT_BYTE:
     return "PRINT_BYTE";
-    break;
   case OP_PRINT_INT:
     return "PRINT_INT";
-    break;
   case OP_PRINT_HWORD:
     return "PRINT_HWORD";
-    break;
   case OP_PRINT_LONG:
     return "PRINT_LONG";
-    break;
   case OP_PRINT_WORD:
     return "PRINT_WORD";
-    break;
   case OP_HALT:
     return "HALT";
-    break;
   case NUMBER_OF_OPCODES:
     return "";
-    break;
   }
   return "";
 }
@@ -299,7 +217,7 @@ void data_print(data_t datum, data_type_t type, FILE *fp)
 
 void inst_print(inst_t instruction, FILE *fp)
 {
-  static_assert(NUMBER_OF_OPCODES == 83, "inst_bytecode_size: Out of date");
+  static_assert(NUMBER_OF_OPCODES == 84, "inst_bytecode_size: Out of date");
   fprintf(fp, "%s(", opcode_as_cstr(instruction.opcode));
   if (OPCODE_IS_TYPE(instruction.opcode, OP_PUSH))
   {
@@ -332,7 +250,7 @@ void inst_print(inst_t instruction, FILE *fp)
 
 size_t inst_bytecode_size(inst_t inst)
 {
-  static_assert(NUMBER_OF_OPCODES == 83, "inst_bytecode_size: Out of date");
+  static_assert(NUMBER_OF_OPCODES == 84, "inst_bytecode_size: Out of date");
   size_t size = 1; // for opcode
   if (OPCODE_IS_TYPE(inst.opcode, OP_PUSH))
   {
@@ -357,7 +275,7 @@ size_t inst_bytecode_size(inst_t inst)
 
 void inst_write_bytecode(inst_t inst, darr_t *darr)
 {
-  static_assert(NUMBER_OF_OPCODES == 83, "inst_write_bytecode: Out of date");
+  static_assert(NUMBER_OF_OPCODES == 84, "inst_write_bytecode: Out of date");
   // Append opcode
   darr_append_byte(darr, inst.opcode);
   // Then append 0 or more operands
@@ -433,7 +351,7 @@ data_t read_type_from_darr(darr_t *darr, data_type_t type)
 
 inst_t inst_read_bytecode(darr_t *darr)
 {
-  static_assert(NUMBER_OF_OPCODES == 83, "inst_read_bytecode: Out of date");
+  static_assert(NUMBER_OF_OPCODES == 84, "inst_read_bytecode: Out of date");
   if (darr->used >= darr->available)
     return (inst_t){0};
   inst_t inst     = {0};