From: johanknol <johanknol@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Mon, 17 Dec 2001 11:21:45 +0000 (+0000)
Subject: assigning NULL to a generic pointer is ok
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=9fc5fe5cf3fa3a90e37e9f2c308e98a578c424e3;p=fw%2Fsdcc

assigning NULL to a generic pointer is ok


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

diff --git a/src/SDCCglue.c b/src/SDCCglue.c
index 1ad47d61..799639fd 100644
--- a/src/SDCCglue.c
+++ b/src/SDCCglue.c
@@ -566,6 +566,10 @@ printIvalType (symbol *sym, sym_link * type, initList * ilist, FILE * oFile)
 	}
 
 	val = list2val (ilist);
+	if (val->type != type) {
+	  val = valCastLiteral(type, floatFromVal(val));
+	}
+	
 	switch (getSize (type)) {
 	case 1:
 		if (!val)
@@ -865,7 +869,7 @@ printIvalCharPtr (symbol * sym, sym_link * type, value * val, FILE * oFile)
     }
   else
     {
-      /* What is this case? Are these pointers? */
+      // these are literals assigned to pointers
       switch (size)
 	{
 	case 1:
@@ -879,14 +883,20 @@ printIvalCharPtr (symbol * sym, sym_link * type, value * val, FILE * oFile)
 		      aopLiteral (val, 0), aopLiteral (val, 1));
 	  break;
 	case 3:
-	  werror (E_LITERAL_GENERIC);
+	  // mcs51 generic pointer
+	  if (floatFromVal(val)!=0) {
+	    werror (E_LITERAL_GENERIC);
+	  }
 	  fprintf (oFile, "\t.byte %s,%s,%s\n",
 		   aopLiteral (val, 0), 
 		   aopLiteral (val, 1),
 		   aopLiteral (val, 2));
 	  break;
 	case 4:
-	  werror (E_LITERAL_GENERIC);
+	  // ds390 generic pointer
+	  if (floatFromVal(val)!=0) {
+	    werror (E_LITERAL_GENERIC);
+	  }
 	  fprintf (oFile, "\t.byte %s,%s,%s,%s\n",
 		   aopLiteral (val, 0), 
 		   aopLiteral (val, 1),