Mercurial Mercurial > hg > stx-libbasic3 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed min/max - bad names on NeXT
authorClaus Gittinger <cg@exept.de>
Mon, 27 Apr 1998 19:53:15 +0200
changeset 668 7cd41a86e7b2
parent 667 62df9b9b7664
child 669 f6606693a1be
renamed min/max - bad names on NeXT
MessageTracer.st file | annotate | diff | comparison | revisions
MsgTracer.st file | annotate | diff | comparison | revisions 
--- a/MessageTracer.st	Sat Apr 25 16:08:19 1998 +0200
+++ b/MessageTracer.st	Mon Apr 27 19:53:15 1998 +0200
@@ -837,17 +837,17 @@
 executionTimesOfMethod:aMethod
     "return the current times"
 
-    |count info min max avg ret|
-
-    count := min := max := avg := 0.
+    |count info minT maxT avg ret|
+
+    count := minT := maxT := avg := 0.
     MethodTiming notNil ifTrue:[
         aMethod isWrapped ifTrue:[
             info := MethodTiming at:aMethod originalMethod ifAbsent:nil.
             info notNil ifTrue:[
                 count := info at:1.
                 count ~~ 0 ifTrue:[
-                    min := info at:2.
-                    max := info at:3.
+                    minT := info at:2.
+                    maxT := info at:3.
                     avg := ((info at:4) / count) roundTo:0.01
                 ]
             ].
@@ -856,8 +856,8 @@
 
     ret := IdentityDictionary new.
     ret at:#count put:count.
-    ret at:#minTime put:min.
-    ret at:#maxTime put:max.
+    ret at:#minTime put:minT.
+    ret at:#maxTime put:maxT.
     ret at:#avgTime put:avg.
     ^ ret
 
@@ -894,7 +894,7 @@
                         t0 := OperatingSystem getMillisecondTime.
                  ]
          onExit:[:con :retVal |
-                        |info t cnt min max sumTimes|
+                        |info t cnt minT maxT sumTimes|
 
                         t := OperatingSystem getMillisecondTime - t0.
                         info := MethodTiming at:aMethod ifAbsent:nil.
@@ -905,13 +905,13 @@
                                                                with:t)
                         ] ifFalse:[
                             cnt := info at:1.
-                            min := info at:2.
-                            max := info at:3.
+                            minT := info at:2.
+                            maxT := info at:3.
                             sumTimes := info at:4.
-                            t < min ifTrue:[
+                            t < minT ifTrue:[
                                 info at:2 put:t
                             ] ifFalse:[
-                                t > max ifTrue:[
+                                t > maxT ifTrue:[
                                     info at:3 put:t
                                 ]
                             ].
@@ -2597,6 +2597,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.65 1998-04-25 14:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.66 1998-04-27 17:53:15 cg Exp $'
 ! !
 MessageTracer initialize!
--- a/MsgTracer.st	Sat Apr 25 16:08:19 1998 +0200
+++ b/MsgTracer.st	Mon Apr 27 19:53:15 1998 +0200
@@ -837,17 +837,17 @@
 executionTimesOfMethod:aMethod
     "return the current times"
 
-    |count info min max avg ret|
-
-    count := min := max := avg := 0.
+    |count info minT maxT avg ret|
+
+    count := minT := maxT := avg := 0.
     MethodTiming notNil ifTrue:[
         aMethod isWrapped ifTrue:[
             info := MethodTiming at:aMethod originalMethod ifAbsent:nil.
             info notNil ifTrue:[
                 count := info at:1.
                 count ~~ 0 ifTrue:[
-                    min := info at:2.
-                    max := info at:3.
+                    minT := info at:2.
+                    maxT := info at:3.
                     avg := ((info at:4) / count) roundTo:0.01
                 ]
             ].
@@ -856,8 +856,8 @@
 
     ret := IdentityDictionary new.
     ret at:#count put:count.
-    ret at:#minTime put:min.
-    ret at:#maxTime put:max.
+    ret at:#minTime put:minT.
+    ret at:#maxTime put:maxT.
     ret at:#avgTime put:avg.
     ^ ret
 
@@ -894,7 +894,7 @@
                         t0 := OperatingSystem getMillisecondTime.
                  ]
          onExit:[:con :retVal |
-                        |info t cnt min max sumTimes|
+                        |info t cnt minT maxT sumTimes|
 
                         t := OperatingSystem getMillisecondTime - t0.
                         info := MethodTiming at:aMethod ifAbsent:nil.
@@ -905,13 +905,13 @@
                                                                with:t)
                         ] ifFalse:[
                             cnt := info at:1.
-                            min := info at:2.
-                            max := info at:3.
+                            minT := info at:2.
+                            maxT := info at:3.
                             sumTimes := info at:4.
-                            t < min ifTrue:[
+                            t < minT ifTrue:[
                                 info at:2 put:t
                             ] ifFalse:[
-                                t > max ifTrue:[
+                                t > maxT ifTrue:[
                                     info at:3 put:t
                                 ]
                             ].
@@ -2597,6 +2597,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.65 1998-04-25 14:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.66 1998-04-27 17:53:15 cg Exp $'
 ! !
 MessageTracer initialize!
hg/stx-libbasic3