diff options
Diffstat (limited to 'src/interp/g-timer.boot')
-rw-r--r-- | src/interp/g-timer.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/g-timer.boot b/src/interp/g-timer.boot index 10b0521a..1e737c68 100644 --- a/src/interp/g-timer.boot +++ b/src/interp/g-timer.boot @@ -63,7 +63,7 @@ makeLongStatStringByProperty _ otherStatTotal := GETL('other, property) for [name,class,:ab] in listofnames repeat name = 'other => 'iterate - cl := CAR LASSOC(class,listofclasses) + cl := first LASSOC(class,listofclasses) n := GETL( name, property) PUT(cl,classproperty, n + GETL(cl,classproperty)) total := total + n @@ -78,8 +78,8 @@ makeLongStatStringByProperty _ if otherStatTotal > 0 then str := makeStatString(str,normalizeStatAndStringify otherStatTotal,'O,flag) total := total + otherStatTotal - cl := CAR LASSOC('other,listofnames) - cl := CAR LASSOC(cl,listofclasses) + cl := first LASSOC('other,listofnames) + cl := first LASSOC(cl,listofclasses) PUT(cl,classproperty, otherStatTotal + GETL(cl,classproperty)) if flag ~= 'long then total := 0 @@ -132,7 +132,7 @@ popTimedName() == pushTimedName name == PUSH(name,$timedNameStack) ---currentlyTimedName() == CAR $timedNameStack +--currentlyTimedName() == first $timedNameStack startTimingProcess name == updateTimedName peekTimedName() @@ -219,7 +219,7 @@ makeLongSpaceString(listofnames,listofclasses) == '"bytes", $printStorageIfTrue) computeElapsedTime() == - -- in total time lists, CAR is VIRTCPU and second is TOTCPU + -- in total time lists, first is VIRTCPU and second is TOTCPU currentTime:= elapsedUserTime() currentGCTime:= elapsedGcTime() gcDelta := currentGCTime - $oldElapsedGCTime |