Improvements in debug output.

2 files changed, 13 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 16de7b94..5c73d422 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2016-03-01         Arnold D. Robbins     <arnold@skeeve.com>
+
+	* debug.c (print_instruction): For Op_comment, add notation as
+	to whether it's a full comment or an end of line comment.
+
 2016-02-29         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* profile.c (pp_list): Handle the case of nargs equal to zero.
diff --git a/debug.c b/debug.c
index 01e30ee3..574b3037 100644
--- a/debug.c
+++ b/debug.c
@@ -3998,7 +3998,14 @@ print_instruction(INSTRUCTION *pc, Func_print print_func, FILE *fp, int in_dump)
 		print_func(fp, " [do_reference = %s]\n",
 		                pc->do_reference ? "true" : "false");
 		break;
-				
+
+	case Op_comment:
+		print_memory(pc->memory, func, print_func, fp);
+		fprintf(fp, " {%s}\n",
+			pc->memory->comment_type == EOL_COMMENT ?
+						"eol" : "full");
+		break;
+
 	case Op_push_i:
 	case Op_push:
 	case Op_push_arg:
@@ -4016,7 +4023,6 @@ print_instruction(INSTRUCTION *pc, Func_print print_func, FILE *fp, int in_dump)
 	case Op_quotient_i:
 	case Op_mod_i:
 	case Op_assign_concat:
-	case Op_comment:
 		print_memory(pc->memory, func, print_func, fp);
 		/* fall through */
 	default: