equal
deleted
inserted
replaced
1057 } else { |
1057 } else { |
1058 if (argArray != nil) { |
1058 if (argArray != nil) { |
1059 goto badArgs; |
1059 goto badArgs; |
1060 } |
1060 } |
1061 nargs = 0; |
1061 nargs = 0; |
|
1062 ap = NULL; |
1062 } |
1063 } |
1063 |
1064 |
1064 #ifdef F_NARGS |
1065 #ifdef F_NARGS |
1065 if (((__intVal(__INST(flags)) & F_NARGS) >> F_NARGSHIFT) == nargs) |
1066 if (((__intVal(__INST(flags)) & F_NARGS) >> F_NARGSHIFT) == nargs) |
1066 #endif |
1067 #endif |
1330 |
1331 |
1331 'the next example is a wrong one - which is detected here ...'. |
1332 'the next example is a wrong one - which is detected here ...'. |
1332 (Object compiledMethodAt:#printOn:) |
1333 (Object compiledMethodAt:#printOn:) |
1333 valueWithReceiver:false arguments:#() |
1334 valueWithReceiver:false arguments:#() |
1334 " |
1335 " |
|
1336 |
|
1337 "Modified: / 07-10-2011 / 13:56:11 / cg" |
1335 ! ! |
1338 ! ! |
1336 |
1339 |
1337 !CompiledCode methodsFor:'private-accessing'! |
1340 !CompiledCode methodsFor:'private-accessing'! |
1338 |
1341 |
1339 byteCode:aByteArray |
1342 byteCode:aByteArray |
1822 ! ! |
1825 ! ! |
1823 |
1826 |
1824 !CompiledCode class methodsFor:'documentation'! |
1827 !CompiledCode class methodsFor:'documentation'! |
1825 |
1828 |
1826 version_CVS |
1829 version_CVS |
1827 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.110 2011-09-07 07:30:16 cg Exp $' |
1830 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.111 2011-10-07 11:56:19 cg Exp $' |
1828 ! |
1831 ! |
1829 |
1832 |
1830 version_SVN |
1833 version_SVN |
1831 ^ '§ Id: CompiledCode.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
1834 ^ '§ Id: CompiledCode.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
1832 ! ! |
1835 ! ! |