From 1e38326879b739d1678f025341836f736c8d1d46 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Thu, 18 Jan 2024 04:10:49 +0100
Subject: Shared BLC working except aoc

---
 src/targets/unbblc.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/targets/unbblc.c')

diff --git a/src/targets/unbblc.c b/src/targets/unbblc.c
index 57bc1cf..4c3a3c9 100644
--- a/src/targets/unbblc.c
+++ b/src/targets/unbblc.c
@@ -47,9 +47,8 @@ static void fprint_unbblc(struct term *term, struct bloc_parsed *bloc,
 	case REF:
 		if (term->u.ref.index + 1 >= bloc->length)
 			fatal("invalid ref index %ld\n", term->u.ref.index);
-		fprint_unbblc(
-			bloc->entries[bloc->length - term->u.ref.index - 2],
-			bloc, file, byte, bit);
+		fprint_unbblc(bloc->entries[term->u.ref.index], bloc, file,
+			      byte, bit);
 		break;
 	default:
 		fatal("invalid type %d\n", term->type);
-- 
cgit v1.2.3