equal
deleted
inserted
replaced
889 ^ self mclass |
889 ^ self mclass |
890 ]. |
890 ]. |
891 self halt. |
891 self halt. |
892 ! |
892 ! |
893 |
893 |
|
894 flags |
|
895 |flagsSlotOffset flagsPtr flags| |
|
896 |
|
897 self isMethod ifTrue:[ |
|
898 flagsSlotOffset := Method instVarOffsetOf:'flags'. |
|
899 ]. |
|
900 flagsSlotOffset notNil ifTrue:[ |
|
901 flagsPtr := self at:flagsSlotOffset. |
|
902 flags := memory fetchObjectAt:flagsPtr. |
|
903 ^ flags |
|
904 ]. |
|
905 |
|
906 self halt. |
|
907 ! |
|
908 |
894 hasCode |
909 hasCode |
895 ^ false |
910 ^ false |
896 ! |
911 ! |
897 |
912 |
898 isBreakpointed |
913 isBreakpointed |
993 ^ nil. |
1008 ^ nil. |
994 self halt. |
1009 self halt. |
995 ! |
1010 ! |
996 |
1011 |
997 numArgs |
1012 numArgs |
998 |flagsSlotOffset flagsPtr flags| |
1013 |flags| |
999 |
1014 |
1000 self isMethod ifTrue:[ |
1015 flags := self flags. |
1001 flagsSlotOffset := Method instVarOffsetOf:'flags'. |
1016 ^ (flags bitAnd:(Method numArgsMaskInFlags)) bitShift:(Method numArgsShiftInFlags negated) |
1002 ]. |
|
1003 flagsSlotOffset notNil ifTrue:[ |
|
1004 flagsPtr := self at:flagsSlotOffset. |
|
1005 flags := memory fetchObjectAt:flagsPtr. |
|
1006 ^ (flags bitAnd:(Method numArgsMaskInFlags)) bitShift:(Method numArgsShiftInFlags negated) |
|
1007 ]. |
|
1008 |
|
1009 self halt. |
|
1010 ! |
1017 ! |
1011 |
1018 |
1012 package |
1019 package |
1013 |packageSlotOffset packagePtr packageRef package| |
1020 |packageSlotOffset packagePtr packageRef package| |
1014 |
1021 |