sforman/Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove unused predicates appears_only_once/2 and reg_used_once/2.

Browse Source
This commit is contained in:
Simon Forman
2020-01-31 08:30:10 -08:00
parent 3d1c9bab95
commit a14a55defb
1 changed files with 0 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
thun/thun.pl
-4
View File
@@ -731,10 +731,6 @@ reggy(FreePool, References, ValueMap)
encode_list(List, FP, FP, Addr) --> [], encode_list(List, FP, FP, Addr) --> [],
{addr(list(List))=Addr}. {addr(list(List))=Addr}.
appears_only_once(Term, List) :- append(_, [Term|Tail], List), !, \+ member(Term, Tail).
reg_used_once(Reg, reggy(_, References, _)) :- appears_only_once(Reg, References).
get_reggy([], _, _) :- writeln('Out of Registers'), fail. get_reggy([], _, _) :- writeln('Out of Registers'), fail.
get_reggy([Reg|FreePool], Reg, FreePool). get_reggy([Reg|FreePool], Reg, FreePool).