Fix issue where native functions returning an array would not compile

2016-02-08 10:55:02 +01:00
parent 664c25bdac
commit 2c73268668
3 changed files with 40 additions and 13 deletions
--- a/compiler/libpc300/sc1.c
+++ b/compiler/libpc300/sc1.c
@ -3244,7 +3244,7 @@ static void funcstub(int native)
  /* attach the array to the function symbol */
  if (numdim>0) {
    assert(sym!=NULL);
-    sub=addvariable(symbolname,0,iARRAY,sGLOBAL,tag,dim,numdim,idxtag);
+    sub=addvariable(symbolname,0,iREFARRAY,sGLOBAL,tag,dim,numdim,idxtag);
    sub->parent=sym;
  } /* if */