added a name field to a complied method class.
wrote more code for implementing exception handling
This commit is contained in:
@ -253,7 +253,7 @@
|
||||
|
||||
#class(#pointer) CompiledMethod(Object)
|
||||
{
|
||||
#dcl owner preamble preamble_data_1 preamble_data_2 ntmprs nargs code source.
|
||||
#dcl owner name preamble preamble_data_1 preamble_data_2 ntmprs nargs code source.
|
||||
|
||||
#method preamble
|
||||
{
|
||||
@ -264,6 +264,16 @@
|
||||
{
|
||||
^self.preamble bitAnd: 16rFF.
|
||||
}
|
||||
|
||||
#method owner
|
||||
{
|
||||
^self.owner
|
||||
}
|
||||
|
||||
#method name
|
||||
{
|
||||
^self.name
|
||||
}
|
||||
}
|
||||
|
||||
#include 'Context.st'.
|
||||
|
Reference in New Issue
Block a user