mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-12 12:26:29 +00:00
Code Issues Projects Releases Wiki Activity

Fix a Zoltan bug! ;-)

Browse Source 
tag_switch.m:
	Fix a Zoltan bug! ;-)
	This was the bug causing the "Software error: no failure continuation"
	errors.  The problem was that when Zoltan changed the field
	in switches from a determism to can_fail/cannot_fail, he accidentally
	inverted the sense of a test, causing the code to generate the
	"fail" case only for tag switches which can never fail.
This commit is contained in:
Fergus Henderson
1995-04-14 14:40:45 +00:00
parent 596eac55c5
commit 1ff5c5fdb0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/tag_switch.m
View File

@@ -76,10 +76,10 @@ tag_switch__generate(Cases, Var, CodeModel, CanFail, EndLabel, Code) -->
% we generate FailCode and EndCode here because the last case within
% a primary tag may not be the last case overall
(
{ CanFail = can_fail },
{ CanFail = cannot_fail },
{ FailCode = empty }
;
{ CanFail = cannot_fail },
{ CanFail = can_fail },
code_info__generate_failure(FailCode1),
{ FailCode = tree(
node([label(FailLabel) - "switch has failed"]),