set $exglobal = (long *)&executor_globals
set $currentExecute = (long*)($exglobal[140])
if ($currentExecute != 0)
while ($currentExecute != 0)
set $currentFState = (long*)$currentExecute[1]
set $currentScope = (long *)$currentFState[2]
if ($currentScope ==0)
  printf ""
else
  set $currentScopeName = (char *)($currentScope[1])
  printf "%s::",$currentScopeName
end
set $currentFuncname = (char *)$currentFState[1]
if ($currentFuncname ==0 )
  printf "no_function"
else
  printf "%s()",$currentFuncname
end

set $currentOpArray = (long*)($currentExecute[3])
set $currentOpline = (int *) ($currentExecute[0])
if ($currentOpArray != 0) && ($currentOpline != 0)
  set $currentFilename = (char*)($currentOpArray[19])
  set $currentLineno = $currentOpline[10]
  printf "@%s:%d\n",$currentFilename,$currentLineno
else
  printf "\n"
end
set $prevExecute = (long*)($currentExecute[6])
set $currentExecute = $prevExecute
end
end