From ec2bdf886c2970b7b0977bd014cdb7987e7c2dae Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 29 Jul 2014 07:36:17 -0700 Subject: * arith.c (plus, minus, mul): Fix missing breaks to switch statements, leading to strange error messages when wrong types are passed in. --- ChangeLog | 6 ++++++ arith.c | 6 ++++++ 2 files changed, 12 insertions(+) diff --git a/ChangeLog b/ChangeLog index ef3197ba..9fde9b76 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2014-07-29 Kaz Kylheku + + * arith.c (plus, minus, mul): Fix missing breaks + to switch statements, leading to strange error + messages when wrong types are passed in. + 2014-07-29 Kaz Kylheku * eval.c (eval_init): Register nconc as intrinsic. diff --git a/arith.c b/arith.c index c1f7026d..63381967 100644 --- a/arith.c +++ b/arith.c @@ -377,6 +377,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_CHR, TAG_NUM): { wchar_t a = c_chr(anum); @@ -452,6 +453,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_PTR, TAG_NUM): switch (type(anum)) { case BGNUM: @@ -481,6 +483,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_PTR, TAG_PTR): switch (TYPE_PAIR(type(anum), type(bnum))) { case TYPE_PAIR(BGNUM, BGNUM): @@ -501,6 +504,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_CHR, TAG_NUM): { wchar_t a = c_chr(anum); @@ -617,6 +621,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_PTR, TAG_NUM): switch (type(anum)) { case BGNUM: @@ -645,6 +650,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_PTR, TAG_PTR): switch (TYPE_PAIR(type(anum), type(bnum))) { case TYPE_PAIR(BGNUM, BGNUM): -- cgit v1.2.3