summaryrefslogtreecommitdiff
path: root/lang/ecl/patches/patch-aa
blob: e23284dd90210d7aa68c1175a854221f73b2e4e5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
$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;
 }