fix if function is not called

programs/network/ftpc/gui.inc

@@ -7,6 +7,7 @@ include '../../load_lib.mac'
  
 icon_tl_sys dd 0
 icon_tl_nod dd 0
+st_corect   dd 0
 show_log    db 0 ; 0 - hide log, 1 - show log
 
 TLIST_SZ = 325+16 ;=341. 16 is x-size of scroll bar
@@ -266,6 +267,7 @@ gui: ;//////////////////////////////////////////////////////////////////////////
         jmp     .still
 
       .no_edit:
+        mov     [st_corect], 56
         stdcall [tl_mouse], tree1
         stdcall [tl_mouse], tree2
         stdcall [edit_box_mouse], edit_mkd
@@ -276,6 +278,7 @@ gui: ;//////////////////////////////////////////////////////////////////////////
     align 16
     .key:
         mcall   SF_GET_KEY
+        mov     [st_corect], 28
         stdcall [tl_key], tree1
         stdcall [tl_key], tree2
         stdcall [edit_box_key], edit_mkd
@@ -335,7 +338,7 @@ gui: ;//////////////////////////////////////////////////////////////////////////
       @@:
         cmp     ah, 1
         je      .exit
-      
+        
         jmp     .still
 
     .print:
@@ -610,6 +613,7 @@ fun_on_enter:
     cmp     byte[esi], 0
     jne     @b
     mov     word[edi], 0x000a
+    add     esp, [st_corect] ; fix if function is not called
     jmp     cmd_stor
 
 
@@ -618,6 +622,7 @@ fun_on_enter:
 align 4
 fun_on_enter2:
 
+    add     esp, [st_corect] ; fix if function is not called
     stdcall [tl_node_get_data], tree2
     lea     esi, [eax+4]
     cmp     dword[esi], 0x2E2E

programs/network/ftpc/servercommands.inc

@@ -194,6 +194,7 @@ data_loop:
         test    eax, eax
         jz      @f
         call    error_fs
+        add     esp, 4 ; fix stack
         jmp     close_datacon
       @@:
         pop     eax