v0.61: Fixed bug in & address of local arrays

eightball.c

@@ -2415,6 +2415,13 @@ unsigned char getintvar(char *name,
                     } else {
                         emit(VM_LDAWORD);
                     }
+		} else {
+                    if (local && compilingsub) {
+                        if (*(int *) ((unsigned char *) ptr + sizeof(var_t) + sizeof(int)) != -1) {
+			    /* Convert to absolute address */
+			    emit(VM_RTOA);
+			}
+		    }
 		}
             } else {
                 emitldi((int) ((int *) bodyptr));
@@ -2437,6 +2444,13 @@ unsigned char getintvar(char *name,
                     } else {
                         emit(VM_LDABYTE);
                     }
+		} else {
+                    if (local && compilingsub) {
+                        if (*(int *) ((unsigned char *) ptr + sizeof(var_t) + sizeof(int)) != -1) {
+			    /* Convert to absolute address */
+			    emit(VM_RTOA);
+			}
+		    }
 		}
             }
         } else {

eightballutils.h

@@ -37,7 +37,7 @@
 /*                                                                        */
 /**************************************************************************/
 
-#define VERSIONSTR "0.60"
+#define VERSIONSTR "0.61"
 
 void print(char *str);