[Xsb-commits] CVS: XSB/cmplib peephole.P, 1.15, 1.16 peephole.xwam, 1.20, 1.21

[David S. W. <dw...@us...>]

Update of /cvsroot/xsb/XSB/cmplib
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv14544

Modified Files:
	peephole.P peephole.xwam 
Log Message:
Added an optimization analogous to others that I found when looking at
generated assembler code.  Probably doesn't happen much.


Index: peephole.P
===================================================================
RCS file: /cvsroot/xsb/XSB/cmplib/peephole.P,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- peephole.P	3 Jan 2008 18:45:19 -0000	1.15
+++ peephole.P	22 Jan 2008 15:52:00 -0000	1.16
@@ -52,6 +52,8 @@
 	compile_popt1a(PilRest, OptPilRest).
 compile_popt11(puttvar(T,T), [movreg(T,R)|PilRest], [puttvar(T,R)|OptPilRest]) :-
 	compile_popt1a(PilRest, OptPilRest).
+compile_popt11(puttvar(T,T), [getnumcon(T,C)|PilRest], [putnumcon(T,C)|OptPilRest]) :-
+	compile_popt1a(PilRest, OptPilRest).
 compile_popt11(puttval(T,T), [movreg(T,R)|PilRest], [puttval(T,R)|OptPilRest]) :-
 	compile_popt1a(PilRest, OptPilRest).
 compile_popt11(movreg(T,R), [puttbreg(R)|PilRest], [puttbreg(T)|OptPilRest]) :-

Index: peephole.xwam
===================================================================
RCS file: /cvsroot/xsb/XSB/cmplib/peephole.xwam,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
Binary files /tmp/cvsSw1Va5 and /tmp/cvsuGyQFP differ