From 088da243fce2d4f5fca08bbce2fa27d5076d811b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 28 Feb 2012 22:02:19 -0800 Subject: Bugfix: rlcp function was incorrect for new way of storing line number info. * parser.h (rlset): Declared. (rlcp): Use rlset. * parser.y (rlset): New function. --- ChangeLog | 10 ++++++++++ parser.h | 3 ++- parser.y | 6 ++++++ 3 files changed, 18 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 34cdd1ab..2ff209e4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2012-02-28 Kaz Kylheku + + Bugfix: rlcp function was incorrect for new way of storing + line number info. + + * parser.h (rlset): Declared. + (rlcp): Use rlset. + + * parser.y (rlset): New function. + 2012-02-28 Kaz Kylheku * debug.c (help, debug): New g command for tweaking log level. diff --git a/parser.h b/parser.h index 9293d8c6..82ca1f0f 100644 --- a/parser.h +++ b/parser.h @@ -43,7 +43,8 @@ void parse_reset(val spec_file); val source_loc(val form); val source_loc_str(val form); val rl(val form, val lineno); +val rlset(val form, val info); INLINE val rlcp(val to, val from) { - return rl(to, source_loc(from)); + return rlset(to, source_loc(from)); } diff --git a/parser.y b/parser.y index 8df15ae5..8656de57 100644 --- a/parser.y +++ b/parser.y @@ -1017,6 +1017,12 @@ val rl(val form, val lineno) return form; } +val rlset(val form, val info) +{ + sethash(form_to_ln_hash, form, info); + return form; +} + static wchar_t char_from_name(wchar_t *name) { static struct { -- cgit v1.2.3