Add type casts to ckalloc and ckfree in evaluator

FolkComputer · Sep 25, 2023 · aa0a0cc · aa0a0cc
1 parent 7bec645
commit aa0a0cc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/evaluator.tcl b/lib/evaluator.tcl
@@ -1232,7 +1232,7 @@ namespace eval Evaluator {
 
         queue_entry_t* entryPtr;
         while ((entryPtr = pqueue_pop(queue)) != NULL) {
-            queue_entry_t entry = *entryPtr; ckfree(entryPtr);
+            queue_entry_t entry = *entryPtr; ckfree((char*) entryPtr);
             if (entry.op == ASSERT) {
                 op("Assert (%s)", Tcl_GetString(entry.assert.clause));
                 statement_handle_t id; bool isNewStatement;
@@ -1287,7 +1287,7 @@ namespace eval Evaluator {
     }
     $cc code {
         void queueInsert(queue_entry_t entry) {
-            queue_entry_t* ptr = ckalloc(sizeof(entry));
+            queue_entry_t* ptr = (queue_entry_t*)ckalloc(sizeof(entry));
             *ptr = entry;
             ptr->seq = seq++;
             pqueue_insert(queue, ptr);