Re: Tetris trademark

[Chris Moore]

On 1/27/07, Alfred M. Szmidt <address@hidden> wrote:

> 63 ams Alfred M. Szmidt <address@hidden>  Sat Jan 27 14:33:01 2007
> -614138055 ams Alfred M. Szmidt <address@hidden>  Sat Jan 27 14:33:01 2007
I just managed to get a NUL character in my highscore table:

0039^@  Sat Jan 27 23:20:41 2007         <address@hidden>
00388   Sat Jan 27 23:20:41 2007         <address@hidden>
00170   Sat Jan 27 22:33:48 2007         <address@hidden>
00165   Sat Jan 27 22:33:43 2007         <address@hidden>
00096   Sat Jan 27 22:31:38 2007         <address@hidden>
00090   Sat Jan 27 22:30:35 2007         <address@hidden>

and an error message:

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
 aref(nil 0)
 (put-text-property (1- (point)) (point) (quote face) (aref gamegrid-face-
 (if (eq gamegrid-display-mode (quote glyph)) (add-text-properties (1- ...
 gamegrid-set-face(0)
 (let ((buffer-read-only nil)) (goto-char (gamegrid-cell-offset x y)) (del
 (save-excursion (let (...) (goto-char ...) (delete-char 1) (insert-char c
 gamegrid-set-cell(3 1 0)
 (if (/= c tetris-blank) (gamegrid-set-cell px py tetris-blank))
 (let ((c ...) (px ...) (py ...)) (if (/= c tetris-blank) (gamegrid-set-ce
 (while (<= x --cl-var--) (let (... ... ...) (if ... ...)) (setq x (+ x 1)
 (let* ((x 0) (--cl-var-- ...)) (while (<= x --cl-var--) (let ... ...) (se
 (catch (quote --cl-block-nil--) (let* (... ...) (while ... ... ...) nil))
 (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ... ... nil)))
 (block nil (let* (... ...) (while ... ... ...) nil))
 (loop for x from 0 to (1- (tetris-shape-width)) do (let (... ... ...) (if
 (while (<= y --cl-var--) (loop for x from 0 to (1- ...) do (let ... ...))
 (let* ((y 0) (--cl-var-- ...)) (while (<= y --cl-var--) (loop for x from
 (catch (quote --cl-block-nil--) (let* (... ...) (while ... ... ...) nil))
 (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ... ... nil)))
 (block nil (let* (... ...) (while ... ... ...) nil))
 (loop for y from 0 to (1- (tetris-shape-height)) do (loop for x from 0 to
 tetris-erase-shape()
 (let ((hit nil)) (tetris-erase-shape) (while (not hit) (setq tetris-pos-y
 tetris-move-bottom()
 call-interactively(tetris-move-bottom)

This happened after 2 scores had already been added into the highscore
table for that game.  I'm wondering if the timer isn't being stopped
properly and/or quickly enough.  The score is being written using a
(format "%05d ...") call, so that NUL must have been written over the
score at a later point.

The value of buffer-file-name in the above backtrace is "c:/Documents
and Settings/chris/Local Settings/Temp/tetris-scores" so it looks like
the code is trying to manupulate the high score table as if it was a
tetris board.

I didn't mention it before, so:

In GNU Emacs 22.0.92.1 (i386-mingw-nt5.1.2600)
of 2007-01-21 on LENNART-69DE564
X server distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/g/include'

Important settings:
 value of $LC_ALL: nil
 value of $LC_COLLATE: nil
 value of $LC_CTYPE: nil
 value of $LC_MESSAGES: nil
 value of $LC_MONETARY: nil
 value of $LC_NUMERIC: nil
 value of $LC_TIME: nil
 value of $LANG: CSY
 locale-coding-system: cp1250
 default-enable-multibyte-characters: t