D39631.id120674.diff
No OneTemporary
Actions

Size

1 KB

Referenced Files

None

Subscribers

None

D39631.id120674.diff
View Options

	diff --git a/stand/common/bootstrap.h b/stand/common/bootstrap.h
	--- a/stand/common/bootstrap.h
	+++ b/stand/common/bootstrap.h
	@@ -182,6 +182,7 @@
	* Version information
	*/
	extern char bootprog_info[];
	+extern unsigned bootprog_rev;

	/*
	* Interpreter information
	diff --git a/stand/common/interp_forth.c b/stand/common/interp_forth.c
	--- a/stand/common/interp_forth.c
	+++ b/stand/common/interp_forth.c
	@@ -33,7 +33,6 @@
	#include "bootstrap.h"
	#include "ficl.h"

	-extern unsigned bootprog_rev;
	INTERP_DEFINE("4th");

	/* #define BFORTH_DEBUG */
	diff --git a/stand/common/newvers.sh b/stand/common/newvers.sh
	--- a/stand/common/newvers.sh
	+++ b/stand/common/newvers.sh
	@@ -57,6 +57,6 @@

	cat > $tempfile <<EOF
	char bootprog_info[] = "$bootprog_info";
	-unsigned bootprog_rev = ${r%%.}${r##.};
	+unsigned bootprog_rev = ${r%%.} 1000 + ${r##*.};
	EOF
	mv $tempfile vers.c
	diff --git a/stand/liblua/lutils.c b/stand/liblua/lutils.c
	--- a/stand/liblua/lutils.c
	+++ b/stand/liblua/lutils.c
	@@ -593,6 +593,8 @@
	lua_setfield(L, -2, "machine_arch");
	lua_pushstring(L, LUA_PATH);
	lua_setfield(L, -2, "lua_path");
	+ lua_pushinteger(L, bootprog_rev);
	+ lua_setfield(L, -2, "version");
	/* Set global printc to loader.printc */
	lua_register(L, "printc", lua_printc);
	return 1;