mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

Get rid of a warning (cast pointer to integer)

Browse source
This commit is contained in:
Daniel Kochmański 2016-11-19 11:19:05 +01:00
parent 0b1106d8fa
commit 177e661ff0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/unixfsys.d
View file

@ -241,7 +241,7 @@ si_readlink(cl_object filename) {
ecl_enable_interrupts();
size += 256;
} while (written == size-256);
if ((written + 2) > output->base_string.self) {
if ((written + 2) > (cl_index)(output->base_string.self)) {
/* Too small to host the trailing '/' and '\0' */
cl_object other = ecl_alloc_adjustable_base_string(written+2);
strcpy((char*)other->base_string.self, (char*)output->base_string.self);