X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2FSDCCglue.c;h=dbe42484362bdc2b8f5de107e05a6e5d3ba297d6;hb=420728259e942035b513094f2fc820fbc08fa8ee;hp=59f82998c0ae74494db1f6ab87f58f442fff2a36;hpb=4d4538128efab335fee5f6425a91f00665c3be55;p=fw%2Fsdcc

diff --git a/src/SDCCglue.c b/src/SDCCglue.c
index 59f82998..dbe42484 100644
--- a/src/SDCCglue.c
+++ b/src/SDCCglue.c
@@ -1154,6 +1154,11 @@ emitStaticSeg (memmap * map, FILE * out)
 	      resolveIvalSym (sym->ival);
 	      printIval (sym, sym->type, sym->ival, out);
 	      noAlloc--;
+	      // if sym->ival is a string, WE don't need it anymore
+	      if (IS_AST_SYM_VALUE(list2expr(sym->ival)) &&
+		  list2val(sym->ival)->sym->isstrlit) {
+		freeStringSymbol(list2val(sym->ival)->sym);
+	      }
 	    }
 	  else {
 	      /* allocate space */