# HG changeset patch
# User Pascal Bellard <pascal.bellard@slitaz.org>
# Date 1562842244 -7200
# Node ID a3046db1ef94b53b9addd59a3975977ee8fd5425
# Parent  48e8f1257eab89fab9c287454ae7b3455fc0d990
linld: fix strdup

diff -r 48e8f1257eab -r a3046db1ef94 linld/stuff/src/CRTL.ASM
--- a/linld/stuff/src/CRTL.ASM	Wed Jul 10 23:26:20 2019 +0300
+++ b/linld/stuff/src/CRTL.ASM	Thu Jul 11 12:50:44 2019 +0200
@@ -511,12 +511,12 @@
 ;***************************************************************
 	global	@strdup$qpxzc:near
 @strdup$qpxzc:
-		mov	ax,[_heap_top]
-		xchg	ax,bx
+		call	xchg_heap_top
 		call	@strcpy$qpxzct1
 		xchg	ax,bx
 xchg_heap_top:
 		xchg	ax,[_heap_top]
+		xchg	ax,bx
 		ret
 
         global  @malloc_or_die$qui:near