# HG changeset patch
# User Pascal Bellard <pascal.bellard@slitaz.org>
# Date 1490949474 -7200
# Node ID 766a40e6c5e04190ff81fd221e4725f2bbddb8cd
# Parent  c9c88c0a2ae575d6d1d49130b3ccabbbdf38af2f
linld: fix progname (again)

diff -r c9c88c0a2ae5 -r 766a40e6c5e0 linld/stuff/src/CRTL.ASM
--- a/linld/stuff/src/CRTL.ASM	Fri Mar 31 09:17:01 2017 +0200
+++ b/linld/stuff/src/CRTL.ASM	Fri Mar 31 10:37:54 2017 +0200
@@ -1344,12 +1344,11 @@
 		mov	ah,30h
 		int	21h
 		cmp	al,3
-		xchg	ax,di
+		mov	ax,di
 		jb	@@skip
 		;mov	es,[cs:2Ch]
-		mov	es,[2Ch]
+		mov	es,[di+2Ch]
 		mov	cx,-1
-		mov	ax,di
 @@loop:
 		repne
 		  scasb
@@ -1361,7 +1360,7 @@
 		repne
 		  scasb
 		mov	cx,di
-		sub	cx,si
+		sub	cx,si			; progname len
 		call	malloc_or_die		; keep cx
 		mov	di,ax
 		push	ds
diff -r c9c88c0a2ae5 -r 766a40e6c5e0 linld/stuff/src/_BEG.ASM
--- a/linld/stuff/src/_BEG.ASM	Fri Mar 31 09:17:01 2017 +0200
+++ b/linld/stuff/src/_BEG.ASM	Fri Mar 31 10:37:54 2017 +0200
@@ -56,9 +56,9 @@
 		add	dh,bh		; NS=386+, NC=286
 		 ifndef	NO386
 		mov	bx,offset msg_badcpu
-                js	no_vcpi   	;it is a 386+
+                js	no_vcpi   	;it is not a 386+
 		 else
-                js	endcpu   	;it is a 386+
+                js	endcpu   	;it is not a 386+
 		 endif
 		endif
                 p386