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

cosmetic: change label name from ERR to ERROR

Browse source 
First netbsd patch is partly applied (we have dragonfly platform), but
it drops solaris 10 support which we don't. Second is cosmetic and
applied right now. Fixes #144.

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-08-29 20:37:25 +02:00
parent 143517a519
commit 1f567c8055
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

@ -5367,7 +5367,7 @@ ecl_integer_to_off_t(cl_object offset)
} else if (ECL_BIGNUMP(offset)) {
if (sizeof(ECL_BIGNUM_LIMBS(offset)[0]) == sizeof(cl_index)) {
if (ECL_BIGNUM_SIZE(offset) > 2) {
goto ERR;
goto ERROR;
}
if (ECL_BIGNUM_SIZE(offset) == 2) {
output = ECL_BIGNUM_LIMBS(offset)[1];
@ -5376,12 +5376,12 @@ ecl_integer_to_off_t(cl_object offset)
output += ECL_BIGNUM_LIMBS(offset)[0];
} else if (sizeof(ECL_BIGNUM_LIMBS(offset)[0]) >= sizeof(ecl_off_t)) {
if (ECL_BIGNUM_SIZE(offset) > 1) {
goto ERR;
goto ERROR;
}
output = ECL_BIGNUM_LIMBS(offset)[0];
}
} else {
ERR: FEerror("Not a valid file offset: ~S", 1, offset);
ERROR: FEerror("Not a valid file offset: ~S", 1, offset);
}
return output;
}