X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fppc-assem.S;h=3f0dd991c0d39c81d91a4887dbf1362ef15084b9;hb=534ad97e08a9725fb4c9618f47602d7e83583600;hp=a8a165cd5445754429c8800f66139bffebb10529;hpb=b119de9cf02b07c8af6e74b6e0bc6860a38c93d8;p=sbcl.git diff --git a/src/runtime/ppc-assem.S b/src/runtime/ppc-assem.S index a8a165c..3f0dd99 100644 --- a/src/runtime/ppc-assem.S +++ b/src/runtime/ppc-assem.S @@ -663,13 +663,13 @@ CSYMBOL(funcallable_instance_tramp) = . + 1 .globl CSYMBOL(fun_end_breakpoint_trap) .globl CSYMBOL(fun_end_breakpoint_end) - /* Due to pointer verification in MAKE-LISP-OBJ on GENCGC - targets, which includes PPC, this must include its header data - (the offset from the start of the code-object to the LRA). - The code-object header is five words, there are two words of - constants, and the instruction space is doubleword-aligned, - making an offset of eight. This is header data for a widetag, - so shift left eight bits and add. */ + /* Due to pointer verification in MAKE-LISP-OBJ, this must + include its header data (the offset from the start of the + code-object to the LRA). The code-object header is five + words, there are two words of constants, and the instruction + space is doubleword-aligned, making an offset of eight. + This is header data for a widetag, so shift left eight bits + and add. */ .long RETURN_PC_HEADER_WIDETAG + 0x800 /* We are receiving unknown multiple values, thus must deal