From cea392870a443a3d773d18d1627fa94712387cf5 Mon Sep 17 00:00:00 2001 From: rich Date: Fri, 12 Oct 2007 01:46:26 +0000 Subject: [PATCH] Fix perf_dupdrop forth test. --- perf_dupdrop.f | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/perf_dupdrop.f b/perf_dupdrop.f index 9841538..4575ba1 100644 --- a/perf_dupdrop.f +++ b/perf_dupdrop.f @@ -1,7 +1,7 @@ ( -*- text -*- FORTH repeated DUP DROP * 1000 using ordinary indirect threaded code and the assembler primitives. - $Id: perf_dupdrop.f,v 1.2 2007-10-11 07:45:35 rich Exp $ ) + $Id: perf_dupdrop.f,v 1.3 2007-10-12 01:46:26 rich Exp $ ) 1024 32 * MORECORE @@ -18,9 +18,16 @@ THEN ; +: 4DROP DROP DROP DROP DROP ; + : PERFORM-TEST ( xt -- ) ( Get everything in the cache. ) - DUP EXECUTE DUP EXECUTE DUP EXECUTE DUP EXECUTE DUP EXECUTE DUP EXECUTE + DUP EXECUTE 4DROP + DUP EXECUTE 4DROP + DUP EXECUTE 4DROP + DUP EXECUTE 4DROP + DUP EXECUTE 4DROP + DUP EXECUTE 4DROP 0 0 0 0 PRINT-TIME ( Run the test 10 times. ) DUP EXECUTE PRINT-TIME -- 1.8.3.1