From bc35a48d6577c0e18d7b9defd98965b9935e5c0b Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Thu, 15 Jan 2015 20:40:33 +0000
Subject: [PATCH]  * __error in cprt0.as

git-svn-id: trunk@29477 -
---
 rtl/dragonfly/x86_64/cprt0.as | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/rtl/dragonfly/x86_64/cprt0.as b/rtl/dragonfly/x86_64/cprt0.as
index 90c5b49538..10dedb9593 100644
--- a/rtl/dragonfly/x86_64/cprt0.as
+++ b/rtl/dragonfly/x86_64/cprt0.as
@@ -120,6 +120,22 @@ _start:
 	call	exit
 .LFE5:
 	.size	_start, .-_start
+.weak __error
+.type	__error, @function
+__error:
+.LFB9:
+	
+	pushq	%rbp
+	movq	%rsp, %rbp
+	movq	%fs:0, %rdx
+	movq	errno@gottpoff(%rip), %rax
+	addq	%rdx, %rax
+	popq	%rbp
+	ret
+	
+.LFE9:
+	.size	__error, .-__error
+
 .bss
         .type   __stkptr,@object
         .size   __stkptr,8