kolibrios/programs/other/t_edit/mem.inc

;-----------------------------------------------------------------------------
proc mem.Alloc,size ;/////////////////////////////////////////////////////////
;-----------------------------------------------------------------------------
	push	ebx ecx
	mov	ecx,[size]
	;*** add ecx,4
	mcall	68,12
	;*** add ecx,-4
	;*** mov [eax],ecx
	;*** add eax,4
	pop	ecx ebx
	ret
endp

;-----------------------------------------------------------------------------
proc mem.ReAlloc,mptr,size ;//////////////////////////////////////////////////
;-----------------------------------------------------------------------------
	push	ebx ecx edx
	mov	ecx,[size]
	or	ecx,ecx
	jz	@f
	;*** add ecx,4
    @@: mov	edx,[mptr]
	or	edx,edx
	jz	@f
	;*** add edx,-4
    @@: mcall	68,20
	or	eax,eax
	jz	@f
	;*** add ecx,-4
	;*** mov [eax],ecx
	;*** add eax,4
    @@: pop	edx ecx ebx
	ret
endp

;-----------------------------------------------------------------------------
proc mem.Free,mptr ;//////////////////////////////////////////////////////////
;-----------------------------------------------------------------------------
	push	ebx ecx
	mov	ecx,[mptr]
	or	ecx,ecx
	jz	@f
	;*** add ecx,-4
    @@: mcall	68,13
	pop	ecx ebx
	ret
endp
deleted function of memory of the 'box_lib.obj' now they are connected through 'lib_init' all programs that use 'tree_list' and 't_edit' must use 'lib_init' git-svn-id: svn://kolibrios.org@1489 a494cfbc-eb01-0410-851d-a64ba20cac60 2010-06-10 00:06:03 +04:00			`;-----------------------------------------------------------------------------`
			`proc mem.Alloc,size ;/////////////////////////////////////////////////////////`
			`;-----------------------------------------------------------------------------`
			`push ebx ecx`
			`mov ecx,[size]`
			`;*** add ecx,4`
			`mcall 68,12`
			`;*** add ecx,-4`
			`;*** mov [eax],ecx`
			`;*** add eax,4`
			`pop ecx ebx`
			`ret`
			`endp`

			`;-----------------------------------------------------------------------------`
			`proc mem.ReAlloc,mptr,size ;//////////////////////////////////////////////////`
			`;-----------------------------------------------------------------------------`
			`push ebx ecx edx`
			`mov ecx,[size]`
			`or ecx,ecx`
			`jz @f`
			`;*** add ecx,4`
			`@@: mov edx,[mptr]`
			`or edx,edx`
			`jz @f`
			`;*** add edx,-4`
			`@@: mcall 68,20`
			`or eax,eax`
			`jz @f`
			`;*** add ecx,-4`
			`;*** mov [eax],ecx`
			`;*** add eax,4`
			`@@: pop edx ecx ebx`
			`ret`
			`endp`

			`;-----------------------------------------------------------------------------`
			`proc mem.Free,mptr ;//////////////////////////////////////////////////////////`
			`;-----------------------------------------------------------------------------`
			`push ebx ecx`
			`mov ecx,[mptr]`
			`or ecx,ecx`
			`jz @f`
			`;*** add ecx,-4`
			`@@: mcall 68,13`
			`pop ecx ebx`
			`ret`
			`endp`