27

CELL STORAGE MECHANISM



-- in Ada for clarity


type CELL ( TAG : boolean );

type LISTPOINTER is access CELL;

type CELL ( TAG : boolean ) is
	record

		MARK : boolean;
		SIZE : integer;

		case TAG is
			when true =>
				ALINK : LISTPOINTER;
				DLINK : LISTPOINTER;
			when false =>
				DATA : string;
		end case;

	end record;