SliTaz Repositories

     1.1 --- a/linld/stuff/src/CRTL.ASM	Thu Feb 18 08:56:43 2021 +0000
     1.2 +++ b/linld/stuff/src/CRTL.ASM	Fri Feb 19 18:33:17 2021 +0000
     1.3 @@ -371,43 +371,38 @@
     1.4  		push	si di
     1.5  		xchg	ax,di			; vars => di
     1.6  		dec	bx
     1.7 -@@testalt:
     1.8  		sub	di,dx
     1.9  @@loop:
    1.10  		mov	si,cx			; s
    1.11  		add	di,dx
    1.12  @@match:
    1.13 -		inc	bx			; keywords++
    1.14  		lodsb				; *s++
    1.15  		or	al,20h			; locase
    1.16 +		cmp	al,'/'			; 2f
    1.17 +		jne	@@notopt
    1.18 +		mov	al,'-'
    1.19 +@@notopt:
    1.20 +		inc	bx			; keywords++
    1.21  		cmp	al,[bx]
    1.22  		je	@@match
    1.23 -		cmp	al,'/'			; 2f
    1.24 +		cmp	[byte bx],dh
    1.25 +		je	@@lastal
    1.26 +		cmp	[byte bx],'|'
    1.27 +		je	@@testal
    1.28 +		jl	@@notsw			; } ~ <del>
    1.29 +		cmp	al,20h			; EOS or 20h
    1.30 +		jne	@@loop			; assume [bx] = '|'
    1.31 +@@notsw:
    1.32 +		mov	ax,-1
    1.33  		jne	@@notopt
    1.34 -		cmp	[byte bx],'-'
    1.35 -		je	@@match
    1.36 -@@notopt:
    1.37 -		cmp	[byte bx],'|'
    1.38 -		je	@@test
    1.39 -		cmp	[byte bx],dh
    1.40 -		je	@@test
    1.41 -		mov	al,-1
    1.42 -		inc	bx
    1.43 -		jmp	@@notopt
    1.44 -@@test:
    1.45 -		or	al,al			; 1st loop ?
    1.46 -		jns	@@testal
    1.47 -		cmp	[byte bx],dh
    1.48 -		jne	@@loop
    1.49 +		jmp	@@setnum
    1.50  @@testal:
    1.51 -		cmp	al,'*'
    1.52 -		je	@@setnum
    1.53 -		cmp	al,'='
    1.54 -		;je	@@found
    1.55 -		;cmp	al,0			; eos, si=next argv
    1.56 +		inc	ax
    1.57 +		jz	@@loop
    1.58 +@@lastal:
    1.59 +		cmp	al,'='+1
    1.60  		xchg	ax,cx			; return s if failure
    1.61  		jne	@@nokeyword
    1.62 -@@found:
    1.63  		dec	dx
    1.64  		dec	dx
    1.65  		je	@@done