Changes between Version 3 and Version 4 of InlineAssembly

Timestamp:

04/05/07 20:09:25 (18 years ago)

Author:

sabetts

Comment:

replace function with truely gc safe version

InlineAssembly

@@ -87 +87 @@
       (:movl #xA0000 :ebx)
       ;; Ordinarily ecx is the counting register but it's the only
-      ;; safe one so use it for the pixel value and use :edx to count since
-      ;; the number never goes past 16000, which is a valid fixnum.
+      ;; safe one so use it for the pixel value and use :edx to count
+      ;; since the number counts by 4s, the bottom 2 bits will be 0,
+      ;; which makes it a valid fixnum.
       (:movl 0 :edx)
       loop
-      (:movl (:eax (:edx 4) (:offset movitz-basic-vector data)) :ecx)
-      (#.movitz:*compiler-physical-segment-prefix* :movl :ecx (:ebx (:edx 4)))
-      (:incl :edx)
-      (:cmpl 16000 :edx)
+      (:movl (:eax :edx (:offset movitz-basic-vector data)) :ecx)
+      (#.movitz:*compiler-physical-segment-prefix* :movl :ecx (:ebx :edx))
+      (:addl 4 :edx)
+      (:cmpl 64000 :edx)
       (:jnz 'loop))
     (values)))