From b2f8be605d2b79d1d4b1995646e7058bec299a22 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 12 Jul 2026 23:17:06 +0200
Subject: Add fail_compilation tests

---
 cl.elna | 38 --------------------------------------
 1 file changed, 38 deletions(-)

(limited to 'cl.elna')

diff --git a/cl.elna b/cl.elna
index b27c49d..c9754cc 100644
--- a/cl.elna
+++ b/cl.elna
@@ -14,14 +14,6 @@ type
 		first: ^ElnaListNode;
 		last: ^ElnaListNode
 	end
-	ElnaLocation = record
-		line: Word;
-		column: Word
-	end
-	ElnaPosition = record
-		start_location: ElnaLocation;
-		end_location: ElnaLocation
-	end
 
 	(**
 	 * List of intermediate representation items.
@@ -387,26 +379,6 @@ type
 		is_extern: Bool
 	end
 
-	ElnaLexerAction = (none, accumulate, skip, single, eof, finalize, composite, key_id, integer, delimited)
-
-	ElnaLexerTransition = record
-		action: ElnaLexerAction;
-		next_state: ElnaLexerState
-	end
-
-	ElnaLexerToken = record
-		kind: ElnaLexerKind;
-		start: String;
-		position: ElnaPosition
-	end
-	ElnaLexerCursor = record
-		state: ElnaLexerState;
-		start: ^Char;
-		finish: ^Char;
-		token: ^ElnaLexerToken;
-		position: ElnaPosition
-	end
-
 	ElnaTacOperator = (
 		get_address,
 		add,
@@ -644,16 +616,6 @@ var
 	temporary_variable_counter: Word
 	pseudo_counter: Word
 
-	stdout: Pointer
-	stderr: Pointer
-  stdin: Pointer
-
-proc free_and_nil(pointer: Pointer): Pointer
-begin
-	free(pointer);
-	return nil
-end
-
 (**
  * Adds a string to the global, read-only string storage.
  *
-- 
cgit v1.2.3