X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fassem.lisp;h=4b9032822ccb95b873f03024f3a1223c359cbfea;hb=942e45e3bb73fd55786e4a0ab4590324063c0c89;hp=3745ef16243e36e508a94effd3e1254532c0a33b;hpb=c2431e2d0d0222a3cf20cfdfa48201bdcc65cd76;p=sbcl.git diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp index 3745ef1..4b90328 100644 --- a/src/compiler/assem.lisp +++ b/src/compiler/assem.lisp @@ -795,7 +795,7 @@ ;;; positions are known. Space is made in SEGMENT for at least SIZE ;;; bytes. When all output has been generated, the MAYBE-SHRINK ;;; functions for all choosers are called with three arguments: the -;;; segment, the position, and a magic value. The MAYBE- SHRINK +;;; segment, the position, and a magic value. The MAYBE-SHRINK ;;; decides if it can use a shorter sequence, and if so, emits that ;;; sequence to the segment and returns T. If it can't do better than ;;; the worst case, it should return NIL (without emitting anything). @@ -814,8 +814,8 @@ ;;; This is called in EMIT-CHOOSER and COMPRESS-SEGMENT in order to ;;; recompute the current alignment information in light of this -;;; chooser. If the alignment guaranteed byte the chooser is less then -;;; the segments current alignment, we have to adjust the segments +;;; chooser. If the alignment guaranteed by the chooser is less than +;;; the segment's current alignment, we have to adjust the segment's ;;; notion of the current alignment. ;;; ;;; The hard part is recomputing the sync posn, because it's not just @@ -1051,7 +1051,7 @@ (values)) ;;; Grovel over segment, filling in any backpatches. If any choosers -;;; are left over, we need to emit their worst case varient. +;;; are left over, we need to emit their worst case variant. (defun process-back-patches (segment) (do* ((prev nil) (remaining (segment-annotations segment) next) @@ -1087,7 +1087,7 @@ ;;; This holds the current segment while assembling. Use ASSEMBLE to ;;; change it. ;;; -;;; The double parens in the name are intended to suggest that this +;;; The double asterisks in the name are intended to suggest that this ;;; isn't just any old special variable, it's an extra-special ;;; variable, because sometimes MACROLET is used to bind it. So be ;;; careful out there..