equal
deleted
inserted
replaced
948 ^ self |
948 ^ self |
949 ]. |
949 ]. |
950 |
950 |
951 cls := self containingClass. |
951 cls := self containingClass. |
952 cls isNil ifTrue:[ |
952 cls isNil ifTrue:[ |
953 'METHOD: cannot generate bytecode (no class for compilation)' errorPrintNL. |
953 'Method [warning]: cannot generate bytecode (no class for compilation)' errorPrintCR. |
954 ^ nil |
954 ^ nil |
955 ]. |
955 ]. |
956 sourceString := self source. |
956 sourceString := self source. |
957 sourceString isNil ifTrue:[ |
957 sourceString isNil ifTrue:[ |
958 'METHOD: cannot generate bytecode (no source for compilation)' errorPrintNL. |
958 'Method [warning]: cannot generate bytecode (no source for compilation)' errorPrintCR. |
959 ^ nil |
959 ^ nil |
960 ]. |
960 ]. |
961 |
961 |
962 " |
962 " |
963 dont want this to go into the changes file, |
963 dont want this to go into the changes file, |
996 Compiler compileLazy:lazy. |
996 Compiler compileLazy:lazy. |
997 Smalltalk silentLoading:silent. |
997 Smalltalk silentLoading:silent. |
998 ] |
998 ] |
999 ]. |
999 ]. |
1000 (temporaryMethod isNil or:[temporaryMethod == #Error]) ifTrue:[ |
1000 (temporaryMethod isNil or:[temporaryMethod == #Error]) ifTrue:[ |
1001 'METHOD: cannot generate bytecode (contains primitive code or error)' errorPrintNL. |
1001 'Method [warning]: cannot generate bytecode (contains primitive code or error)' errorPrintCR. |
1002 ^ nil. |
1002 ^ nil. |
1003 ]. |
1003 ]. |
1004 " |
1004 " |
1005 try to save a bit of memory, by sharing the source (whatever it is) |
1005 try to save a bit of memory, by sharing the source (whatever it is) |
1006 " |
1006 " |
1007 temporaryMethod sourceFilename:source position:sourcePosition. |
1007 temporaryMethod sourceFilename:source position:sourcePosition. |
1008 ^ temporaryMethod |
1008 ^ temporaryMethod |
1009 |
1009 |
1010 "Created: 24.10.1995 / 14:02:30 / cg" |
1010 "Created: 24.10.1995 / 14:02:30 / cg" |
1011 "Modified: 4.10.1996 / 14:55:57 / cg" |
1011 "Modified: 10.1.1997 / 17:55:33 / cg" |
1012 ! |
1012 ! |
1013 |
1013 |
1014 readBinaryContentsFrom: stream manager: manager |
1014 readBinaryContentsFrom: stream manager: manager |
1015 self code notNil ifTrue:[ |
1015 self code notNil ifTrue:[ |
1016 "built-in method - already complete" |
1016 "built-in method - already complete" |
2710 ! ! |
2710 ! ! |
2711 |
2711 |
2712 !Method class methodsFor:'documentation'! |
2712 !Method class methodsFor:'documentation'! |
2713 |
2713 |
2714 version |
2714 version |
2715 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.118 1997-01-07 16:39:03 stefan Exp $' |
2715 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.119 1997-01-10 17:56:15 cg Exp $' |
2716 ! ! |
2716 ! ! |
2717 Method initialize! |
2717 Method initialize! |