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

ERROR is a macro in MSVC

Browse source
This commit is contained in:
jjgarcia 2008-08-02 10:00:22 +00:00
parent a1e63755a4
commit 543b954b84
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/file.d
View file

@ -123,7 +123,7 @@ ecl_integer_to_off_t(cl_object offset)
#ifdef WITH_GMP
if (sizeof(offset->big.big_limbs[0]) == sizeof(cl_index)) {
if (offset->big.big_size > 2) {
goto ERROR;
goto ERR;
}
if (offset->big.big_size == 2) {
output = offset->big.big_limbs[1];
@ -132,7 +132,7 @@ ecl_integer_to_off_t(cl_object offset)
output += offset->big.big_limbs[0];
} else if (sizeof(offset->big.big_limbs[0]) >= sizeof(ecl_off_t)) {
if (offset->big.big_size > 1) {
goto ERROR;
goto ERR;
}
output = offset->big.big_limbs[0];
}
@ -140,7 +140,7 @@ ecl_integer_to_off_t(cl_object offset)
output = offset->big.big_num;
#endif
} else {
ERROR: FEerror("Not a valid file offset: ~S", 1, offset);
ERR: FEerror("Not a valid file offset: ~S", 1, offset);
}
return output;
}