MonetDB: resource_management - put default InstrRecord size on f...

[svetlin via checkin-list]

Changeset: 2884c10a99b0 for MonetDB
URL: https://dev.monetdb.org/hg/MonetDB/rev/2884c10a99b0
Modified Files:
        monetdb5/mal/mal_instruction.c
Branch: resource_management
Log Message:

put default InstrRecord size on freelist only


diffs (25 lines):

diff --git a/monetdb5/mal/mal_instruction.c b/monetdb5/mal/mal_instruction.c
--- a/monetdb5/mal/mal_instruction.c
+++ b/monetdb5/mal/mal_instruction.c
@@ -479,7 +479,9 @@ freeInstruction(InstrPtr p)
 {
        if (p && p->blk && p->blk->ma) {
                // size_t sz = (p->maxarg - 1)*(sizeof(p->argv[0])) + 
(sizeof(InstrRecord));
-               sa_free(p->blk->ma, p);
+               // only free default size
+               if (p->maxarg == 8)
+                       sa_free(p->blk->ma, p);
        }
        //GDKfree(p);
 }
@@ -489,7 +491,9 @@ freeInstructionX(InstrPtr p, MalBlkPtr m
 {
        if (p && mb && mb->ma) {
                // size_t sz = (p->maxarg - 1)*(sizeof(p->argv[0])) + 
(sizeof(InstrRecord));
-               sa_free(mb->ma, p);
+               // only free default size
+               if (p->maxarg == 8)
+                       sa_free(mb->ma, p);
        }
 }
 
_______________________________________________
checkin-list mailing list -- checkin-list@monetdb.org
To unsubscribe send an email to checkin-list-le...@monetdb.org