X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/1c57922803f125add003cb06dcf691529872d030..6ec8bbd20d14dadb850f993d828b42bb97deba32:/src/bytecode.c diff --git a/src/bytecode.c b/src/bytecode.c index 422855f4ed..646ada96aa 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -15,7 +15,8 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. hacked on by jwz@lucid.com 17-jun-91 o added a compile-time switch to turn on simple sanity checking; @@ -474,14 +475,14 @@ If the third argument is incorrect, Emacs may crash.") case BRgoto: QUIT; - pc += *pc - 127; + pc += (int) *pc - 127; break; case BRgotoifnil: if (NILP (POP)) { QUIT; - pc += *pc - 128; + pc += (int) *pc - 128; } pc++; break; @@ -490,7 +491,7 @@ If the third argument is incorrect, Emacs may crash.") if (!NILP (POP)) { QUIT; - pc += *pc - 128; + pc += (int) *pc - 128; } pc++; break; @@ -840,7 +841,7 @@ If the third argument is incorrect, Emacs may crash.") break; case Bpoint: - XSETFASTINT (v1, point); + XSETFASTINT (v1, PT); PUSH (v1); break;