From: sandeep <sandeep@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Thu, 13 Apr 2000 17:37:24 +0000 (+0000)
Subject: some more fixes for initializations
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=deb809a652dd09e6f2439c4c7f2dadfecfbb7e07;p=fw%2Fsdcc

some more fixes for initializations


git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@235 4a8a32a2-be11-0410-ad9d-d568d2c75423
---

diff --git a/src/SDCCglue.c b/src/SDCCglue.c
index 45a19c5d..cba43a44 100644
--- a/src/SDCCglue.c
+++ b/src/SDCCglue.c
@@ -540,14 +540,15 @@ int printIvalCharPtr (symbol * sym, link * type, value * val, FILE * oFile)
 		    "\t!dbs\n", val->name) ;
 	    break;
 	case 2:
-	    tfprintf(oFile, "\t!dws\n", val->name);
+	    tfprintf(oFile, "\t.byte %s,(%s >> 8)\n", val->name, val->name);
 	    break;
 	    /* PENDING: probably just 3 */
 	default:
 	    /* PENDING: 0x02 or 0x%02x, CDATA? */
 	    fprintf (oFile,
-		     "\t.byte %s,(%s >> 8),#0x02\n",
-		     val->name, val->name);
+		     "\t.byte %s,(%s >> 8),#0x%02x\n",
+		     val->name, val->name, (IS_PTR(val->type) ? DCL_TYPE(val->type) :
+					    PTR_TYPE(SPEC_OCLS(val->etype))));
 	}
     }
     else {
@@ -631,8 +632,9 @@ void printIvalPtr (symbol * sym, link * type, initList * ilist, FILE * oFile)
 	break;
 	
     case 3:
-	fprintf (oFile, "\t.byte %s,(%s >> 8),#0x02\n",
-		 val->name, val->name);
+	fprintf (oFile, "\t.byte %s,(%s >> 8),#0x%02x\n",
+		 val->name, val->name,(IS_PTR(val->type) ? DCL_TYPE(val->type) :
+					    PTR_TYPE(SPEC_OCLS(val->etype))));
     }
     return;
 }