d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed syntax errors (tokens after #endif).

Browse Source
This commit is contained in:
Bruce Evans 2002-05-13 12:55:30 +00:00
parent a10e4c9532
commit a8fae7e580
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=96523
8 changed files with 45 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sys/gnu/i386/fpemul/polynomial.s
View File

@ -115,7 +115,7 @@ L_accum_loop:
movl -28(%ebp),%eax
mull 4(%edi) /* x ms long */
movl %edx,-12(%ebp)
#endif EXTRA_PRECISE
#endif /* EXTRA_PRECISE */
movl -24(%ebp),%eax
mull (%edi) /* x ls long */
@ -162,7 +162,7 @@ L_accum_loop:
addl $1,-24(%ebp)
adcl $0,-20(%ebp)
L_no_poly_round:
#endif EXTRA_PRECISE
#endif /* EXTRA_PRECISE */
subl TERM_SIZE,%ecx
jns L_accum_loop
@ -175,7 +175,7 @@ L_accum_done:
addl $1,-24(%ebp)
adcl $0,-20(%ebp)
#endif EXTRA_PRECISE
#endif /* EXTRA_PRECISE */
L_poly_done:
movl -24(%ebp),%eax

16
sys/gnu/i386/fpemul/reg_div.s
View File

@ -102,7 +102,7 @@ xL_arg1_not_denormal:
jnz FPU_Arith_exit
xL_arg2_not_denormal:
#endif DENORM_OPERAND
#endif /* DENORM_OPERAND */
/* Both arguments are TW_Valid */
movb TW_Valid,TAG(%edi)
@ -158,7 +158,7 @@ L_no_NaN_arg:
/* arg2 must be zero or valid */
cmpb TW_Zero,TAG(%ebx)
ja L_unknown_tags
#endif PARANOID
#endif /* PARANOID */
/* Note that p16-9 says that infinity/0 returns infinity */
jmp L_copy_arg1 /* Answer is Inf */
@ -171,7 +171,7 @@ L_inf_valid:
call denormal_operand
orl %eax,%eax
jnz FPU_Arith_exit
#endif DENORM_OPERAND
#endif /* DENORM_OPERAND */
jmp L_copy_arg1 /* Answer is Inf */
@ -186,7 +186,7 @@ L_arg1_not_inf:
/* arg1 must be valid */
cmpb TW_Valid,TAG(%esi)
ja L_unknown_tags
#endif PARANOID
#endif /* PARANOID */
/* Division by zero error */
pushl %edi /* destination */
@ -210,7 +210,7 @@ L_arg2_not_zero:
call denormal_operand
orl %eax,%eax
jnz FPU_Arith_exit
#endif DENORM_OPERAND
#endif /* DENORM_OPERAND */
jmp L_return_zero /* Answer is zero */
@ -219,7 +219,7 @@ L_arg2_not_inf:
#ifdef PARANOID
cmpb TW_Zero,TAG(%esi)
jne L_unknown_tags
#endif PARANOID
#endif /* PARANOID */
/* arg1 is zero, arg2 is not Infinity or a NaN */
@ -230,7 +230,7 @@ L_arg2_not_inf:
call denormal_operand
orl %eax,%eax
jnz FPU_Arith_exit
#endif DENORM_OPERAND
#endif /* DENORM_OPERAND */
L_copy_arg1:
movb TAG(%esi),%al
@ -287,4 +287,4 @@ L_unknown_tags:
movl _CONST_QNaN+8,%eax
movl %eax,SIGH(%edi)
jmp LDiv_exit
#endif PARANOID
#endif /* PARANOID */

14
sys/gnu/i386/fpemul/reg_round.s
View File

@ -162,7 +162,7 @@ FPU_round_sqrt: /* Entry point from wm_sqrt.S */
/* Cannot use this here yet */
/* orl %eax,%eax */
/* jns L_entry_bugged */
#endif PARANOID
#endif /* PARANOID */
cmpl EXP_UNDER,EXP(%edi)
jle xMake_denorm /* The number is a de-normal*/
@ -185,7 +185,7 @@ xDenorm_done:
#ifdef PARANOID
jmp L_bugged /* There is no bug, just a bad control word */
#endif PARANOID
#endif /* PARANOID */
/* Round etc to 24 bit precision */
@ -206,7 +206,7 @@ LRound_To_24:
#ifdef PARANOID
jmp L_bugged
#endif PARANOID
#endif /* PARANOID */
LUp_24:
cmpb SIGN_POS,SIGN(%edi)
@ -286,7 +286,7 @@ LRound_To_53:
#ifdef PARANOID
jmp L_bugged
#endif PARANOID
#endif /* PARANOID */
LUp_53:
cmpb SIGN_POS,SIGN(%edi)
@ -360,7 +360,7 @@ LRound_To_64:
#ifdef PARANOID
jmp L_bugged
#endif PARANOID
#endif /* PARANOID */
LUp_64:
cmpb SIGN_POS,SIGN(%edi)
@ -560,7 +560,7 @@ xNormalise_result:
/* But check it... just in case.*/
cmpl EXP_UNDER+1,EXP(%edi)
jne L_norm_bugged
#endif PARANOID
#endif /* PARANOID */
orl %eax,%eax /* ms bits*/
jnz LNormalise_shift_up_to_31 /* Shift left 0 - 31 bits*/
@ -647,4 +647,4 @@ L_entry_bugged:
call EXCEPTION
popl %ebx
jmp FPU_Arith_exit
#endif PARANOID
#endif /* PARANOID */

6
sys/gnu/i386/fpemul/reg_u_add.s
View File

@ -107,7 +107,7 @@ xOp1_not_denorm:
jnz FPU_Arith_exit
xOp2_not_denorm:
#endif DENORM_OPERAND
#endif /* DENORM_OPERAND */
/* xorl %ecx,%ecx*/
movl EXP(%esi),%ecx
@ -145,7 +145,7 @@ L_accum_loaded:
testl $0x80000000,SIGH(%esi)
je L_bugged
#endif PARANOID
#endif /* PARANOID */
/* The number to be shifted is in %eax:%ebx:%edx*/
cmpw $32,%cx /* shrd only works for 0..31 bits */
@ -229,7 +229,7 @@ L_bugged:
call EXCEPTION
pop %ebx
jmp L_exit
#endif PARANOID
#endif /* PARANOID */
L_exit:

22
sys/gnu/i386/fpemul/reg_u_div.s
View File

@ -135,7 +135,7 @@ xOp1_not_denorm:
jnz FPU_Arith_exit
xOp2_not_denorm:
#endif DENORM_OPERAND
#endif /* DENORM_OPERAND */
divide_kernel:
#ifdef PARANOID
@ -143,7 +143,7 @@ divide_kernel:
/* je L_bugged */
testl $0x80000000, SIGH(%ebx) /* Divisor*/
je L_bugged
#endif PARANOID
#endif /* PARANOID */
/* Check if the divisor can be treated as having just 32 bits */
cmpl $0,SIGL(%ebx)
@ -279,7 +279,7 @@ LFirst_div_done:
#ifdef PARANOID
jb L_bugged_1
#endif PARANOID
#endif /* PARANOID */
/* need to subtract another once of the denom */
incl result_2 /* Correct the answer */
@ -292,7 +292,7 @@ LFirst_div_done:
#ifdef PARANOID
sbbl $0,accum_3
jne L_bugged_1 /* Must check for non-zero result here */
#endif PARANOID
#endif /* PARANOID */
/*----------------------------------------------------------------------*/
/* Half of the main problem is done, there is just a reduced numerator
@ -322,7 +322,7 @@ LPrevent_2nd_overflow:
#ifdef PARANOID
je L_bugged_2 /* Can't bump the result to 1.0 */
#endif PARANOID
#endif /* PARANOID */
LDo_2nd_div:
cmpl $0,%ecx /* augmented denom msw*/
@ -345,7 +345,7 @@ LSecond_div_done:
#ifdef PARANOID
jc L_bugged_2
#endif PARANOID
#endif /* PARANOID */
movl result_1,%eax /* Get the result back */
mull SIGL(%ebx) /* now mul the ls dw of the denom */
@ -356,14 +356,14 @@ LSecond_div_done:
#ifdef PARANOID
jc L_bugged_2
#endif PARANOID
#endif /* PARANOID */
jz LDo_3rd_32_bits
#ifdef PARANOID
cmpl $1,accum_2
jne L_bugged_2
#endif PARANOID
#endif /* PARANOID */
/* need to subtract another once of the denom */
movl SIGL(%ebx),%eax
@ -375,14 +375,14 @@ LSecond_div_done:
#ifdef PARANOID
jc L_bugged_2
jne L_bugged_2
#endif PARANOID
#endif /* PARANOID */
addl $1,result_1 /* Correct the answer */
adcl $0,result_2
#ifdef PARANOID
jc L_bugged_2 /* Must check for non-zero result here */
#endif PARANOID
#endif /* PARANOID */
/*----------------------------------------------------------------------*/
/* The division is essentially finished here, we just need to perform
@ -498,4 +498,4 @@ L_exit:
leave
ret
#endif PARANOID
#endif /* PARANOID */

6
sys/gnu/i386/fpemul/reg_u_mul.s
View File

@ -98,7 +98,7 @@ ENTRY(reg_u_mul)
jz L_bugged
testl $0x80000000,SIGH(%edi)
jz L_bugged
#endif PARANOID
#endif /* PARANOID */
#ifdef DENORM_OPERAND
movl EXP(%esi),%eax
@ -119,7 +119,7 @@ xOp1_not_denorm:
jnz FPU_Arith_exit
xOp2_not_denorm:
#endif DENORM_OPERAND
#endif /* DENORM_OPERAND */
xorl %ecx,%ecx
xorl %ebx,%ebx
@ -190,5 +190,5 @@ L_exit:
popl %esi
leave
ret
#endif PARANOID
#endif /* PARANOID */

10
sys/gnu/i386/fpemul/reg_u_sub.s
View File

@ -106,7 +106,7 @@ xOp1_not_denorm:
jnz FPU_Arith_exit
xOp2_not_denorm:
#endif DENORM_OPERAND
#endif /* DENORM_OPERAND */
/* xorl %ecx,%ecx */
movl EXP(%esi),%ecx
@ -122,7 +122,7 @@ xOp2_not_denorm:
testl $0x80000000,SIGH(%esi)
je L_bugged_2
#endif PARANOID
#endif /* PARANOID */
/*--------------------------------------+
| Form a register holding the |
@ -235,7 +235,7 @@ L_subtr:
#ifdef PARANOID
/* We can never get a borrow */
jc L_bugged
#endif PARANOID
#endif /* PARANOID */
/*--------------------------------------+
| Normalize the result |
@ -267,7 +267,7 @@ L_must_be_zero:
#ifdef PARANOID
orl %edx,%edx
jnz L_bugged_3
#endif PARANOID
#endif /* PARANOID */
/* The result is zero */
movb TW_Zero,TAG(%edi)
@ -326,7 +326,7 @@ L_bugged:
call EXCEPTION
pop %ebx
jmp L_exit
#endif PARANOID
#endif /* PARANOID */
L_store:

10
sys/gnu/i386/fpemul/wm_sqrt.s
View File

@ -235,7 +235,7 @@ sqrt_stage_2_finish:
/* It should be possible to get here only if the arg is ffff....ffff*/
cmp $0xffffffff,fsqrt_arg_1
jnz sqrt_stage_2_error
#endif PARANOID
#endif /* PARANOID */
/* The best rounded result.*/
xorl %eax,%eax
@ -249,7 +249,7 @@ sqrt_stage_2_finish:
sqrt_stage_2_error:
pushl EX_INTERNAL|0x213
call EXCEPTION
#endif PARANOID
#endif /* PARANOID */
sqrt_stage_2_done:
@ -304,7 +304,7 @@ sqrt_stage_3_error:
call EXCEPTION
sqrt_stage_3_no_error:
#endif PARANOID
#endif /* PARANOID */
movl accum_2,%edx
movl accum_1,%eax
@ -407,7 +407,7 @@ sqrt_near_exact:
call EXCEPTION
sqrt_near_exact_ok:
#endif PARANOID
#endif /* PARANOID */
or %ebx,%ebx
js sqrt_near_exact_small
@ -467,7 +467,7 @@ sqrt_get_more_precision:
call EXCEPTION
sqrt_more_prec_ok:
#endif PARANOID
#endif /* PARANOID */
or %ebx,%ebx
js sqrt_more_prec_small