ByteCodeCompiler.st
changeset 649 06675201ca18
parent 632 0bf7c96b846b
child 658 fff35b3c95e2
--- a/ByteCodeCompiler.st	Tue Feb 17 18:46:00 1998 +0100
+++ b/ByteCodeCompiler.st	Wed Feb 25 15:12:54 1998 +0100
@@ -302,7 +302,7 @@
         ((compiler hasNonOptionalPrimitiveCode 
         or:[(compiler hasPrimitiveCode and:[self canCreateMachineCode])
         or:[STCCompilation == #always and:[sel ~~ #doIt]]])
-	and:[STCCompilation ~~ #never]) ifTrue:[
+        and:[STCCompilation ~~ #never]) ifTrue:[
             newMethod := compiler 
                             compileToMachineCode:aString 
                             forClass:aClass 
@@ -331,7 +331,9 @@
                     ].
                     (oldMethod notNil and:[oldMethod code ~= newMethod code]) ifTrue:[
                         answer := Dialog
-                                     confirm:'installation of binary code is not possible or disabled.
+                                     confirm:
+'installation of binary code for ''' , aClass name , '>>' , compiler selector , '''
+is not possible or disabled.
 
 Shall I use the old methods functionality
 or instead create a dummy trap method for it ?
@@ -467,9 +469,9 @@
 
     ^ newMethod
 
-    "Created: 29.10.1995 / 19:59:36 / cg"
-    "Modified: 24.6.1996 / 12:41:13 / stefan"
-    "Modified: 7.9.1997 / 02:13:50 / cg"
+    "Created: / 29.10.1995 / 19:59:36 / cg"
+    "Modified: / 24.6.1996 / 12:41:13 / stefan"
+    "Modified: / 25.2.1998 / 14:46:30 / cg"
 !
 
 compile:methodText forClass:classToCompileFor notifying:requestor
@@ -2822,6 +2824,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.128 1997-11-12 17:50:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.129 1998-02-25 14:12:54 cg Exp $'
 ! !
 ByteCodeCompiler initialize!