From 98bdd67eafd3fe4b5c0001fac2f21a55c6fb00dc Mon Sep 17 00:00:00 2001
From: johanknol <johanknol@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Wed, 13 Jun 2001 13:54:43 +0000
Subject: [PATCH] next step towards advanged type checking

git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@887 4a8a32a2-be11-0410-ad9d-d568d2c75423
---
 src/SDCCsymt.c     | 1 +
 src/ds390/ralloc.c | 1 -
 src/mcs51/ralloc.c | 1 -
 src/z80/ralloc.c   | 1 -
 4 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/SDCCsymt.c b/src/SDCCsymt.c
index bebf6f74..e83e56f3 100644
--- 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 2a1f4e2e..cdffd002 100644
--- 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 4a16be33..2bdf5298 100644
--- 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 9047a27d..b159923e 100644
--- 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 */
-- 
2.47.2