Fix stc compilation bug (method var and inlined block var with same name)
authorStefan Vogel <sv@exept.de>
Tue, 11 May 2010 18:17:07 +0200
changeset 2787 21778700b5a4
parent 2786 8f522043f93d
child 2788 5ea743a4ac48
Fix stc compilation bug (method var and inlined block var with same name)
Tools__ObjectModuleInformation.st
--- a/Tools__ObjectModuleInformation.st	Tue May 11 17:57:45 2010 +0200
+++ b/Tools__ObjectModuleInformation.st	Tue May 11 18:17:07 2010 +0200
@@ -988,7 +988,7 @@
 showInfoForNonClassLib:sel
     "selected a method, cObject or unknown"
 
-    |module fileName list entry|
+    |module fileName list newEntry|
 
     sel isNil ifTrue:[
         self table1VisibleHolder value:false.
@@ -1002,7 +1002,7 @@
     self canUnloadSelectedDLL value:true.
 
     module isMethodHandle ifTrue:[
-        |method nm entry entries|
+        |method nm entries|
 
         self canUnloadSelectedModule value:self readOnly not.
 
@@ -1027,18 +1027,18 @@
             nm := (method whoString) colorizeAllWith:Color blue.
         ].
         entries := OrderedCollection new.
-        entry := InfoRow new.
-        entry name:'Compiled method'; value:nm.
-        entries add:entry.
+        newEntry := InfoRow new.
+        newEntry name:'Compiled method'; value:nm.
+        entries add:newEntry.
 
-        entry := InfoRow new.
-        entry name:'Path'; value:fileName.
-        entries add:entry.
+        newEntry := InfoRow new.
+        newEntry name:'Path'; value:fileName.
+        entries add:newEntry.
 
         (method notNil and:[method code notNil]) ifTrue:[
-            entry := InfoRow new.
-            entry name:'Address'; value:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)).
-            entries add:entry.
+            newEntry := InfoRow new.
+            newEntry name:'Address'; value:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)).
+            entries add:newEntry.
         ].
 
         self infoTable2ListHolder value:entries.
@@ -1070,9 +1070,9 @@
         ^ self.
     ].
 
-    entry := InfoRow new.
-    entry name:'Unknown'.
-    self infoTable2ListHolder value:(Array with:entry).
+    newEntry := InfoRow new.
+    newEntry name:'Unknown'.
+    self infoTable2ListHolder value:(Array with:newEntry).
     self table1VisibleHolder value:false.
     self table2VisibleHolder value:true.