> option list
PicoMite MMBasic Version 5.07.05RC9
OPTION SYSTEM SPI GP18,GP19,GP16
OPTION AUTORUN 1
OPTION CPUSPEED (KHz) 252000
OPTION LCDPANEL ILI9341, RLANDSCAPE,GP20,GP21,GP17
OPTION SDCARD GP22
> list "local_index_test.bas"
Option Base 0
Option Default None
Option Explicit On

foo()
End

Sub foo()
 Local i% = 0, s$
 On Error Skip 2
 s$ = bar%()
 i% = 1
End Sub

Function bar%()
Exit Function
> run "local_index_test.bas"
Error: Invalid address - resetting

void __not_in_flash_func(ExecuteProgram)(unsigned char *p) {
   int i, SaveLocalIndex = 0;
   jmp_buf SaveErrNext;
   memcpy(SaveErrNext, ErrNext, sizeof(jmp_buf));                  // we call ExecuteProgram() recursively so we need to store/restore old jump buffer between calls
   skipspace(p);                                                   // just in case, skip any whitespace

   while(1) {
       if(*p == 0) p++;                                            // step over the zero byte marking the beginning of a new element
       if(*p == T_NEWLINE) {
           CurrentLinePtr = p;                                     // and pointer to the line for error reporting
           TraceBuff[TraceBuffIndex] = p;                          // used by TRACE LIST
           if(++TraceBuffIndex >= TRACE_BUFF_SIZE) TraceBuffIndex = 0;
           if(TraceOn && p < ProgMemory + Option.PROG_FLASH_SIZE) {
               inpbuf[0] = '[';
               IntToStr(inpbuf + 1, CountLines(p), 10);
               strcat(inpbuf, "]");
               MMPrintString(inpbuf);
               uSec(1000);
           }
           p++;                                                    // and step over the token
       }
       if(*p == T_LINENBR) p += 3;                                 // and step over the number
       skipspace(p);                                               // and skip any trailing white space
       if(p[0] == T_LABEL) {                                       // got a label
           p += p[1] + 2;                                          // skip over the label
           skipspace(p);                                           // and any following spaces
       }

       if(*p) {                                                    // if p is pointing to a command
           nextstmt = cmdline = p + 1;
           skipspace(cmdline);
           skipelement(nextstmt);
           if(*p && *p != '\'') {                                  // ignore a comment line
               SaveLocalIndex = LocalIndex;                        // save this if we need to cleanup after an error
                                                                   // moved from within the setjmp() block, otherwise should be flagged volatile
               if(setjmp(ErrNext) == 0) {                          // return to the else leg of this if error and OPTION ERROR SKIP/IGNORE is in effect
                   if(*(char*)p >= C_BASETOKEN && *(char*)p - C_BASETOKEN < CommandTableSize - 1 && (commandtbl[*(char*)p - C_BASETOKEN].type & T_CMD)) {
                       cmdtoken = *(char*)p;
                       targ = T_CMD;
                       commandtbl[*(char*)p - C_BASETOKEN].fptr(); // execute the command
                   } else {
                       if(!isnamestart(*p)) error("Invalid character: @", (int)(*p));
                       i = FindSubFun(p, false);                   // it could be a defined command
                       if(i >= 0) {                                // >= 0 means it is a user defined command
                           DefinedSubFun(false, p, i, NULL, NULL, NULL, NULL);
                       }
                       else
                           error("Unknown command");
                   }
               } else {
                   LocalIndex = SaveLocalIndex;                    // restore so that we can clean up any memory leaks
                   ClearTempMemory();
               }
               if(OptionErrorSkip > 0) OptionErrorSkip--;        // if OPTION ERROR SKIP decrement the count - we do not error if it is greater than zero
               if(TempMemoryIsChanged) ClearTempMemory();          // at the end of each command we need to clear any temporary string vars
               CheckAbort();
               check_interrupt();                                  // check for an MMBasic interrupt or touch event and handle it
           }
           p = nextstmt;
       }
       if((p[0] == 0 && p[1] == 0) || (p[0] == 0xff && p[1] == 0xff)) break;  // the end of the program is marked by TWO zero chars, empty flash by two 0xff
   }

   memcpy(ErrNext, SaveErrNext, sizeof(jmp_buf));                  // restore old jump buffer
}

Option Base 0
Option Default None
Option Explicit On

Dim s$
? "Expect 0, found" Mm.Info(CallDepth)
On Error Skip 3
s$ = bar%()
? "Expect 0, found" Mm.Info(CallDepth)
Print "Caught: " Mm.ErrMsg$
End

Function bar%()
 ? "Expect 1, found" Mm.Info(CallDepth)
End Function

Sub test_call_fn_with_wrong_type()
 On Error Skip 2
 Local s$ = fun_b%()
 assert_raw_error("Expected a string")
End Sub

Function fun_b%()
End Function

On error skip 5
splod
fred
b=6
Print b

Sub fred
a=10
c=12
d=13
e=15
f=16
End Sub

On error skip 5
splod
fred
b=6
Print b

Sub fred
End Sub