source: buchla-68k/libsm/strfill.c@ 5117699

Last change on this file since 5117699 was 7d0d347, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Prefer signed integers in libsm.

  • Property mode set to 100644
File size: 594 bytes
RevLine 
[f40a309]1/*
2 =============================================================================
3 strfill() -- fill a string with a constant byte and zero terminate it
4 Version 1 -- 1988-08-19 -- D.N. Lynx Crowe
5
6 Where:
7 s = string pointer
8 c = constant byte
9 n = string length (not including the trailing zero)
10
11 Returns a pointer to the string.
12 =============================================================================
13*/
14
[b28a12e]15#include "ram.h"
[6262b5c]16
[7d0d347]17int8_t *strfill(int8_t *s, int8_t c, int16_t n)
[f40a309]18{
[7d0d347]19 register int16_t i;
[7258c6a]20 int8_t *p;
[f40a309]21
22 p = s;
23
24 for (i = n; i--; )
25 *s++ = c;
26
27 *s = '\0';
28 return(p);
29}
30
Note: See TracBrowser for help on using the repository browser.