equal
deleted
inserted
replaced
1092 ! |
1092 ! |
1093 |
1093 |
1094 sourceFilename |
1094 sourceFilename |
1095 "return the sourcefilename if source is extern; nil otherwise" |
1095 "return the sourcefilename if source is extern; nil otherwise" |
1096 |
1096 |
1097 |source| |
1097 |sourcePtr sourceRef source| |
1098 |
1098 |
1099 self isMethodOrLazyMethod ifTrue:[ |
1099 self isMethodOrLazyMethod ifTrue:[ |
1100 self sourcePosition notNil ifTrue:[ |
1100 self sourcePosition notNil ifTrue:[ |
1101 source := self at:(Method instVarOffsetOf:'source'). |
1101 sourcePtr := self at:(Method instVarOffsetOf:'source'). |
1102 source isString ifTrue:[ |
1102 sourceRef := memory fetchObjectAt:sourcePtr. |
1103 source := memory printStringOfString:source. |
1103 sourceRef isString ifFalse:[ |
|
1104 self halt. |
1104 ]. |
1105 ]. |
|
1106 source := memory printStringOfString:sourceRef. |
1105 ^ source. |
1107 ^ source. |
1106 ]. |
1108 ]. |
1107 ^ nil |
1109 ^ nil |
1108 ]. |
1110 ]. |
1109 self halt. |
1111 self halt. |