--- a/ObjMem.st Tue May 02 20:15:27 1995 +0200
+++ b/ObjMem.st Tue May 02 20:16:56 1995 +0200
@@ -33,7 +33,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.37 1995-05-01 21:37:57 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.38 1995-05-02 18:16:47 claus Exp $
'!
!ObjectMemory class methodsFor:'documentation'!
@@ -54,7 +54,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.37 1995-05-01 21:37:57 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.38 1995-05-02 18:16:47 claus Exp $
"
!
@@ -505,6 +505,14 @@
%}
!
+flushInlineCachesForSelector:aSelector
+ "flush inlinecaches for sends of aSelector"
+
+%{ /* NOCONTEXT */
+ __flushInlineCachesForSelector(aSelector);
+%}
+!
+
flushInlineCaches
"flush all inlinecaches"
@@ -521,6 +529,14 @@
%}
!
+flushMethodCacheForSelector:aSelector
+ "flush the method cache for sends of aSelector"
+
+%{ /* NOCONTEXT */
+ __flushMethodCacheForSelector(aSelector);
+%}
+!
+
flushMethodCache
"flush the method cache"
@@ -538,6 +554,15 @@
%}
!
+flushCachesForSelector:aSelector
+ "flush method and inline caches for aClass"
+
+%{ /* NOCONTEXT */
+ __flushMethodCacheForSelector(aSelector);
+ __flushInlineCachesForSelector(aSelector);
+%}
+!
+
flushCaches
"flush method and inline caches for all classes"