Subversion Repositories Kolibri OS

Rev

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

Rev 220 Rev 226
Line 178... Line 178...
178 
	mov	dword [edi+4],0
 178 
	mov	dword [edi+4],0
179 
	cmp	byte [ebx],'$'
 179 
	cmp	byte [ebx],'$'
180 
	je	pascal_hex_number
 180 
	je	pascal_hex_number
181 
	cmp	word [ebx],'0x'
 181 
	cmp	word [ebx],'0x'
182 
	je	get_hex_number
 182 
	je	c_hex_number
183 
	mov	al,[esi]
 183 
	mov	al,[esi]
184 
	dec	esi
 184 
	dec	esi
185 
	cmp	al,'h'
 185 
	cmp	al,'h'
186 
	je	get_hex_number
 186 
	je	get_hex_number
187 
	cmp	al,'b'
 187 
	cmp	al,'b'
188 
	je	get_bin_number
 188 
	je	get_bin_number
Line 277... Line 277...
277 
	or	al,al
 277 
	or	al,al
278 
	jz	get_bin_digit
 278 
	jz	get_bin_digit
279 
	or	ebp,-1
 279 
	or	ebp,-1
280 
	jmp	get_bin_digit
 280 
	jmp	get_bin_digit
281 
      pascal_hex_number:
 281 
      c_hex_number:
- 
 
 282 
	cmp	cl,2
- 
 
 283 
	je	bad_number
- 
 
 284 
      pascal_hex_number:
282 
	cmp	cl,1
 285 
	cmp	cl,1
283 
	je	bad_number
 286 
	je	bad_number
284 
      get_hex_number:
 287 
      get_hex_number:
285 
	xor	bl,bl
 288 
	xor	bl,bl
286 
      get_hex_digit:
 289 
      get_hex_digit:
Line 2133... Line 2136...
2133 
	jmp	check_qword_value
 2136 
	jmp	check_qword_value
2134 
calculate_relative_offset:
 2137 
calculate_relative_offset:
2135 
	cmp	[value_undefined],0
 2138 
	cmp	[value_undefined],0
2136 
	jne	relative_offset_ok
 2139 
	jne	relative_offset_ok
2137 
	add	eax,dword [org_origin]
 2140 
	test	bh,bh
- 
 
 2141 
	setne	ch
- 
 
 2142 
	cmp	bx,word [org_registers]
- 
 
 2143 
	je	origin_registers_ok
- 
 
 2144 
	xchg	bh,bl
- 
 
 2145 
	xchg	ch,cl
- 
 
 2146 
	cmp	bx,word [org_registers]
- 
 
 2147 
	jne	invalid_value
- 
 
 2148 
      origin_registers_ok:
- 
 
 2149 
	cmp	cx,word [org_registers+2]
- 
 
 2150 
	jne	invalid_value
- 
 
 2151 
	add	eax,dword [org_origin]
2138 
	adc	edx,dword [org_origin+4]
 2152 
	adc	edx,dword [org_origin+4]
2139 
	sub	eax,edi
 2153 
	sub	eax,edi
2140 
	sbb	edx,0
 2154 
	sbb	edx,0
2141 
	mov	bl,[value_type]
 2155 
	mov	bl,[value_type]
2142 
	or	bl,bl
 2156 
	or	bl,bl