mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-08-03 17:59:07 -04:00
29 lines
914 B
Plaintext
29 lines
914 B
Plaintext
$NetBSD: patch-aa,v 1.4 2012/07/26 21:09:29 asau Exp $
|
|
|
|
--- src/c/file.d.orig 2012-07-24 16:51:53.000000000 +0000
|
|
+++ src/c/file.d
|
|
@@ -5358,7 +5358,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];
|
|
@@ -5367,12 +5367,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;
|
|
}
|