Call StrBuf destructors

git-svn-id: svn://svn.cc65.org/cc65/trunk@1415 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/src/cc65/pragma.c b/src/cc65/pragma.c
index 21203944f731f814ab4b2e6c5b33bf060f248387..b26ef7bc81d7ea989fea8cee011f419f50beb097 100644 (file)
--- a/src/cc65/pragma.c
+++ b/src/cc65/pragma.c
@@ -136,12 +136,16 @@ static void StringPragma (StrBuf* B, void (*Func) (const char*))
 {
     StrBuf S;
 
+    /* We expect a string here */
     if (SB_GetString (B, &S)) {
                /* Call the given function with the string argument */
        Func (SB_GetConstBuf (&S));
     } else {
        Error ("String literal expected");
     }
+
+    /* Call the string buf destructor */
+    DoneStrBuf (&S);
 }
 
 
@@ -171,7 +175,10 @@ static void SegNamePragma (StrBuf* B, segment_t Seg)
 
     } else {
        Error ("String literal expected");
-    }
+    }             
+
+    /* Call the string buf destructor */
+    DoneStrBuf (&S);
 }
 
 
@@ -345,6 +352,9 @@ static void ParsePragma (void)
     if (SB_Peek (&B) != '\0') {
         Error ("Unexpected input following pragma directive");
     }
+
+    /* Release the StrBuf */
+    DoneStrBuf (&B);
 }