Mercurial Mercurial > hg > stx-libcomp / 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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 08 Dec 1995 00:41:40 +0100
changeset 162 2349ee7039ce
parent 161 1e9413a3edcc
child 163 9a7dfd547e69
*** empty log message ***
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions
SourceFileLoader.st file | annotate | diff | comparison | revisions
SrcFLoader.st file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Thu Dec 07 23:44:13 1995 +0100
+++ b/BCompiler.st	Fri Dec 08 00:41:40 1995 +0100
@@ -193,7 +193,7 @@
 			(cat notNil and:[cat ~~ oldMethod category]) ifTrue:[
 			    oldMethod category:cat.
 			    oldMethod changed:#category.    
-			    aClass updateRevisionString.
+"/                            aClass updateRevisionString.
 			    aClass addChangeRecordForMethodCategory:oldMethod category:cat.
 			].
 			^ oldMethod
@@ -1798,7 +1798,7 @@
 	    newMethod package:(Project currentPackageName)
 	].
 
-	aClass updateRevisionString.
+"/        aClass updateRevisionString.
 	aClass addChangeRecordForMethod:newMethod.
 	(silent or:[Smalltalk silentLoading == true]) ifFalse:[
 	    Transcript showCr:('    compiled: ', className,' ',selector,' - machine code')
@@ -1894,5 +1894,5 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.54 1995-12-07 22:44:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.55 1995-12-07 23:41:38 cg Exp $'
 ! !
--- a/ByteCodeCompiler.st	Thu Dec 07 23:44:13 1995 +0100
+++ b/ByteCodeCompiler.st	Fri Dec 08 00:41:40 1995 +0100
@@ -193,7 +193,7 @@
 			(cat notNil and:[cat ~~ oldMethod category]) ifTrue:[
 			    oldMethod category:cat.
 			    oldMethod changed:#category.    
-			    aClass updateRevisionString.
+"/                            aClass updateRevisionString.
 			    aClass addChangeRecordForMethodCategory:oldMethod category:cat.
 			].
 			^ oldMethod
@@ -1798,7 +1798,7 @@
 	    newMethod package:(Project currentPackageName)
 	].
 
-	aClass updateRevisionString.
+"/        aClass updateRevisionString.
 	aClass addChangeRecordForMethod:newMethod.
 	(silent or:[Smalltalk silentLoading == true]) ifFalse:[
 	    Transcript showCr:('    compiled: ', className,' ',selector,' - machine code')
@@ -1894,5 +1894,5 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.54 1995-12-07 22:44:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.55 1995-12-07 23:41:38 cg Exp $'
 ! !
--- a/SourceFileLoader.st	Thu Dec 07 23:44:13 1995 +0100
+++ b/SourceFileLoader.st	Fri Dec 08 00:41:40 1995 +0100
@@ -90,10 +90,19 @@
     "error notification during fileIn.
      This is sent by the compiler/evaluator if it detects errors."
 
+    |cls sel|
+
     "
      will eventually open a TextBox here, showing the error ....
     "
     Transcript show:'===>  '; showCr:aMessage.
+    (cls := aCompiler targetClass) notNil ifTrue:[
+        Transcript show:'      when compiling '; show:cls name.
+	(sel := aCompiler selector) notNil ifTrue:[
+            Transcript show:'>>'; show:sel.
+	].
+	Transcript cr.
+    ].
     ^ false
 !
 
@@ -124,5 +133,5 @@
 !SourceFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SourceFileLoader.st,v 1.10 1995-12-03 12:13:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SourceFileLoader.st,v 1.11 1995-12-07 23:41:40 cg Exp $'
 ! !
--- a/SrcFLoader.st	Thu Dec 07 23:44:13 1995 +0100
+++ b/SrcFLoader.st	Fri Dec 08 00:41:40 1995 +0100
@@ -90,10 +90,19 @@
     "error notification during fileIn.
      This is sent by the compiler/evaluator if it detects errors."
 
+    |cls sel|
+
     "
      will eventually open a TextBox here, showing the error ....
     "
     Transcript show:'===>  '; showCr:aMessage.
+    (cls := aCompiler targetClass) notNil ifTrue:[
+        Transcript show:'      when compiling '; show:cls name.
+	(sel := aCompiler selector) notNil ifTrue:[
+            Transcript show:'>>'; show:sel.
+	].
+	Transcript cr.
+    ].
     ^ false
 !
 
@@ -124,5 +133,5 @@
 !SourceFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.10 1995-12-03 12:13:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.11 1995-12-07 23:41:40 cg Exp $'
 ! !
hg/stx-libcomp