wok diff linld/stuff/src/XMM.ASM @ rev 20486

perl: force arch
author Pascal Bellard <pascal.bellard@slitaz.org>
date Fri Oct 26 10:09:53 2018 +0200 (2018-10-26)
parents c0625ff5d49b
children f0d71e920c5a
line diff
     1.1 --- a/linld/stuff/src/XMM.ASM	Mon Aug 13 00:46:30 2018 +0200
     1.2 +++ b/linld/stuff/src/XMM.ASM	Fri Oct 26 10:09:53 2018 +0200
     1.3 @@ -16,7 +16,6 @@
     1.4  
     1.5          segment _BSS byte public use16 'BSS'
     1.6  
     1.7 -        global  xmm_handler:dword
     1.8  xmm_handler	dd	?
     1.9  
    1.10          ends    _BSS
    1.11 @@ -40,7 +39,6 @@
    1.12  ;Call xmm driver addr or 0 if no xmm
    1.13  ;void xmm_driver(ah)
    1.14  ;***************************************************************
    1.15 -        global  xmm_driver:near
    1.16          proc    xmm_driver near
    1.17  
    1.18  		push	si
    1.19 @@ -100,6 +98,7 @@
    1.20          global  _xmm_alloc:near
    1.21          proc    _xmm_alloc near
    1.22  
    1.23 +	ret	; TO BE FIXED
    1.24                  pop     ax
    1.25                  pop     bx
    1.26                  push    bx
    1.27 @@ -108,6 +107,8 @@
    1.28  		mov	edx,[(image_himem bx).size]		; m->size
    1.29                  ;dec     edx
    1.30                  shr     edx,10          ; to Kb
    1.31 +                inc     edx
    1.32 +                mov     ah,89h          ;allocate blk of EDX kilobytes
    1.33  		else
    1.34  		;mov	ax,-1
    1.35  		;cwd
    1.36 @@ -118,10 +119,10 @@
    1.37  		mov	cl,16-10
    1.38  		extrn	N_LXLSH@:near
    1.39  		call	N_LXLSH@
    1.40 +                inc     dx
    1.41 +                mov     ah,9h          ;allocate blk of DX kilobytes (<64Mb)
    1.42  		endif
    1.43 -                inc     dx
    1.44  		push	bx
    1.45 -                mov     ah,09h          ;allocate blk of DX kilobytes
    1.46                  call    xmm_driver      ;
    1.47                  jnz     @@goerr
    1.48                                          ;now: dx=handle of the blk