X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_make_const.c;h=6a29f402d263cfbe5e11ae478089cb8440c1b9ce;hb=ddb4b8d90478ae324aa207a7541352c1ac9451ee;hp=0b3e25a6df079787182787abecf0dc120d1b07ae;hpb=7f7e2431f5d1f7c1782ed6e774ccfc70fb4c87cf;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_make_const.c b/src/lisp/ao_lisp_make_const.c
index 0b3e25a6..6a29f402 100644
--- a/src/lisp/ao_lisp_make_const.c
+++ b/src/lisp/ao_lisp_make_const.c
@@ -67,6 +67,8 @@ struct builtin_func funcs[] = {
 	"flush",	AO_LISP_FUNC_LAMBDA,	builtin_flush,
 	"delay",	AO_LISP_FUNC_LAMBDA,	builtin_delay,
 	"led",		AO_LISP_FUNC_LEXPR,	builtin_led,
+	"save",		AO_LISP_FUNC_LAMBDA,	builtin_save,
+	"restore",	AO_LISP_FUNC_LAMBDA,	builtin_restore,
 };
 
 #define N_FUNC (sizeof funcs / sizeof funcs[0])
@@ -84,6 +86,33 @@ is_atom(int offset)
 	return 0;
 }
 
+#define AO_FEC_CRC_INIT	0xffff
+
+static inline uint16_t
+ao_fec_crc_byte(uint8_t byte, uint16_t crc)
+{
+	uint8_t	bit;
+
+	for (bit = 0; bit < 8; bit++) {
+		if (((crc & 0x8000) >> 8) ^ (byte & 0x80))
+			crc = (crc << 1) ^ 0x8005;
+		else
+			crc = (crc << 1);
+		byte <<= 1;
+	}
+	return crc;
+}
+
+uint16_t
+ao_fec_crc(const uint8_t *bytes, uint8_t len)
+{
+	uint16_t	crc = AO_FEC_CRC_INIT;
+
+	while (len--)
+		crc = ao_fec_crc_byte(*bytes++, crc);
+	return crc;
+}
+
 int
 main(int argc, char **argv)
 {
@@ -124,6 +153,7 @@ main(int argc, char **argv)
 	printf("extern const uint8_t ao_lisp_const[AO_LISP_POOL_CONST] __attribute__((aligned(4)));\n");
 	printf("#define ao_builtin_atoms 0x%04x\n", ao_lisp_atom_poly(ao_lisp_atoms));
 	printf("#define ao_builtin_frame 0x%04x\n", ao_lisp_frame_poly(ao_lisp_frame_global));
+	printf("#define ao_lisp_const_checksum ((uint16_t) 0x%04x)\n", ao_fec_crc(ao_lisp_const, ao_lisp_top));
 
 	for (a = ao_lisp_atoms; a; a = ao_lisp_poly_atom(a->next)) {
 		char	*n = a->name, c;