* io/write.c (otoa): Bias p by SCRATCH_SIZE, not
sizeof (SCRATCH_SIZE).
(btoa): Same.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101908
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-07-11 David Edelsohn <edelsohn@gnu.org>
+
+ PR libgfortran/22412
+ * io/write.c (otoa): Bias p by SCRATCH_SIZE, not
+ sizeof (SCRATCH_SIZE).
+ (btoa): Same.
2005-07-09 Jerry DeLisle <jvdelisle@verizon.net>
return scratch;
}
- p = scratch + sizeof (SCRATCH_SIZE) - 1;
+ p = scratch + SCRATCH_SIZE - 1;
*p-- = '\0';
while (n != 0)
{
*p = '0' + (n & 7);
- p -- ;
+ p--;
n >>= 3;
}
return scratch;
}
- p = scratch + sizeof (SCRATCH_SIZE) - 1;
+ p = scratch + SCRATCH_SIZE - 1;
*p-- = '\0';
while (n != 0)