Subversion Repositories Kolibri OS

Rev

Rev 1066 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1066 Rev 2971
Line 3... Line 3...
3 
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
 3 
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
4 
;; Distributed under terms of the GNU General Public License    ;;
 4 
;; Distributed under terms of the GNU General Public License    ;;
5 
;;                                                              ;;
 5 
;;                                                              ;;
6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 7... Line 7...
7 
 
 7 
 
Line 8... Line 8...
8 
$Revision: 1066 $
 8 
$Revision: 2971 $
9 
 
 9 
 
Line 21... Line 21...
21 
HEAP_TOP  equ 0x7FC00000
 21 
HEAP_TOP  equ 0x7FC00000
Line 22... Line 22...
22 
 
 22 
 
23 
align 4
 23 
align 4
24 
_init_user_heap:
 24 
_init_user_heap:
25 
init_heap:
 - 
 
26 
 
 25 
init_heap:
27 
           mov ebx,[current_slot]
 26 
           mov ebx,[current_slot]
28 
           mov eax, [ebx+APPDATA.heap_top]
 27 
           mov eax, [ebx+APPDATA.heap_top]
29 
           test eax, eax
 28 
           test eax, eax
30 
           jz @F
 29 
           jz @F
Line 44... Line 43...
44 
           shr edx, 10
 43 
           shr edx, 10
45 
           mov ecx, eax
 44 
           mov ecx, eax
46 
           sub eax, 4096
 45 
           sub eax, 4096
47 
           or ecx, FREE_BLOCK
 46 
           or ecx, FREE_BLOCK
48 
           mov [page_tabs+edx], ecx
 47 
           mov [page_tabs+edx], ecx
- 
 
 48 
 
49 
           ret
 49 
           ret
Line 50... Line 50...
50 
 
 50 
 
51 
align 4
 51 
align 4
52 
_UserAlloc:
 52 
_UserAlloc: