Method.st
changeset 2201 db0f6e86c8bb
parent 2176 1a24b0cef25a
child 2218 93c4cb83372a
equal deleted inserted replaced
2200:a2b25d9e5cac 2201:db0f6e86c8bb
  1710            */
  1710            */
  1711           if (code) {
  1711           if (code) {
  1712             /* compiled code */
  1712             /* compiled code */
  1713             switch (nargs) {
  1713             switch (nargs) {
  1714                 case 0:
  1714                 case 0:
  1715                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy) );
  1715                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy) );
  1716 
  1716 
  1717                 case 1:
  1717                 case 1:
  1718                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, ap[0]) );
  1718                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, ap[0]) );
  1719 
  1719 
  1720                 case 2:
  1720                 case 2:
  1721                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, ap[0], ap[1]) );
  1721                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, ap[0], ap[1]) );
  1722 
  1722 
  1723                 case 3:
  1723                 case 3:
  1724                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, ap[0], ap[1], ap[2]) );
  1724                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, ap[0], ap[1], ap[2]) );
  1725 
  1725 
  1726                 case 4:
  1726                 case 4:
  1727                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1727                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1728                                  ap[0], ap[1], ap[2], ap[3]) );
  1728                                  ap[0], ap[1], ap[2], ap[3]) );
  1729 
  1729 
  1730                 case 5:
  1730                 case 5:
  1731                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1731                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1732                                  ap[0], ap[1], ap[2], ap[3], ap[4]) );
  1732                                  ap[0], ap[1], ap[2], ap[3], ap[4]) );
  1733 
  1733 
  1734                 case 6:
  1734                 case 6:
  1735                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1735                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1736                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
  1736                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
  1737 
  1737 
  1738                 case 7:
  1738                 case 7:
  1739                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1739                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1740                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
  1740                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
  1741 
  1741 
  1742                 case 8:
  1742                 case 8:
  1743                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1743                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1744                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
  1744                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
  1745 
  1745 
  1746                 case 9:
  1746                 case 9:
  1747                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1747                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1748                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]) );
  1748                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]) );
  1749 
  1749 
  1750                 case 10:
  1750                 case 10:
  1751                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1751                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1752                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1752                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1753                                  ap[9]) );
  1753                                  ap[9]) );
  1754 
  1754 
  1755                 case 11:
  1755                 case 11:
  1756                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1756                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1757                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1757                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1758                                  ap[9], ap[10]) );
  1758                                  ap[9], ap[10]) );
  1759 
  1759 
  1760                 case 12:
  1760                 case 12:
  1761                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1761                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1762                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1762                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1763                                  ap[9], ap[10], ap[11]) );
  1763                                  ap[9], ap[10], ap[11]) );
  1764 
  1764 
  1765                 case 13:
  1765                 case 13:
  1766                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1766                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1767                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1767                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1768                                  ap[9], ap[10], ap[11], ap[12]) );
  1768                                  ap[9], ap[10], ap[11], ap[12]) );
  1769 
  1769 
  1770                 case 14:
  1770                 case 14:
  1771                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1771                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1772                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1772                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1773                                  ap[9], ap[10], ap[11], ap[12], ap[13]) );
  1773                                  ap[9], ap[10], ap[11], ap[12], ap[13]) );
  1774 
  1774 
  1775                 case 15:
  1775                 case 15:
  1776                     RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
  1776                     RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
  1777                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1777                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
  1778                                  ap[9], ap[10], ap[11], ap[12], ap[13], ap[14]) );
  1778                                  ap[9], ap[10], ap[11], ap[12], ap[13], ap[14]) );
  1779             }
  1779             }
  1780           } else {
  1780           } else {
  1781             /* interpreted code */
  1781             /* interpreted code */
  1782 #ifdef PASS_ARG_POINTER
  1782 #ifdef PASS_ARG_POINTER
  1783             RETURN ( __interpret(self, nargs, anObject, aSymbol, SND_COMMA searchClass, &dummy, ap) );
  1783             RETURN ( __interpret(self, nargs, anObject, aSymbol, searchClass, &dummy, ap) );
  1784 #else
  1784 #else
  1785             switch (nargs) {
  1785             switch (nargs) {
  1786                 case 0:
  1786                 case 0:
  1787                     RETURN ( __interpret(self, 0, anObject, aSymbol, SND_COMMA searchClass, &dummy) );
  1787                     RETURN ( __interpret(self, 0, anObject, aSymbol, searchClass, &dummy) );
  1788 
  1788 
  1789                 case 1:
  1789                 case 1:
  1790                     RETURN ( __interpret(self, 1, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1790                     RETURN ( __interpret(self, 1, anObject, aSymbol, searchClass, &dummy,
  1791                                    ap[0]) );
  1791                                    ap[0]) );
  1792 
  1792 
  1793                 case 2:
  1793                 case 2:
  1794                     RETURN ( __interpret(self, 2, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1794                     RETURN ( __interpret(self, 2, anObject, aSymbol, searchClass, &dummy,
  1795                                    ap[0], ap[1]) );
  1795                                    ap[0], ap[1]) );
  1796 
  1796 
  1797                 case 3:
  1797                 case 3:
  1798                     RETURN ( __interpret(self, 3, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1798                     RETURN ( __interpret(self, 3, anObject, aSymbol, searchClass, &dummy,
  1799                                    ap[0], ap[1], ap[2]) );
  1799                                    ap[0], ap[1], ap[2]) );
  1800 
  1800 
  1801                 case 4:
  1801                 case 4:
  1802                     RETURN ( __interpret(self, 4, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1802                     RETURN ( __interpret(self, 4, anObject, aSymbol, searchClass, &dummy,
  1803                                    ap[0], ap[1], ap[2], ap[3]) );
  1803                                    ap[0], ap[1], ap[2], ap[3]) );
  1804 
  1804 
  1805                 case 5:
  1805                 case 5:
  1806                     RETURN ( __interpret(self, 5, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1806                     RETURN ( __interpret(self, 5, anObject, aSymbol, searchClass, &dummy,
  1807                                    ap[0], ap[1], ap[2], ap[3], ap[4]) );
  1807                                    ap[0], ap[1], ap[2], ap[3], ap[4]) );
  1808 
  1808 
  1809                 case 6:
  1809                 case 6:
  1810                     RETURN ( __interpret(self, 6, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1810                     RETURN ( __interpret(self, 6, anObject, aSymbol, searchClass, &dummy,
  1811                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
  1811                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
  1812 
  1812 
  1813                 case 7:
  1813                 case 7:
  1814                     RETURN ( __interpret(self, 7, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1814                     RETURN ( __interpret(self, 7, anObject, aSymbol, searchClass, &dummy,
  1815                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
  1815                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
  1816 
  1816 
  1817                 case 8:
  1817                 case 8:
  1818                     RETURN ( __interpret(self, 8, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1818                     RETURN ( __interpret(self, 8, anObject, aSymbol, searchClass, &dummy,
  1819                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1819                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1820                                    ap[7]) );
  1820                                    ap[7]) );
  1821 
  1821 
  1822                 case 9:
  1822                 case 9:
  1823                     RETURN ( __interpret(self, 9, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1823                     RETURN ( __interpret(self, 9, anObject, aSymbol, searchClass, &dummy,
  1824                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1824                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1825                                    ap[7], ap[8]) );
  1825                                    ap[7], ap[8]) );
  1826 
  1826 
  1827                 case 10:
  1827                 case 10:
  1828                     RETURN ( __interpret(self, 10, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1828                     RETURN ( __interpret(self, 10, anObject, aSymbol, searchClass, &dummy,
  1829                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1829                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1830                                    ap[7], ap[8], ap[9]) );
  1830                                    ap[7], ap[8], ap[9]) );
  1831 
  1831 
  1832                 case 11:
  1832                 case 11:
  1833                     RETURN ( __interpret(self, 11, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1833                     RETURN ( __interpret(self, 11, anObject, aSymbol, searchClass, &dummy,
  1834                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1834                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1835                                    ap[7], ap[8], ap[9], ap[10]) );
  1835                                    ap[7], ap[8], ap[9], ap[10]) );
  1836 
  1836 
  1837                 case 12:
  1837                 case 12:
  1838                     RETURN ( __interpret(self, 12, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1838                     RETURN ( __interpret(self, 12, anObject, aSymbol, searchClass, &dummy,
  1839                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1839                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1840                                    ap[7], ap[8], ap[9], ap[11]) );
  1840                                    ap[7], ap[8], ap[9], ap[11]) );
  1841 
  1841 
  1842                 case 13:
  1842                 case 13:
  1843                     RETURN ( __interpret(self, 13, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1843                     RETURN ( __interpret(self, 13, anObject, aSymbol, searchClass, &dummy,
  1844                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1844                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1845                                    ap[7], ap[8], ap[9], ap[11], ap[12]) );
  1845                                    ap[7], ap[8], ap[9], ap[11], ap[12]) );
  1846 
  1846 
  1847                 case 14:
  1847                 case 14:
  1848                     RETURN ( __interpret(self, 14, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1848                     RETURN ( __interpret(self, 14, anObject, aSymbol, searchClass, &dummy,
  1849                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1849                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1850                                    ap[7], ap[8], ap[9], ap[11], ap[12], ap[13]) );
  1850                                    ap[7], ap[8], ap[9], ap[11], ap[12], ap[13]) );
  1851 
  1851 
  1852                 case 15:
  1852                 case 15:
  1853                     RETURN ( __interpret(self, 15, anObject, aSymbol, SND_COMMA searchClass, &dummy,
  1853                     RETURN ( __interpret(self, 15, anObject, aSymbol, searchClass, &dummy,
  1854                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1854                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
  1855                                    ap[7], ap[8], ap[9], ap[11], ap[12], ap[13], ap[14]) );
  1855                                    ap[7], ap[8], ap[9], ap[11], ap[12], ap[13], ap[14]) );
  1856             }
  1856             }
  1857 #endif
  1857 #endif
  1858           }
  1858           }
  2755 ! !
  2755 ! !
  2756 
  2756 
  2757 !Method class methodsFor:'documentation'!
  2757 !Method class methodsFor:'documentation'!
  2758 
  2758 
  2759 version
  2759 version
  2760     ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.121 1997-01-16 00:32:53 cg Exp $'
  2760     ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.122 1997-01-17 23:29:39 cg Exp $'
  2761 ! !
  2761 ! !
  2762 Method initialize!
  2762 Method initialize!