QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 10:01:21 +00:00
Code Releases Wiki Activity

Allows reading program_stop without using _Exit.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-04 21:12:33 -03:00
parent 600fa69786
commit 0bbc60e73e
3 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
internal/c/libqb.cpp
View file

@ -5604,6 +5604,9 @@ void end(){
while(1) Sleep(16);
}
int32 stop_program_state() {
return stop_program;
}
//MEM_STATIC memory manager

1
internal/c/qbx.cpp
View file

@ -286,6 +286,7 @@ extern double get_error_erl();
extern uint32 get_error_err();
extern char *human_error(int32 errorcode);
extern void end();
extern int32 stop_program_state();
extern uint8 *mem_static_malloc(uint32 size);
extern void mem_static_restore(uint8* restore_point);
extern uint8 *cmem_dynamic_malloc(uint32 size);

2
internal/support/vwatch/vwatch.bm
View file

@ -15,6 +15,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
SUB vwatch_starttimers ALIAS start_timers
SUB unlockvWatchHandle
SUB set_qbs_size (target AS _OFFSET, BYVAL length&)
FUNCTION stop_program_state&
END DECLARE
IF vw_bypass THEN EXIT SUB
@ -167,6 +168,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
GOSUB SendCommand
DO 'main loop
IF stop_program_state& THEN EXIT DO
SELECT CASE vw_cmd$
CASE "run"
vw_pauseMode = 0