/[gcl]/gcl/cmpnew/gcl_cmptag.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmptag.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Sat Jul 23 08:48:48 2005 UTC revision 1.8 by camm, Mon Sep 26 16:45:02 2005 UTC
# Line 304  Line 304 
304           (body (cdr form))           (body (cdr form))
305           (switch-op-1 (c1expr switch-op)))           (switch-op-1 (c1expr switch-op)))
306      (cond ((and (typep (second switch-op-1 ) 'info)      (cond ((and (typep (second switch-op-1 ) 'info)
307                  (subtypep (info-type (second switch-op-1)) 'fixnum))                  (type>= 'fixnum (info-type (second switch-op-1))))
308             ;;optimize into a C switch:             ;;optimize into a C switch:
309             ;;If we ever get GCC to do switch's with an enum arg,             ;;If we ever get GCC to do switch's with an enum arg,
310             ;;which don't do bounds checking, then we will             ;;which don't do bounds checking, then we will

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26