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

	return rtn;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x130, %rsp            # imm = 0x130
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rsi
leaq -0x40(%rbp), %rdi
movq %rdi, -0x108(%rbp)
callq 0x5910
movq -0x108(%rbp), %rdi
leaq 0x2af9(%rip), %rsi      # 0xa15a
callq 0x9340
movb %al, -0xfa(%rbp)
jmp 0x766e
leaq -0x40(%rbp), %rdi
callq 0x3448
movb -0xfa(%rbp), %al
testb $0x1, %al
jne 0x7686
jmp 0x7786
movq -0x8(%rbp), %rsi
leaq -0x70(%rbp), %rdi
callq 0x58e0
leaq -0x70(%rbp), %rdi
callq 0x30f0
movq %rax, %rdi
callq 0x32b0
movq %rax, -0x10(%rbp)
leaq -0x70(%rbp), %rdi
callq 0x3448
cmpq $0x0, -0x10(%rbp)
jge 0x76dd
imulq $-0x1, -0x10(%rbp), %rax
movq %rax, -0x10(%rbp)
jmp 0x76dd
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
leaq -0x40(%rbp), %rdi
callq 0x3448
jmp 0x78f6
movl $0x40, %edi
callq 0x3230
movq %rax, -0x110(%rbp)
movb $0x1, -0x91(%rbp)
movq -0x10(%rbp), %rsi
leaq -0x90(%rbp), %rdi
callq 0x3f60
jmp 0x7707
movq -0x110(%rbp), %rdi
leaq -0x90(%rbp), %rsi
callq 0x5800
jmp 0x771c
movq -0x110(%rbp), %rax
movb $0x0, -0x91(%rbp)
movq %rax, -0x20(%rbp)
leaq -0x90(%rbp), %rdi
callq 0x3448
jmp 0x78e9
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
jmp 0x7765
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 0x7770
jmp 0x7781
movq -0x110(%rbp), %rdi
movl $0x40, %esi
callq 0x3240
jmp 0x78f6
movq -0x8(%rbp), %rsi
leaq -0xb8(%rbp), %rdi
movq %rdi, -0x120(%rbp)
callq 0x5910
movq -0x120(%rbp), %rdi
leaq 0x29be(%rip), %rsi      # 0xa169
callq 0x9340
movb %al, -0x111(%rbp)
jmp 0x77b8
leaq -0xb8(%rbp), %rdi
callq 0x3448
movb -0x111(%rbp), %al
testb $0x1, %al
jne 0x77d3
jmp 0x78e7
movq -0x8(%rbp), %rsi
leaq -0xd8(%rbp), %rdi
callq 0x58e0
leaq -0xd8(%rbp), %rdi
callq 0x30f0
movq %rax, %rdi
callq 0x32f0
movsd %xmm0, -0x18(%rbp)
leaq -0xd8(%rbp), %rdi
callq 0x3448
xorps %xmm0, %xmm0
ucomisd -0x18(%rbp), %xmm0
jbe 0x7843
movsd 0x27ee(%rip), %xmm0     # 0xa008
mulsd -0x18(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
jmp 0x7843
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
leaq -0xb8(%rbp), %rdi
callq 0x3448
jmp 0x78f6
movl $0x40, %edi
callq 0x3230
movq %rax, -0x128(%rbp)
movb $0x1, -0xf9(%rbp)
movsd -0x18(%rbp), %xmm0
leaq -0xf8(%rbp), %rdi
callq 0x4000
jmp 0x786e
movq -0x128(%rbp), %rdi
leaq -0xf8(%rbp), %rsi
callq 0x5800
jmp 0x7883
movq -0x128(%rbp), %rax
movb $0x0, -0xf9(%rbp)
movq %rax, -0x20(%rbp)
leaq -0xf8(%rbp), %rdi
callq 0x3448
jmp 0x78e7
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x48(%rbp)
movl %eax, -0x4c(%rbp)
jmp 0x78c9
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 0x78d4
jmp 0x78e5
movq -0x128(%rbp), %rdi
movl $0x40, %esi
callq 0x3240
jmp 0x78f6
jmp 0x78e9
movq -0x20(%rbp), %rax
addq $0x130, %rsp            # imm = 0x130
popq %rbp
retq
movq -0x48(%rbp), %rdi
callq 0x33b0
nop