// File: syusui-s[P]old_rpn_language/./element.h
// Function: fn_pm(Element*)
Element* fn_pm(Element* op){
	long a;
	double b;
	Element *rtn;
	
	if(op->type_is() == "int"){
		a = atol(op->data_is().c_str());
		a*=-1;
		rtn = new Element(ltoa(a));
	}else if(op->type_is() == "float"){
		b = atof(op->data_is().c_str());
		b*=-1;
		rtn = new Element(ftoa(b));
	}

	return rtn;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x140, %rsp            # imm = 0x140
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rsi
leaq -0x40(%rbp), %rdi
movq %rdi, -0x108(%rbp)
callq 0x5910
movq -0x108(%rbp), %rdi
leaq 0x2829(%rip), %rsi      # 0xa15a
callq 0x9340
movb %al, -0xfa(%rbp)
jmp 0x793e
leaq -0x40(%rbp), %rdi
callq 0x3448
movb -0xfa(%rbp), %al
testb $0x1, %al
jne 0x7956
jmp 0x7a5c
movq -0x8(%rbp), %rsi
leaq -0x70(%rbp), %rdi
movq %rdi, -0x118(%rbp)
callq 0x58e0
movq -0x118(%rbp), %rdi
callq 0x30f0
movq %rax, %rdi
callq 0x32b0
movq -0x118(%rbp), %rdi
movq %rax, -0x10(%rbp)
callq 0x3448
movq -0x10(%rbp), %rax
negq %rax
movq %rax, -0x10(%rbp)
movl $0x40, %edi
callq 0x3230
movq %rax, -0x110(%rbp)
movb $0x1, -0x91(%rbp)
movq -0x10(%rbp), %rsi
leaq -0x90(%rbp), %rdi
callq 0x3f60
jmp 0x79c3
movq -0x110(%rbp), %rdi
leaq -0x90(%rbp), %rsi
callq 0x5800
jmp 0x79d8
movq -0x110(%rbp), %rax
movb $0x0, -0x91(%rbp)
movq %rax, -0x20(%rbp)
leaq -0x90(%rbp), %rdi
callq 0x3448
jmp 0x7bba
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
leaq -0x40(%rbp), %rdi
callq 0x3448
jmp 0x7bc7
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
jmp 0x7a3b
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
leaq -0x90(%rbp), %rdi
callq 0x3448
testb $0x1, -0x91(%rbp)
jne 0x7a46
jmp 0x7a57
movq -0x110(%rbp), %rdi
movl $0x40, %esi
callq 0x3240
jmp 0x7bc7
movq -0x8(%rbp), %rsi
leaq -0xb8(%rbp), %rdi
movq %rdi, -0x128(%rbp)
callq 0x5910
movq -0x128(%rbp), %rdi
leaq 0x26e8(%rip), %rsi      # 0xa169
callq 0x9340
movb %al, -0x119(%rbp)
jmp 0x7a8e
leaq -0xb8(%rbp), %rdi
callq 0x3448
movb -0x119(%rbp), %al
testb $0x1, %al
jne 0x7aa9
jmp 0x7bb8
movq -0x8(%rbp), %rsi
leaq -0xd8(%rbp), %rdi
movq %rdi, -0x138(%rbp)
callq 0x58e0
movq -0x138(%rbp), %rdi
callq 0x30f0
movq %rax, %rdi
callq 0x32f0
movq -0x138(%rbp), %rdi
movsd %xmm0, -0x18(%rbp)
callq 0x3448
movaps 0x2544(%rip), %xmm1     # 0xa030
movsd -0x18(%rbp), %xmm0
pxor %xmm1, %xmm0
movlpd %xmm0, -0x18(%rbp)
movl $0x40, %edi
callq 0x3230
movq %rax, -0x130(%rbp)
movb $0x1, -0xf9(%rbp)
movsd -0x18(%rbp), %xmm0
leaq -0xf8(%rbp), %rdi
callq 0x4000
jmp 0x7b25
movq -0x130(%rbp), %rdi
leaq -0xf8(%rbp), %rsi
callq 0x5800
jmp 0x7b3a
movq -0x130(%rbp), %rax
movb $0x0, -0xf9(%rbp)
movq %rax, -0x20(%rbp)
leaq -0xf8(%rbp), %rdi
callq 0x3448
jmp 0x7bb8
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
leaq -0xb8(%rbp), %rdi
callq 0x3448
jmp 0x7bc7
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
jmp 0x7b9a
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
leaq -0xf8(%rbp), %rdi
callq 0x3448
testb $0x1, -0xf9(%rbp)
jne 0x7ba5
jmp 0x7bb6
movq -0x130(%rbp), %rdi
movl $0x40, %esi
callq 0x3240
jmp 0x7bc7
jmp 0x7bba
movq -0x20(%rbp), %rax
addq $0x140, %rsp            # imm = 0x140
popq %rbp
retq
movq -0x48(%rbp), %rdi
callq 0x33b0