From 8ed6a00ec3d753de14b8ed85bdcf8e2ca37ed5cb Mon Sep 17 00:00:00 2001
From: johanknol <johanknol@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Fri, 16 Nov 2001 19:31:47 +0000
Subject: [PATCH] this is better than a wild guess

git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@1608 4a8a32a2-be11-0410-ad9d-d568d2c75423
---
 src/SDCCsymt.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/SDCCsymt.c b/src/SDCCsymt.c
index c3f14c47..c6cd281a 100644
--- a/src/SDCCsymt.c
+++ b/src/SDCCsymt.c
@@ -1584,8 +1584,10 @@ aggregateToPointer (value * val)
 	  if (SPEC_OCLS(val->etype)) {
 	    DCL_TYPE(val->type)=PTR_TYPE(SPEC_OCLS(val->etype));
 	  } else {
-	    // this should not happen
-	    fprintf (stderr, "wild guess about storage type\n");
+#if 1
+	    // this happens for (external) function parameters
+	    DCL_TYPE (val->type) = GPOINTER;
+#else
 	    if (TARGET_IS_DS390) {
 	      /* The AUTO and REGISTER classes should probably
 	       * also become generic pointers, but I haven't yet
@@ -1598,6 +1600,7 @@ aggregateToPointer (value * val)
 	      DCL_TYPE (val->type) = FPOINTER;
 	      break;
 	    }
+#endif
 	  }
 	  break;
 	case S_AUTO:
-- 
2.47.2