Subversion Repositories Kolibri OS

Rev

Rev 5256 | Rev 5353 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5256 Rev 5269
Line 603... Line 603...
603
	faddp
603
	faddp
604
	fld dword[ebx+8]
604
	fld dword[ebx+8]
605
	fmul st0,st0
605
	fmul st0,st0
606
	faddp
606
	faddp
607
	fsqrt ;st0 = sqrt(a.X^2 +a.Y^2 +a.Z^2)
607
	fsqrt ;st0 = sqrt(a.X^2 +a.Y^2 +a.Z^2)
608
	fldz
608
	ftst
609
	fcomp
-
 
610
	fstsw ax
609
	fstsw ax
611
	sahf
610
	sahf
612
	je .r1 ;if (sqrt(...)==0) return 1
611
	je .r1 ;if (sqrt(...)==0) return 1
613
		fld dword[ebx] ;offs_X = 0
612
		fld dword[ebx] ;offs_X = 0
614
		fdiv st0,st1
613
		fdiv st0,st1