Группа :: Разработка/Perl
Пакет: perl-Math-BigInteger
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: perl-Math-BigInteger-Fputc_to_fputc.patch
Скачать
Скачать
--- bn.c.orig 2004-04-27 10:49:28.912658328 +0200
+++ bn.c 2004-04-27 10:48:33.718049184 +0200
@@ -304,8 +304,8 @@
int i,j,v,z=0;
static char *hex="0123456789ABCDEF";
- if (a->neg) Fputc('-',fp);
- if (a->top == 0) Fputc('0',fp);
+ if (a->neg) fputc('-',fp);
+ if (a->top == 0) fputc('0',fp);
for (i=a->top-1; i >=0; i--)
{
for (j=BITS2-4; j >= 0; j-=4)
@@ -314,7 +314,7 @@
v=(a->d[i]>>j)&0x0f;
if (z || (v != 0))
{
- Fputc(hex[v],fp);
+ fputc(hex[v],fp);
z=1;
}
}