Subversion Repositories Kolibri OS

Rev

Rev 3038 | Rev 6823 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3038 Rev 5940
Line 120... Line 120...
120 
endp
 120 
endp
121 
;-----------------------------------------------------------------------------
 121 
;-----------------------------------------------------------------------------
122 
proc mem.ReAlloc, mptr, size
 122 
proc mem.ReAlloc, mptr, size
123 
	push	ebx ecx edx
 123 
	push	ebx ecx edx
124 
	mov	ecx, [size]
 124 
	mov	ecx, [size]
125 
	or	ecx, ecx
 - 
 
126 
	jz	@f
 - 
 
127 
    @@:
 - 
 
128 
	mov	edx, [mptr]
 125 
	mov	edx, [mptr]
129 
	or	edx, edx
 - 
 
130 
	jz	@f
 - 
 
131 
    @@:
 - 
 
132 
	mcall	68, 20
 126 
	mcall	68, 20
133 
	or	eax, eax
 - 
 
134 
	jz	@f
 - 
 
135 
    @@:
 - 
 
136 
	pop	edx ecx ebx
 127 
	pop	edx ecx ebx
137 
	ret
 128 
	ret
138 
endp
 129 
endp
139 
;-----------------------------------------------------------------------------
 130 
;-----------------------------------------------------------------------------
140 
proc mem.Free, mptr
 131 
proc mem.Free, mptr
141 
	push	ebx ecx
 132 
	push	ebx ecx
142 
	mov	ecx,[mptr]
 133 
	mov	ecx,[mptr]
143 
	or	ecx,ecx
 - 
 
144 
	jz	@f
 - 
 
145 
    @@:
 - 
 
146 
	mcall	68, 13
 134 
	mcall	68, 13
147 
	pop	ecx ebx
 135 
	pop	ecx ebx
148 
	ret
 136 
	ret
149 
endp
 137 
endp
150 
;-----------------------------------------------------------------------------
 138 
;-----------------------------------------------------------------------------