Skip to content
Snippets Groups Projects
Commit 522cee82 authored by pw's avatar pw
Browse files

The click-count slot in button callback structures was typed as fixnum, but

this loses when compiled safe because the slot is valid only in certain
cases and the received value may be random junk. It now typed
as (unsigned-byte 32).
parent b22da333
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.3 1994/10/31 04:54:48 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.4 1999/02/05 21:10:24 pw Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -213,7 +213,7 @@ ...@@ -213,7 +213,7 @@
(:include any-callback) (:include any-callback)
(:print-function print-callback) (:print-function print-callback)
(:constructor make-button-callback (reason event click-count))) (:constructor make-button-callback (reason event click-count)))
(click-count 0 :type fixnum)) (click-count 0 :type (unsigned-byte 32))) ; Not always valid data here.
(defstruct (drawing-area-callback (defstruct (drawing-area-callback
(:include any-callback) (:include any-callback)
...@@ -227,7 +227,7 @@ ...@@ -227,7 +227,7 @@
(:constructor make-drawn-button-callback (:constructor make-drawn-button-callback
(reason event window click-count))) (reason event window click-count)))
window window
(click-count 0 :type fixnum)) (click-count 0 :type (unsigned-byte 32))) ; Not always valid data here.
;;; RowColumnCallbackStruct is weird and probably not necessary ;;; RowColumnCallbackStruct is weird and probably not necessary
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment