Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl

Commits:

• 608fadde
  by Raymond Toy at 2018-01-02T10:46:13-08:00

  Fix error in printing NOT-IMPLEMENTED
  
  The computed max string length was off by 4 because instruction
  displacement is relative to the address of the branch instruction.
  Need to subtract 2, one for the instruction itself and one for the
  delay slot.
  

1 changed file:

• src/lisp/sparc-arch.c

Changes:

               string = (unsigned char *) &pc[3];

               /*

                * The offset is in 32-bit words, so subtract one for

-               * the instruction in the branch delay slot and scale up

-               * the offet to be in bytes.

+               * the instruction itself and one for the branch delay

+               * slot and scale up the offet to be in bytes.

                */

-              length = 4 * ((pc[1] & 0x7FFFF) - 1);

+              length = 4 * ((pc[1] & 0x7FFFF) - 2);

               while (string[length - 1] == '\0') {

                   --length;