wok rev 20427

linld: remove dead code
author Pascal Bellard <pascal.bellard@slitaz.org>
date Tue Aug 14 22:18:05 2018 +0200 (2018-08-14)
parents c0625ff5d49b
children 47a198036878
files linld/receipt linld/stuff/src/CRTL.ASM linld/stuff/src/CRTLX.H linld/stuff/src/JUMP.ASM linld/stuff/src/_BEG.ASM
line diff
     1.1 --- a/linld/receipt	Mon Aug 13 00:46:30 2018 +0200
     1.2 +++ b/linld/receipt	Tue Aug 14 22:18:05 2018 +0200
     1.3 @@ -19,7 +19,7 @@
     1.4  {
     1.5  	mv DIST $src 2> /dev/null
     1.6  	cd $src
     1.7 -	rm LINLD$SUFFIX/CRTL.CPP
     1.8 +	rm LINLD$SUFFIX/CRTL.CPP LINLD$SUFFIX/INT15_88.ASM
     1.9  	cp $stuff/src/* LINLD$SUFFIX/
    1.10  	cp -a LINLD$SUFFIX TAZBOOT
    1.11  	sed -i 's/-3/-DNO386/' TAZBOOT/BCCOPT.OPT
     2.1 --- a/linld/stuff/src/CRTL.ASM	Mon Aug 13 00:46:30 2018 +0200
     2.2 +++ b/linld/stuff/src/CRTL.ASM	Tue Aug 14 22:18:05 2018 +0200
     2.3 @@ -399,32 +399,6 @@
     2.4  
     2.5  
     2.6  ;***************************************************************
     2.7 -;int strlen(const char* s);
     2.8 -;***************************************************************
     2.9 -        global  _strlen:near
    2.10 -        proc    _strlen near
    2.11 -
    2.12 -		pop	ax			;caller return address
    2.13 -                pop	bx			; s
    2.14 -                push	bx
    2.15 -                push	ax
    2.16 -        global  strlen:near			; strlen(bx)
    2.17 -strlen:
    2.18 -                mov	cx,bx
    2.19 -                dec	bx
    2.20 -@@lenlp:
    2.21 -		inc	cx
    2.22 -                inc	bx
    2.23 -                cmp	[byte bx],0
    2.24 -                loopne	@@lenlp			; until eos or s == NULL
    2.25 -                sub	bx,cx
    2.26 -                xchg	ax,bx
    2.27 -                ret
    2.28 -
    2.29 -        endp    _strlen
    2.30 -
    2.31 -
    2.32 -;***************************************************************
    2.33  ;int strhead(const char* a,const char* b);
    2.34  ;***************************************************************
    2.35          global  _strhead:near
     3.1 --- a/linld/stuff/src/CRTLX.H	Mon Aug 13 00:46:30 2018 +0200
     3.2 +++ b/linld/stuff/src/CRTLX.H	Tue Aug 14 22:18:05 2018 +0200
     3.3 @@ -4,7 +4,6 @@
     3.4  extern "C" char* strcpy(const char* a,const char* b);
     3.5  extern "C" char* strcat(const char* a,const char* b);
     3.6  extern "C" int strcmp(const char* a,const char* b);
     3.7 -extern "C" int strlen(const char* s);
     3.8  extern "C" char* strstr(const char* a,const char* b);
     3.9  extern "C" char *progname(void);
    3.10  extern "C" void chdirname(char *path);
     4.1 --- a/linld/stuff/src/JUMP.ASM	Mon Aug 13 00:46:30 2018 +0200
     4.2 +++ b/linld/stuff/src/JUMP.ASM	Tue Aug 14 22:18:05 2018 +0200
     4.3 @@ -67,7 +67,7 @@
     4.4  ; Oops! We can stomp on our toes... better stop now
     4.5  		mov	bx,offset overflow
     4.6  		extrn	die:near
     4.7 -		jmp	near die
     4.8 +		call	near die
     4.9  @@nooverflow:
    4.10  		cli				; we start doing destructive things to DOS
    4.11  		push	es
     5.1 --- a/linld/stuff/src/_BEG.ASM	Mon Aug 13 00:46:30 2018 +0200
     5.2 +++ b/linld/stuff/src/_BEG.ASM	Tue Aug 14 22:18:05 2018 +0200
     5.3 @@ -146,7 +146,7 @@
     5.4                ;;int     67h
     5.5                  extrn   die:near
     5.6  godie:
     5.7 -		jmp	near die
     5.8 +		call	near die
     5.9  check_rm_paging:
    5.10  ; It's a 386 in real mode, chk for paging (crazy but possible)
    5.11                  p386