Skip to content
Browse files

Fix calculation of "bytes allocated" by "time" special form.

  • Loading branch information...
1 parent dcffc78 commit 5724ffbc4801eace47f888d2b7a4f440236bc45b @feeley committed Mar 20, 2011
Showing with 2 additions and 2 deletions.
  1. +1 −1 include/stamp.h
  2. +1 −1 lib/_kernel.scm
View
2 include/stamp.h
@@ -3,4 +3,4 @@
*/
#define ___STAMP_YMD 20110321
-#define ___STAMP_HMS 4157
+#define ___STAMP_HMS 10100
View
2 lib/_kernel.scm
@@ -3803,7 +3803,7 @@ end-of-code
___F64VECTORSET(aligned_v,___FIX(6),___GSTATE->nb_gcs)
___F64VECTORSET(aligned_v,___FIX(7),___bytes_allocated ())
___F64VECTORSET(aligned_v,___FIX(8),(2*(1+2)<<___LWS))
- n = 8 + 20 * sizeof (___F64) + (5<<___LWS);
+ n = (1<<___LWS) + 8 + 20 * sizeof (___F64); /* space for u8vector */
___F64VECTORSET(aligned_v,___FIX(9),(2*n))
___F64VECTORSET(aligned_v,___FIX(10),minflt)
___F64VECTORSET(aligned_v,___FIX(11),majflt)

0 comments on commit 5724ffb

Please sign in to comment.
Something went wrong with that request. Please try again.