Tinypad - Run in debugger by F10 key. Fasm - support debug parameter in command mode added

git-svn-id: svn://kolibrios.org@4274 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/fasm/trunk/fasm.asm

@@ -131,6 +131,10 @@ NoOutDebugInfo:
 	cmp	[esi], dword ',run'
 	jne	@f
 	mov	[_run_outfile],1
+@@:
+	cmp	[esi], dword ',dbg'
+	jne	@f
+	mov	[_run_outfile],2
 @@:
 	mov	[_mode],CONSOLE_MODE
 	jmp	start
@@ -662,6 +666,12 @@ display_bytes_count:
 	mov	edx,outfile
 	call	make_fullpaths
 	xor	ecx,ecx
+
+	cmp	[_run_outfile],2 ; param is ',dbg'
+	jne	run
+	mcall	70,file_info_debug
+	jmp	@f
+run:
 	mcall	70,file_info_start
 @@:
 	jmp	exit_program

programs/develop/fasm/trunk/version.inc

@@ -33,7 +33,7 @@
 ; cannot simply be copied and put under another distribution licence
 ; (including the GNU Public Licence).
 
-VERSION_STRING equ "1.71.13"
+VERSION_STRING equ "1.71.14"
 
 VERSION_MAJOR = 1
 VERSION_MINOR = 71

programs/develop/tinypad/trunk/data/tp-defines.inc

@@ -18,6 +18,7 @@ define mm.Search.FindNext key.f3
 define mm.Search.Replace  key.ctrl_h
 
 define mm.Run.Run      key.f9
+define mm.Run.Debug    key.f10
 define mm.Run.Compile  key.ctrl_f9
 define mm.Run.DbgBoard open_debug_board
 define mm.Run.SysFuncs open_sysfuncs_txt

programs/develop/tinypad/trunk/data/tp-locale.inc

@@ -123,24 +123,28 @@ popup_res mm.Search,\
 
 popup_res mm.Run,\
   ru,'‡ ¯ãáâ¨âì'	,'F9'	  ,Run	   ,\
+  ru,'‡ ¯ãáâ¨âì ¢ ¤¥¡ ££¥à¥','F10',Debug   ,\
   ru,'Š®¬¯¨«¨à®¢ âì'	,'Ctrl+F9',Compile ,\
   ru,'-'		,''	  ,	   ,\
   ru,'„®áª  ®â« ¤ª¨'	,''	  ,DbgBoard,\
   ru,'‘¨á⥬­ë¥ ä㭪樨',''	  ,SysFuncs,\
 \
   en,'Run'		,'F9'	  ,Run	   ,\
+  en,'Run in debugger'	,'F10'	  ,Debug   ,\
   en,'Compile'		,'Ctrl+F9',Compile ,\
   en,'-'		,''	  ,	   ,\
   en,'Debug board'	,''	  ,DbgBoard,\
   en,'System functions' ,''	  ,SysFuncs,\
 \
   et,'Käivita'		,'F9'	  ,Run	   ,\
+  et,'Käivita aastal siluri'	 ,'F10'    ,Debug   ,\
   et,'Kompileeri'	,'Ctrl+F9',Compile ,\
   et,'-'		,''	  ,	   ,\
   et,'Silumis paneel'	,''	  ,DbgBoard,\
   et,'Süsteemi funktsioonid' ,''	  ,SysFuncs,\
 \
   sp,'Ejecutar'    ,'F9'   ,Run     ,\
+  sp,'Ejecutar en el depurador'     ,'F10'    ,Debug   ,\
   sp,'Compilar'    ,'Ctrl+F9',Compile ,\
   sp,'-'    ,''   ,    ,\
   sp,'Depuración'  ,''	 ,DbgBoard,\

programs/develop/tinypad/trunk/data/tp-tables.inc

@@ -62,6 +62,7 @@ accel_table_main dd		    \
   0x0000001C,key.return 	   ,\ ; Return
   0x0000003D,key.f3		   ,\ ; F3
   0x00000043,key.f9		   ,\ ; F9
+  0x00000044,key.f10		   ,\ ; F10
   0x00000147,key.home		   ,\ ; Home
   0x00000148,key.up		   ,\ ; Up
   0x00000149,key.pgup		   ,\ ; PageUp

programs/develop/tinypad/trunk/history.txt

@@ -1,6 +1,10 @@
 
 HISTORY:
 
+4.0.7 (21/11/2013, Sergey Tyrnov aka tserj)
+  new feature:
+    - Run in debugger by F10
+
 4.0.6 (26/09/2010, Marat Zakiyanov aka Mario79, aka Mario)
   new features:
     - Select file path with OpenDialog for Load and Save.

programs/develop/tinypad/trunk/tinypad.asm

@@ -2,8 +2,8 @@
 ; project name:      TINYPAD
 ; compiler:          flat assembler 1.67.21
 ; memory to compile: 3.0/9.0 MBytes (without/with size optimizations)
-; version:           SVN (4.0.5)
+; version:           SVN (4.0.7)
-; last update:       2008-07-18 (Jul 18, 2008)
+; last update:       2013-11-21 (Nov 21, 2013)
 ; minimal kernel:    revision #823 (svn://kolibrios.org/kernel/trunk)
 ;-----------------------------------------------------------------------------
 ; originally by:     Ville Michael Turjanmaa >> villemt@aton.co.jyu.fi
@@ -35,7 +35,7 @@ include 'tinypad.inc'
 
 header '01',1,@CODE,TINYPAD_END,STATIC_MEM_END,MAIN_STACK,@PARAMS,ini_path
 
-APP_VERSION equ 'SVN (4.0.6)'
+APP_VERSION equ 'SVN (4.0.7)'
 
 TRUE = 1
 FALSE = 0
@@ -466,7 +466,9 @@ endp
 ;-----------------------------------------------------------------------------
 proc start_fasm ;/////////////////////////////////////////////////////////////
 ;-----------------------------------------------------------------------------
-; BL = run after compile
+; BL = 0 - compile
+; BL = 1 - run after compile
+; BL = 2 - run under mtdbg after compile
 ;-----------------------------------------------------------------------------
 ; FASM infile,outfile,/path/to/files[,run]
 ;-----------------------------------------------------------------------------
@@ -516,9 +518,13 @@ proc start_fasm ;/////////////////////////////////////////////////////////////
 	sub	ecx,esi
 	rep	movsb
 
-	cmp	bl,0 ; run outfile ?
+	cmp	bl,0 ; compile outfile ?
 	je	@f
 	mov	dword[edi],',run'
+	cmp	bl,1 ; run outfile ?
+	je	do_run
+	mov	dword[edi],',dbg'
+do_run:
 	add	edi,4
 		@@:
 	mov	al,0

programs/develop/tinypad/trunk/tp-key.asm

@@ -1606,6 +1606,14 @@ proc key.f9 ;///// COMPILE AND RUN ///////////////////////////////////////////
 	ret
 endp
 
+;-----------------------------------------------------------------------------
+proc key.f10 ;///// COMPILE AND RUN UNDER DEBUG //////////////////////////////
+;-----------------------------------------------------------------------------
+	mov	bl,2
+	call	start_fasm
+	ret
+endp
+
 ;-----------------------------------------------------------------------------
 proc key.ctrl_f9 ;///// COMPILE //////////////////////////////////////////////
 ;-----------------------------------------------------------------------------