/[cmucl]/src/code/time.lisp
ViewVC logotype

Log of /src/code/time.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Links to HEAD: (view) (annotate)
Links to double-double-array-branch: (view) (annotate)
Sticky Tag:

Revision 1.28 - (view) (annotate) - [select for diffs]
Fri Apr 15 01:40:07 2005 UTC (9 years ago) by rtoy
Branch: MAIN
CVS Tags: double-double-array-base, double-double-array-checkpoint, double-double-base, double-double-init-%make-sparc, double-double-init-checkpoint-1, double-double-init-ppc, double-double-init-sparc, double-double-init-sparc-2, double-double-init-x86, double-double-irrat-end, double-double-irrat-start, double-double-reader-base, double-double-reader-checkpoint-1, double-double-sparc-checkpoint-1, release-19b-base, release-19b-pre1, release-19b-pre2, release-19c, release-19c-base, release-19c-pre1, release-19d, release-19d-base, release-19d-pre1, release-19d-pre2, snapshot-2005-05, snapshot-2005-06, snapshot-2005-07, snapshot-2005-08, snapshot-2005-09, snapshot-2005-10, snapshot-2005-11, snapshot-2005-12, snapshot-2006-01, snapshot-2006-02, snapshot-2006-03, snapshot-2006-04, snapshot-2006-05, snapshot-2006-06, snapshot-2006-07, snapshot-2006-08, snapshot-2006-09, snapshot-2006-10, snapshot-2006-11, snapshot-2006-12, snapshot-2007-01, snapshot-2007-02, snapshot-2007-03, snapshot-2007-04, snapshot-2007-05, snapshot-2007-06, snapshot-2007-07, snapshot-2007-08
Branch point for: double-double-array-branch, double-double-branch, double-double-reader-branch, release-19b-branch, release-19c-branch, release-19d-branch
Changes since 1.27: +14 -5 lines
Diff to previous 1.27
lisp/lisp.c:
o Add function for ppc to compute the number of CPU cycles per
  timebase ticks.  Save this in a global variable.

code/time.lisp:
o Adjust cycle-count/float for ppc to use the cycles-per-tick to
  compute the actual number of CPU cycles, so we can display cycles
  instead of ticks.

Revision 1.27 - (view) (annotate) - [select for diffs]
Sat Oct 9 02:47:44 2004 UTC (9 years, 6 months ago) by rtoy
Branch: MAIN
CVS Tags: ppc_gencgc_snap_2005-05-14, snapshot-2004-11, snapshot-2004-12, snapshot-2005-01, snapshot-2005-02, snapshot-2005-03, snapshot-2005-04
Branch point for: ppc_gencgc_branch
Changes since 1.26: +5 -2 lines
Diff to previous 1.26
o Don't try to scale the time-base value by 16 to get cycles, because
  that seems to depend on what CPU is being used.  Jon Boone says it's
  64 on a G5.  It's some other weird value for a G4.
o Change TIME output to say "time-base cycles" instead of "CPU cycles"
  for PPC, so the user isn't confused when (time (sleep 1)) returns
  something unexpected.

Revision 1.26 - (view) (annotate) - [select for diffs]
Sat Oct 9 01:08:11 2004 UTC (9 years, 6 months ago) by rtoy
Branch: MAIN
Changes since 1.25: +3 -3 lines
Diff to previous 1.25
Enable the cycle counter for ppc.  It seems the time-base counter is
incremente once every 16 clock cycles on a 400 MHz iMac G3.  We assume
that's true for other ppc's.

Revision 1.25 - (view) (annotate) - [select for diffs]
Sat Jul 26 17:42:32 2003 UTC (10 years, 8 months ago) by gerd
Branch: MAIN
CVS Tags: amd64-merge-start, dynamic-extent-base, lisp-executable-base, mod-arith-base, prm-before-macosx-merge-tag, release-19a, release-19a-base, release-19a-pre1, release-19a-pre2, release-19a-pre3, snapshot-2003-10, snapshot-2003-11, snapshot-2003-12, snapshot-2004-04, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, snapshot-2004-08, snapshot-2004-09, snapshot-2004-10, sparc_gencgc, sparc_gencgc_merge
Branch point for: dynamic-extent, lisp-executable, mod-arith-branch, release-19a-branch, sparc_gencgc_branch
Changes since 1.24: +32 -29 lines
Diff to previous 1.24
	* src/code/time.lisp (*in-get-time-consing*): New var.
	(get-time-consing): Use it.
	(%time): Don't print if *in-get-time-consing*.

Revision 1.24 - (view) (annotate) - [select for diffs]
Thu Jul 24 13:59:51 2003 UTC (10 years, 8 months ago) by gerd
Branch: MAIN
Changes since 1.23: +15 -5 lines
Diff to previous 1.23
	Get rid of the 64 bytes that are shown as being consed when
	calling (TIME NIL).

	* src/code/time.lisp (*time-consing*, *last-time-consing*): New vars.
	(get-time-consing): New function.
	(%time): Call it to get the additional consing overhead of %time.
	Subtract *time-consing* from the result unless null.  Set
	*last-time-consing*.

Revision 1.23 - (view) (annotate) - [select for diffs]
Tue Feb 25 17:06:46 2003 UTC (11 years, 1 month ago) by toy
Branch: MAIN
CVS Tags: cold-pcl-base, release-18e, release-18e-base, release-18e-pre1, release-18e-pre2, remove_negative_zero_not_zero
Branch point for: cold-pcl, release-18e-branch
Changes since 1.22: +2 -2 lines
Diff to previous 1.22
Print the instruction cycle value with commas.

Revision 1.22 - (view) (annotate) - [select for diffs]
Tue Feb 25 15:54:54 2003 UTC (11 years, 1 month ago) by emarsden
Branch: MAIN
Changes since 1.21: +16 -1 lines
Diff to previous 1.21
Add support for hardware cycle counters for Pentium and UltraSPARC. This
uses the CPUID + RDTSC instructions on Pentium, and reads the %TICK register
on UltraSPARC. Accessible via the VM::READ-CYCLE-COUNTER VOP that returns
two (unsigned-byte 32) values, that are the lower and upper components of a
64-bit cycle count (actually 63 bits for UltraSPARC). Basic support for
counting the number of CPU cycles has been added to the TIME macro.

Revision 1.21 - (view) (annotate) - [select for diffs]
Mon Jan 6 15:10:16 2003 UTC (11 years, 3 months ago) by toy
Branch: MAIN
Changes since 1.20: +17 -14 lines
Diff to previous 1.20
Precede compiler messages with a semi-colon.  Error messages don't
have the semi-colon prefix.

Revision 1.20 - (view) (annotate) - [select for diffs]
Tue Nov 5 22:45:41 2002 UTC (11 years, 5 months ago) by cracauer
Branch: MAIN
Changes since 1.19: +6 -5 lines
Diff to previous 1.19
Make (time ...) and the profiler do precise measuring of space
allocation.  It will also not overflow or bomb out when consing
amounts cross most-positive fixnum.

The new profiler also has an interface to plug in your own print
function (also dictates sorting or results).

This is written on gencgc/x86 but tests indicated the fallsbacks for
other platforms work.

The dfixnum package included here is sketchy.

Revision 1.19 - (view) (annotate) - [select for diffs]
Wed Jun 7 07:11:02 2000 UTC (13 years, 10 months ago) by dtc
Branch: MAIN
CVS Tags: LINKAGE_TABLE, PRE_LINKAGE_TABLE, UNICODE-BASE
Branch point for: UNICODE-BRANCH
Changes since 1.18: +40 -50 lines
Diff to previous 1.18
Rework decode-universal-time to correctly handle time zones that are a
multiple of 1/3600 as required by ANSI CL, rather than just multiples of 1/60.

Revision 1.18 - (view) (annotate) - [select for diffs]
Thu Jan 29 07:22:45 1998 UTC (16 years, 2 months ago) by dtc
Branch: MAIN
Changes since 1.17: +16 -1 lines
Diff to previous 1.17
Add the unix-times unix system call for the sparc svr4 port, and make
use of this to implement get-internal-run-time and
get-system-info. This allows the run time to be obtained on Solaris 2.4,
and is reportedly faster than getrusage on later versions of Solaris.

Revision 1.17 - (view) (annotate) - [select for diffs]
Fri Jul 12 19:19:10 1996 UTC (17 years, 9 months ago) by ram
Branch: MAIN
CVS Tags: RELEASE_18a
Branch point for: RELENG_18
Changes since 1.16: +2 -2 lines
Diff to previous 1.16
Merged patch from PW that is supposed to fix decode universal time after 2000.

Revision 1.16 - (view) (annotate) - [select for diffs]
Mon Oct 31 04:11:27 1994 UTC (19 years, 5 months ago) by ram
Branch: MAIN
Changes since 1.15: +1 -3 lines
Diff to previous 1.15
Fix headed boilerplate.

Revision 1.15 - (view) (annotate) - [select for diffs]
Sat Nov 13 00:59:48 1993 UTC (20 years, 5 months ago) by wlott
Branch: MAIN
Changes since 1.14: +93 -127 lines
Diff to previous 1.14
Fixed decode-universal-time to correctly get the timezone info.  Rewrote
encode-universal-time to be sane and to correctly deal with timezones.
Well, at least they are closer to dealing correctly with timezones.

Revision 1.14 - (view) (annotate) - [select for diffs]
Wed Aug 25 01:15:27 1993 UTC (20 years, 7 months ago) by ram
Branch: MAIN
Changes since 1.13: +2 -2 lines
Diff to previous 1.13
Fix compiler warnings.

Revision 1.13 - (view) (annotate) - [select for diffs]
Wed Aug 5 20:08:28 1992 UTC (21 years, 8 months ago) by ram
Branch: MAIN
Changes since 1.12: +12 -6 lines
Diff to previous 1.12
Changed GET-INTERNAL-RUN-TIME to use UNIX-FAST-GETRUSAGE to avoid
number-consing and generic arithmetic.  Also, rearranged the computation so
that the time is correctly computed for up to 457 days, instead of only 71
minutes.

Revision 1.12 - (view) (annotate) - [select for diffs]
Sat Mar 14 13:46:37 1992 UTC (22 years, 1 month ago) by ram
Branch: MAIN
Changes since 1.11: +5 -4 lines
Diff to previous 1.11
In TIME, fixed display of consing and page faults in the case where no GC time
is displayed.

Revision 1.11 - (view) (annotate) - [select for diffs]
Thu Feb 20 00:59:18 1992 UTC (22 years, 2 months ago) by ram
Branch: MAIN
Changes since 1.10: +22 -17 lines
Diff to previous 1.10
Changed TIME to use *GC-RUN-TIME* to print the amount of time spent in GC.

Revision 1.10 - (view) (annotate) - [select for diffs]
Wed Feb 19 21:53:58 1992 UTC (22 years, 2 months ago) by wlott
Branch: MAIN
Changes since 1.9: +7 -5 lines
Diff to previous 1.9
Added some type decls so that get-internal-real-time doesn't cons.

Revision 1.9 - (view) (annotate) - [select for diffs]
Fri Feb 14 23:45:37 1992 UTC (22 years, 2 months ago) by wlott
Branch: MAIN
Changes since 1.8: +6 -6 lines
Diff to previous 1.8
Merged new-alien changes onto trunk.

Revision 1.8 - (view) (annotate) - [select for diffs]
Fri Aug 30 17:41:25 1991 UTC (22 years, 7 months ago) by ram
Branch: MAIN
Changes since 1.7: +61 -97 lines
Diff to previous 1.7
Merged Axmark's changes to make TIME find the time&consing overheads of the
syscalls.  Use SYSTEM:GET-SYSTEM-INFO for os-independent operation.

Revision 1.7 - (view) (annotate) - [select for diffs]
Fri Aug 23 18:23:54 1991 UTC (22 years, 7 months ago) by ram
Branch: MAIN
Changes since 1.6: +22 -2 lines
Diff to previous 1.6
Added code to compile the argument to TIME when possible, and print a warning
when it isn't.

Revision 1.6 - (view) (annotate) - [select for diffs]
Fri Feb 8 13:36:25 1991 UTC (23 years, 2 months ago) by ram
Branch: MAIN
Changes since 1.5: +8 -4 lines
Diff to previous 1.5
New file header with RCS header FILE-COMMENT.

Revision 1.5 - (view) (annotate) - [select for diffs]
Mon Feb 4 13:20:25 1991 UTC (23 years, 2 months ago) by ram
Branch: MAIN
Changes since 1.4: +29 -13 lines
Diff to previous 1.4
Changed GET-INTERNAL-REAL-TIME to subtract out the time of the first
call to minimize the probability of bignum results.  Changed both
GET-INTERNAL-REAL-TIME and GET-INTERNAL-RUN-TIME to assume that the
syscall does ERRNO checking and to have a locally unsafe policy.

Revision 1.4 - (view) (annotate) - [select for diffs]
Fri Aug 24 18:14:55 1990 UTC (23 years, 7 months ago) by wlott
Branch: MAIN
Changes since 1.3: +11 -25 lines
Diff to previous 1.3
Moved MIPS branch onto trunk; no merge necessary.

Revision 1.3 - (view) (annotate) - [select for diffs]
Thu Feb 22 16:25:38 1990 UTC (24 years, 1 month ago) by ram
Branch: MAIN
Changes since 1.2: +18 -24 lines
Diff to previous 1.2
/usr/mbb/x3j13-changes/current/time.lisp, 11-Jul-89 20:20:04, Edit by Mbb.
  Made a simple tweak to DECODE-UNIVERSAL-TIME that, in compliance with the
  new standard, ignores daylight-savings-time when the user supplies the
  :time-zone argument.

Revision 1.2 - (view) (annotate) - [select for diffs]
Wed Feb 7 14:58:18 1990 UTC (24 years, 2 months ago) by ram
Branch: MAIN
Changes since 1.1: +114 -129 lines
Diff to previous 1.1
Changed time into the %TIME function, and made TIME just expand into a call of
%TIME with the form wrapped into a lambda.  This helps interpreted uses of
TIME, mainly by reducing the spurious elapsed time for preprocessing the huge
form, but should also produce somewhat more accurate results, since the code in
%TIME always runs compiled.  Theoretically this could have a slight negative
effect on the accuracy of compiled uses by introducing a call, but this should
be well down in the noise, since call overhead should be well less than the
clock resolution.

Revision 1.1 - (view) (annotate) - [select for diffs]
Tue Feb 6 17:27:40 1990 UTC (24 years, 2 months ago) by ram
Branch: MAIN
Initial revision

This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, select a symbolic revision name using the selection box, or choose 'Use Text Field' and enter a numeric revision.

  Diffs between and
  Type of Diff should be a

Sort log by:

  ViewVC Help
Powered by ViewVC 1.1.5