diff options
| author | cjl <empty> | 1989-11-25 12:20:18 +0000 |
|---|---|---|
| committer | cjl <empty> | 1989-11-25 12:20:18 +0000 |
| commit | 4294efdb4a2d108f696fce365a45f99c2f986725 (patch) | |
| tree | ce8c8fe63e4e631f2104f3847e495347d4ede822 | |
| parent | 96ba204ec74aaef38021cab4d01e3e1331915d8c (diff) | |
make the fast-array code work on one scanline arraysR4beta3
| -rw-r--r-- | xc/unsupported/lib/CLX/dependent.l | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/xc/unsupported/lib/CLX/dependent.l b/xc/unsupported/lib/CLX/dependent.l index a7fb179e6..c705d5918 100644 --- a/xc/unsupported/lib/CLX/dependent.l +++ b/xc/unsupported/lib/CLX/dependent.l @@ -2578,7 +2578,8 @@ (padded-pixels-per-line (floor padded-bits-per-line bits-per-pixel)) (pixarray-padded-pixels-per-line - (array-row-major-index pixarray 1 0)) + #+Genera (sys:array-row-span pixarray) + #-Genera (array-dimension pixarray 1)) (pixarray-padded-bits-per-line (* pixarray-padded-pixels-per-line bits-per-pixel))) (when (and (= (sys:array-element-size pixarray) bits-per-pixel) @@ -2878,7 +2879,8 @@ (padded-pixels-per-line (floor padded-bits-per-line bits-per-pixel)) (pixarray-padded-pixels-per-line - (array-row-major-index pixarray 1 0)) + #+Genera (sys:array-row-span pixarray) + #-Genera (array-dimension pixarray 1)) (pixarray-padded-bits-per-line (* pixarray-padded-pixels-per-line bits-per-pixel))) (when (and (= (sys:array-element-size pixarray) bits-per-pixel) @@ -2916,11 +2918,13 @@ (or #+lispm (let* ((pixarray-padded-pixels-per-line - (array-row-major-index pixarray 1 0)) + #+Genera (sys:array-row-span pixarray) + #-Genera (array-dimension pixarray 1)) (pixarray-padded-bits-per-line (* pixarray-padded-pixels-per-line bits-per-pixel)) (copy-padded-pixels-per-line - (array-row-major-index copy 1 0)) + #+Genera (sys:array-row-span copy) + #-Genera (array-dimension copy 1)) (copy-padded-bits-per-line (* copy-padded-pixels-per-line bits-per-pixel))) (when (and (= (sys:array-element-size pixarray) bits-per-pixel) |