From 854bd830392143f7e13449b37820a9ccd6574d00 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Mon, 10 Feb 1997 17:03:44 +0000 Subject: [PATCH] Use xor to zero a result. --- assembly/x86/array.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/assembly/x86/array.lisp b/assembly/x86/array.lisp index 121fab90f..ce0e7d045 100644 --- a/assembly/x86/array.lisp +++ b/assembly/x86/array.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/array.lisp,v 1.1 1997/01/21 00:30:28 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/array.lisp,v 1.2 1997/02/10 17:03:44 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -94,7 +94,7 @@ :disp (- (* vector-data-offset word-bytes) other-pointer-type))) ;; Initialize the result. - (inst mov result 0) + (inst xor result result) ;; Get the count. If it's zero, blow out. (inst mov ecx length) (inst jecxz done) @@ -107,7 +107,6 @@ LOOP ;; Merge each successive word with the result. - ;; ZZZZZ undef inst??? (inst lods eax) ; load 32-bits into eax and (+4 esi) (inst rol result 5) @@ -124,7 +123,6 @@ (inst shl ecx 1) ;; Grab the last word. - ;; ZZZZZ undef isnt? (inst lods eax) ;; Convert the count into a mask. The count is multiplied by 8, so we just -- GitLab