New function ReplaceType

git-svn-id: svn://svn.cc65.org/cc65/trunk@1520 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/src/cc65/exprdesc.c b/src/cc65/exprdesc.c
index ea919dcc923201e5902a69b9a07c89891261d3c3..f31d4ef6bd175bacf12b11a7205e512c834ce1e6 100644 (file)
--- a/src/cc65/exprdesc.c
+++ b/src/cc65/exprdesc.c
@@ -110,3 +110,13 @@ void PrintExprDesc (FILE* F, ExprDesc* E)
 
 
 
+type* ReplaceType (ExprDesc* Expr, const type* NewType)
+/* Replace the type of Expr by a copy of Newtype and return the old type string */
+{
+    type* OldType = Expr->Type;
+    Expr->Type = TypeDup (NewType);
+    return OldType;
+}
+
+
+

diff --git a/src/cc65/exprdesc.h b/src/cc65/exprdesc.h
index 039a46ff81e99558a91038faec4bf466165b6f69..bdd29f703eb69142edeabefad5cac7d042d2351c 100644 (file)
--- a/src/cc65/exprdesc.h
+++ b/src/cc65/exprdesc.h
@@ -37,7 +37,7 @@
 #define EXPRDESC_H
 
 
-                     
+
 /* cc65 */
 #include "datatype.h"
 
@@ -94,6 +94,9 @@ void MakeConstIntExpr (ExprDesc* Expr, long Value);
 void PrintExprDesc (FILE* F, ExprDesc* Expr);
 /* Print an ExprDesc */
 
+type* ReplaceType (ExprDesc* Expr, const type* NewType);
+/* Replace the type of Expr by a copy of Newtype and return the old type string */
+
 
 
 /* End of exprdesc.h */