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

Do some work on this. It still doesn't compile, let

Browse Source 
followvars.nl:
	Do some work on this.  It still doesn't compile, let
	alone work.

mode_info.nl:
	Fix bug in last change.

hlds_out.nl:
	A couple of very minor fixes.

switch_detection.nl:
	Fix a bug so that 2nd-argument indexing works.
This commit is contained in:
Fergus Henderson
1994-06-09 16:06:18 +00:00
parent 59dcd8f161
commit 075391d03a
3 changed files with 36 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/switch_detection.m
View File

@@ -219,14 +219,12 @@ partition_disj_2([Goal | Goals], Var, Cases0, Cases) :-
:- mode find_unify_var_functor(in, in, out) is semidet.
find_unify_var_functor([Goal - _GoalInfo | Goals], Var, Functor) :-
( Goal = unify(term__variable(Var0), term__functor(Name, Args, _),
( Goal = unify(term__variable(Var), term__functor(Name, Args, _),
_, _, _) ->
Var = Var0,
list__length(Args, Arity),
make_functor_cons_id(Name, Arity, Functor)
; Goal = unify(term__functor(Name, Args, _), term__variable(Var0),
; Goal = unify(term__functor(Name, Args, _), term__variable(Var),
_, _, _) ->
Var = Var0,
list__length(Args, Arity),
make_functor_cons_id(Name, Arity, Functor)
; Goal = unify(_, _, _, _, _) ->