renesas_tcpip_close.s

来自「T－kernel Tcp/ip Protocol Stack Sample」· S 代码 · 共 57 行

/*""FILE COMMENT""*************************************************************
*   System Name : RENESAS T-Engine/micro T-Engine series
*   File Name   : renesas_tcpip_close.S 
*   Version     : 1.00.00
*   Contents    : T-Kernel extended SVC interface library
*               : created from tcpip_svcdef.h
*   Model       : M32192 T-Engine
*   CPU         : M32192 
*   Compiler    : GNU
*   OS          : T-Kernel
*   note        : The Software is being delivered to you "AS IS" 
*               : and Renesas,whether explicitly or implicitly makes  
*               : no warranty as to its Use or performance. 
*               : RENESAS AND ITS SUPPLIER DO NOT AND CANNOT WARRANT 
*               : THE PERFORMANCE OR RESULTS YOU MAY OBTAIN  BY USING 
*               : THE SOFTWARE. AS TO ANY MATTER INCLUDING WITHOUT 
*               : LIMITATION NONINFRINGEMENT OF THIRD PARTY RIGHTS,
*               : MERCHANTABILITY, INTEGRATION, SATISFACTORY QUALITY, 
*               : OR FITNESS FOR ANY PARTICULAR PURPOSE.
*
*   Copyright (c) 2005 MITSUBISHI ELECTRIC CORP. All Rights Reserved.
*   AND RENESAS TECHNOLOGY CORP. All Rights Reserved.
*   AND RENESAS SOLUTIONS CORP. All Rights Reserved.
*
*   history     : 2005.12.01 Ver.1.00.00
*""FILE COMMENT END""*********************************************************/

#include <machine.h>
#include <tk/sysdef.h>
#include <tcpip_fn.h>

	.text
	.balign	4
	.globl	Csym(renesas_tcpip_close)
	.type	Csym(renesas_tcpip_close), @function
Csym(renesas_tcpip_close):
	st	r3, @-sp
	st	r2, @-sp
	st	r1, @-sp
	st	r0, @-sp
	seth	r4, #high(TCPIP_RENESAS_TCPIP_CLOSE_FN)
	or3	r4, r4, #low(TCPIP_RENESAS_TCPIP_CLOSE_FN)
	mv	r0, sp
	trap	#TRAP_SVC
	addi	sp, #4*4
	bltz	r0, err_renesas_tcpip_close
	jmp	r14

err_renesas_tcpip_close:
	seth	r4, #high(renesas_tcpip_errno)
	or3	r4, r4, #low(renesas_tcpip_errno)
	and3	r0, r0, #0xFFFF
	st	r0, @r4
	ldi	r0, #(-1)
	jmp	r14