[pure-lang-svn] SF.net SVN: pure-lang:[537] pure/trunk/test

[<ag...@us...>]

Revision: 537
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=537&view=rev
Author:   agraef
Date:     2008-08-19 06:57:19 +0000 (Tue, 19 Aug 2008)

Log Message:
-----------
Remove CLOCKS_PER_SEC to eliminate platform dependencies.

Modified Paths:
--------------
    pure/trunk/test/test017.log
    pure/trunk/test/test017.pure

Modified: pure/trunk/test/test017.log
===================================================================
--- pure/trunk/test/test017.log	2008-08-19 06:23:50 UTC (rev 536)
+++ pure/trunk/test/test017.log	2008-08-19 06:57:19 UTC (rev 537)
@@ -1,4 +1,4 @@
-timex f/*0:1*/ = (clock-t0/*1:*/)/1000000,res/*0:*/ when t0/*0:*/ = clock; res/*0:*/ = f/*1:1*/ () {
+timex f/*0:1*/ = clock-t0/*1:*/,res/*0:*/ when t0/*0:*/ = clock; res/*0:*/ = f/*1:1*/ () {
   rule #0: res = f ()
   state 0: #0
 	<var> state 1
@@ -12,7 +12,7 @@
 foo n/*0:1*/ = if n/*0:1*/<=0 then n/*0:1*/ else foo (n/*0:1*/-1);
 bar x/*0:1*/ = catch id (throw x/*1:1*/);
 {
-  rule #0: timex f = (clock-t0)/1000000,res when t0 = clock; res = f () end
+  rule #0: timex f = clock-t0,res when t0 = clock; res = f () end
   state 0: #0
 	<var> state 1
   state 1: #0

Modified: pure/trunk/test/test017.pure
===================================================================
--- pure/trunk/test/test017.pure	2008-08-19 06:23:50 UTC (rev 536)
+++ pure/trunk/test/test017.pure	2008-08-19 06:57:19 UTC (rev 537)
@@ -1,7 +1,7 @@
 
 using system;
 
-timex f = (clock-t0)/CLOCKS_PER_SEC, res when t0 = clock; res = f () end;
+timex f = clock-t0, res when t0 = clock; res = f () end;
 
 foo n = if n<=0 then n else foo (n-1); // burn some cycles
 bar x = catch id (throw x);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.