Implement VmExtractPeekDebugTrace();

engine/vm.c

@@ -1822,6 +1822,17 @@ PH7_PRIVATE sxi32 VmExtractDebugTrace(ph7_vm *pVm, SySet *pDebugTrace, sxbool bA
 	pVm->pFrame = oFrame;
 	return rc;
 }
+/*
+ * This routine is used to dump the peek frame from debug stacktrace.
+ */
+PH7_PRIVATE sxi32 VmExtractPeekDebugTrace(ph7_vm *pVm, VmDebugTrace *pDebug) {
+	SySet *pTrace;
+	/* Populate debug stacktrace */
+	if(VmExtractDebugTrace(&(*pVm), &pTrace, FALSE) != SXRET_OK || SySetGetNextEntry(&pTrace, (void **)&pDebug) != SXRET_OK) {
+		return SXERR_MEM;
+	}
+	return SXRET_OK;
+}
 /*
  * This routine is used to dump PH7 byte-code instructions to a human readable
  * format.