about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2022-03-17 00:15:16 -0700
committerKartik K. Agaram <vc@akkartik.com>2022-03-17 00:15:16 -0700
commit1d3101507e7fa298ff3dd4bd1b5f20fc9ab462aa (patch)
tree17c68839e3554c11041e23d960fbd540d8dae440
parentf9fc4a3d58a91cc81e9d150fd589373d66427492 (diff)
downloadteliva-1d3101507e7fa298ff3dd4bd1b5f20fc9ab462aa.tar.gz
fix some warnings
-rw-r--r--src/teliva.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/teliva.c b/src/teliva.c
index b0e6a56..ed4ddab 100644
--- a/src/teliva.c
+++ b/src/teliva.c
@@ -307,7 +307,7 @@ static const char* name_of_global(lua_State* L, const CallInfo* ci, int frame) {
   // push table of function names
   luaL_newmetatable(L, "__teliva_global_name");
   int gt = lua_gettop(L);
-  lua_pushinteger(L, func);
+  lua_pushinteger(L, (long int)func);
   lua_rawget(L, gt);
   if (!lua_isnil(L, -1))
     result = lua_tostring(L, -1);  // safe because global names are long-lived and never GC'd
@@ -325,8 +325,8 @@ static void precompute_names_of_globals(lua_State* L) {
   int table = lua_gettop(L);
   for (lua_pushnil(L); lua_next(L, table) != 0; lua_pop(L, 1)) {
     const char* key = lua_tostring(L, -2);
-    const char* value = lua_topointer(L, -1);
-    lua_pushinteger(L, value);
+    const void* value = lua_topointer(L, -1);
+    lua_pushinteger(L, (long int)value);
     lua_pushstring(L, key);
     lua_rawset(L, gt);
   }
#008800 } /* Operator.Word */ .highlight .w { color: #bbbbbb } /* Text.Whitespace */ .highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */ .highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */ .highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */ .highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */ .highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */ .highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */ .highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */ .highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */ .highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */ .highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */ .highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */ .highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */ .highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */ .highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */ .highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */ .highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */ .highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */ .highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */ .highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */ .highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */ .highlight .vc { color: #336699 } /* Name.Variable.Class */ .highlight .vg { color: #dd7700 } /* Name.Variable.Global */ .highlight .vi { color: #3333bb } /* Name.Variable.Instance */ .highlight .vm { color: #336699 } /* Name.Variable.Magic */ .highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */
$! Command file to remove files created by build.com -T.Dickey
$ set noverify
$ delete [...]*.obj;*
$ delete [...]*.olb;*
$ delete [...]*.lis;*
$ delete [...]*.map;*
$ delete [...]*.exe;*
$
$	name = ""
$ loop_tbl :
$	last = name
$	name = F$SEARCH("[.src.chrtrans]*.tbl;",1)
$	if name .nes. "" .and. name .nes. last
$	then
$		head = "[.src.chrtrans]" + F$PARSE(name,,,"NAME","SYNTAX_ONLY") + ".h"
$		if f$search("''head'",2) .nes. ""
$		then
$			write sys$output "head " + head
$			delete 'head;*
$		endif
$		goto loop_tbl
$	endif