Mercurial > hg > octave-nkf
comparison liboctave/oct-rl-hist.c @ 3598:0ae310231c46
[project @ 2000-02-19 08:07:08 by jwe]
author | jwe |
---|---|
date | Sat, 19 Feb 2000 08:07:10 +0000 |
parents | 9a91ef403952 |
children | 7b957b442818 |
comparison
equal
deleted
inserted
replaced
3597:26662775f4e9 | 3598:0ae310231c46 |
---|---|
175 | 175 |
176 if (retval) | 176 if (retval) |
177 { | 177 { |
178 char **p = retval; | 178 char **p = retval; |
179 | 179 |
180 while (p) | 180 while (*p) |
181 { | 181 free (*p++); |
182 if (*p) | |
183 free (*p++); | |
184 } | |
185 | 182 |
186 free (retval); | 183 free (retval); |
187 | 184 |
188 retval = 0; | 185 retval = 0; |
189 } | 186 } |
212 | 209 |
213 if (number_lines) | 210 if (number_lines) |
214 sprintf (tmp, "%5d%c%s", i + history_base, | 211 sprintf (tmp, "%5d%c%s", i + history_base, |
215 hlist[i]->data ? '*' : ' ', | 212 hlist[i]->data ? '*' : ' ', |
216 line ? line : ""); | 213 line ? line : ""); |
214 else | |
215 sprintf (tmp, "%c%s", hlist[i]->data ? '*' : ' ', | |
216 line ? line : ""); | |
217 | 217 |
218 retval[k++] = tmp; | 218 retval[k++] = tmp; |
219 } | 219 } |
220 | 220 |
221 retval[k] = 0; | 221 retval[k] = 0; |