From: Daniel Kochmański <daniel@turtleware.eu>
Date: Sat, 29 Aug 2015 18:37:25 +0000 (+0200)
Subject: cosmetic: change label name from ERR to ERROR
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=1f567c8055f25627d50c0fb61d7bccec55ce104f;p=ecl.git

cosmetic: change label name from ERR to ERROR

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>
---

diff --git a/src/c/file.d b/src/c/file.d
index e975056..2dbfd86 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -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;
 }