aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-timer.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-timer.boot')
-rw-r--r--src/interp/g-timer.boot28
1 files changed, 14 insertions, 14 deletions
diff --git a/src/interp/g-timer.boot b/src/interp/g-timer.boot
index 4b849bf8..69f538db 100644
--- a/src/interp/g-timer.boot
+++ b/src/interp/g-timer.boot
@@ -65,7 +65,7 @@ makeLongStatStringByProperty _
name = 'other => 'iterate
cl := first LASSOC(class,listofclasses)
n := property(name, prop)
- PUT(cl,classprop, n + property(cl,classprop))
+ property(cl,classprop) := n + property(cl,classprop)
total := total + n
if n >= 0.01
then timestr := normalizeStatAndStringify n
@@ -74,13 +74,13 @@ makeLongStatStringByProperty _
otherStatTotal := otherStatTotal + n
str := makeStatString(str,timestr,ab,flag)
otherStatTotal := otherStatTotal
- PUT('other, prop, otherStatTotal)
+ property('other, prop) := otherStatTotal
if otherStatTotal > 0 then
str := makeStatString(str,normalizeStatAndStringify otherStatTotal,'O,flag)
total := total + otherStatTotal
cl := first symbolLassoc('other,listofnames)
cl := first LASSOC(cl,listofclasses)
- PUT(cl,classprop, otherStatTotal + property(cl,classprop))
+ property(cl,classprop) := otherStatTotal + property(cl,classprop)
if flag ~= 'long then
total := 0
str := '""
@@ -187,20 +187,20 @@ $interpreterTimedClasses == '(
initializeTimedNames(listofnames,listofclasses) ==
for [name,:.] in listofnames repeat
- PUT(name, 'TimeTotal, 0.0)
- PUT(name, 'SpaceTotal, 0)
+ property(name, 'TimeTotal) := 0.0
+ property(name, 'SpaceTotal) := 0
for [.,name,:.] in listofclasses repeat
- PUT( name, 'ClassTimeTotal, 0.0)
- PUT( name, 'ClassSpaceTotal, 0)
+ property(name, 'ClassTimeTotal) := 0.0
+ property(name, 'ClassSpaceTotal) := 0
$timedNameStack := '(other)
computeElapsedTime()
- PUT('gc, 'TimeTotal, 0.0)
- PUT('gc, 'SpaceTotal, 0)
- NIL
+ property('gc, 'TimeTotal) := 0.0
+ property('gc, 'SpaceTotal) := 0
+ nil
updateTimedName name ==
count := (property(name,'TimeTotal) or 0) + computeElapsedTime()
- PUT(name,'TimeTotal, count)
+ property(name,'TimeTotal) := count
printNamedStats listofnames ==
printNamedStatsByProperty(listofnames, 'TimeTotal)
@@ -225,8 +225,8 @@ computeElapsedTime() ==
gcDelta := currentGCTime - $oldElapsedGCTime
elapsedSeconds:=
1.* (currentTime-$oldElapsedTime-gcDelta)/$timerTicksPerSecond
- PUT('gc, 'TimeTotal,property('gc,'TimeTotal) +
- 1.*QUOTIENT(gcDelta,$timerTicksPerSecond))
+ property('gc, 'TimeTotal) := property('gc,'TimeTotal) +
+ 1.*QUOTIENT(gcDelta,$timerTicksPerSecond)
$oldElapsedTime := elapsedUserTime()
$oldElapsedGCTime := elapsedGcTime()
elapsedSeconds
@@ -245,7 +245,7 @@ timedAlgebraEvaluation(code) ==
timedOptimization(code) ==
startTimingProcess 'optimization
- $getDomainCode : local := NIL
+ $getDomainCode : local := nil
r := simplifyVMForm code
if $reportOptimization then
sayBrightlyI bright '"Optimized intermediate code:"