Index: cgen/operand.scm
===================================================================
RCS file: /cvs/src/src/cgen/operand.scm,v
retrieving revision 1.8
diff -c -p -r1.8 operand.scm
*** cgen/operand.scm	16 Jul 2003 05:35:47 -0000	1.8
--- cgen/operand.scm	16 Feb 2005 19:36:34 -0000
***************
*** 1,5 ****
  ; Operands
! ; Copyright (C) 2000, 2001 Red Hat, Inc.
  ; This file is part of CGEN.
  ; See file COPYING.CGEN for details.
  
--- 1,5 ----
  ; Operands
! ; Copyright (C) 2000, 2001, 2005 Red Hat, Inc.
  ; This file is part of CGEN.
  ; See file COPYING.CGEN for details.
  
***************
*** 869,875 ****
  	    ;(elm-set! result 'hw-name base-ifield)
  	    (elm-set! result 'index parsed-encoding)
  	    ; (elm-set! result 'index (hw-index-derived)) ; A temporary dummy
! 	    (logit 1 "new derived-operand; name=" name " hw-name= " (op:hw-name result) 
  		   " index=" (obj:name parsed-encoding) "\n")
  	    (derived-ifield-set-owner! parsed-encoding result)
  	    result))
--- 869,875 ----
  	    ;(elm-set! result 'hw-name base-ifield)
  	    (elm-set! result 'index parsed-encoding)
  	    ; (elm-set! result 'index (hw-index-derived)) ; A temporary dummy
! 	    (logit 2 "new derived-operand; name=" name " hw-name= " (op:hw-name result) 
  		   " index=" (obj:name parsed-encoding) "\n")
  	    (derived-ifield-set-owner! parsed-encoding result)
  	    result))