next step towards advanged type checking

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

diff --git a/src/SDCCsymt.c b/src/SDCCsymt.c
index bebf6f7449e05934c7b41a5f0b02945583b433a2..e83e56f3116336ab452de3c04eae6e917dcf72bc 100644 (file)
--- a/src/SDCCsymt.c
+++ b/src/SDCCsymt.c
@@ -500,6 +500,7 @@ void checkTypeSanity(sym_link *etype, char *name) {
   // special case for "short"
   if (etype->select.s._short) {
     SPEC_NOUN(etype) = options.shortisint ? V_INT : V_CHAR;
+    etype->select.s._short = 0;
   }
 
   /* if no noun e.g. 

diff --git a/src/ds390/ralloc.c b/src/ds390/ralloc.c
index 2a1f4e2ebda9429261a3c0a0c84af3b25978dd37..cdffd0028e905f1051d01ee3e4b0bc27e20be442 100644 (file)
--- a/src/ds390/ralloc.c
+++ b/src/ds390/ralloc.c
@@ -2219,7 +2219,6 @@ packForPush (iCode * ic, eBBlock * ebp)
     sym_link *ditype=operandType(IC_RIGHT(dic));
 
     if (SPEC_USIGN(itype)!=SPEC_USIGN(ditype) ||
-       SPEC_SHORT(itype)!=SPEC_SHORT(ditype) ||
        SPEC_LONG(itype)!=SPEC_LONG(ditype))
       return;
   }

diff --git a/src/mcs51/ralloc.c b/src/mcs51/ralloc.c
index 4a16be333574aade50a286c60871f68687563a9d..2bdf5298bbcec6859318fe1e5fe66948083ed818 100644 (file)
--- a/src/mcs51/ralloc.c
+++ b/src/mcs51/ralloc.c
@@ -2218,7 +2218,6 @@ packForPush (iCode * ic, eBBlock * ebp)
     sym_link *ditype=operandType(IC_RIGHT(dic));
 
     if (SPEC_USIGN(itype)!=SPEC_USIGN(ditype) ||
-       SPEC_SHORT(itype)!=SPEC_SHORT(ditype) ||
        SPEC_LONG(itype)!=SPEC_LONG(ditype))
       return;
   }

diff --git a/src/z80/ralloc.c b/src/z80/ralloc.c
index 9047a27d3e4bd7cf3f1d4a793d1fa8fafba15d9c..b159923eb3e154e9476492eb220ade5f75e9fc34 100644 (file)
--- a/src/z80/ralloc.c
+++ b/src/z80/ralloc.c
@@ -2063,7 +2063,6 @@ joinPushes (iCode * ic)
        */
       /* First upgrade the size of (first) to int */
       SPEC_NOUN (operandType (IC_LEFT (ic))) = V_INT;
-      SPEC_SHORT (operandType (IC_LEFT (ic))) = 0;
 
       floatFromVal (AOP /* need some sleep ... */ );
       /* Now get and join the values */