POSIX.IO.Generic_Write tries to write repeatedly, but will break if it doesn't get to write the whole amount in the first attempt.
If the first attempt consumes less than half of the data, then Generic_Write sets the size too small in the second attempt, because it subtracts the written amount twice: first on line 485, and then again on line 481 in the next iteration.
If the first attempt consumes more than half of the data but not all of it, then there will be an integer underflow when To_Write < Written on line 481.
Change "To_Write - Written" to just "To_Write" on line 481, like this:
Blady-Com/florist@c485477
POSIX.IO.Generic_Write tries to write repeatedly, but will break if it doesn't get to write the whole amount in the first attempt.
If the first attempt consumes less than half of the data, then Generic_Write sets the size too small in the second attempt, because it subtracts the written amount twice: first on line 485, and then again on line 481 in the next iteration.
If the first attempt consumes more than half of the data but not all of it, then there will be an integer underflow when To_Write < Written on line 481.
Change "To_Write - Written" to just "To_Write" on line 481, like this:
Blady-Com/florist@c485477