+2014-12-09 David Malcolm <dmalcolm@redhat.com>
+
+ * docs/examples/tut04-toyvm/toyvm.c (toyvm_function_compile): Move
+ logic for determine "funcname" to new function...
+ (get_function_name): ...here, adding logic to skip any leading
+ path from the filename.
+ (toyvm_function_parse): Use the filename for fn_filename, rather
+ than "name", so that the debugger can locate the source .toy
+ file.
+ (toyvm_function_parse): Don't fclose a NULL FILE *.
+
2014-12-09 David Malcolm <dmalcolm@redhat.com>
PR jit/63854
add_op (fn, opcode, operand, linenum);
}
+static char *
+get_function_name (const char *filename)
+{
+ /* Skip any path separators. */
+ const char *pathsep = strrchr (filename, '/');
+ if (pathsep)
+ filename = pathsep + 1;
+
+ /* Copy filename to funcname. */
+ char *funcname = (char *)malloc (strlen (filename) + 1);
+
+ strcpy (funcname, filename);
+
+ /* Convert "." to NIL terminator. */
+ *(strchr (funcname, '.')) = '\0';
+
+ return funcname;
+}
+
static toyvm_function *
toyvm_function_parse (const char *filename, const char *name)
{
fprintf (stderr, "out of memory allocating toyvm_function\n");
goto error;
}
- fn->fn_filename = name;
+ fn->fn_filename = filename;
/* Read the lines of the file. */
while ((linelen = getline (&line, &bufsize, f)) != -1)
error:
free (line);
- fclose (f);
+ if (f)
+ fclose (f);
free (fn);
return NULL;
}
memset (&state, 0, sizeof (state));
- /* Copy filename to funcname. */
- funcname = (char *)malloc (strlen (fn->fn_filename) + 1);
- strcpy (funcname, fn->fn_filename);
-
- /* Convert "." to NIL terminator. */
- *(strchr (funcname, '.')) = '\0';
+ funcname = get_function_name (fn->fn_filename);
state.ctxt = gcc_jit_context_acquire ();