equal
deleted
inserted
replaced
92 |
92 |
93 RETURN (__MKEXTERNALADDRESS(__INST(code_))); |
93 RETURN (__MKEXTERNALADDRESS(__INST(code_))); |
94 #ifdef OLD |
94 #ifdef OLD |
95 addr = (unsigned INT)__INST(code_); |
95 addr = (unsigned INT)__INST(code_); |
96 if (addr <= _MAX_INT) { |
96 if (addr <= _MAX_INT) { |
97 RETURN ( __MKSMALLINT(addr) ); |
97 RETURN ( __mkSmallInteger(addr) ); |
98 } |
98 } |
99 RETURN ( __MKUINT(addr)); |
99 RETURN ( __MKUINT(addr)); |
100 #endif |
100 #endif |
101 } |
101 } |
102 %}. |
102 %}. |
405 ! ! |
405 ! ! |
406 |
406 |
407 !ExecutableFunction class methodsFor:'documentation'! |
407 !ExecutableFunction class methodsFor:'documentation'! |
408 |
408 |
409 version |
409 version |
410 ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.51 2004-08-05 12:31:05 cg Exp $' |
410 ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.52 2005-07-08 17:15:01 cg Exp $' |
411 ! ! |
411 ! ! |