Index: cgen/rtl-c.scm
===================================================================
RCS file: /cvs/src/src/cgen/rtl-c.scm,v
retrieving revision 1.6
diff -c -p -r1.6 rtl-c.scm
*** cgen/rtl-c.scm	15 Jun 2005 21:28:18 -0000	1.6
--- cgen/rtl-c.scm	2 Aug 2005 19:25:38 -0000
***************
*** 1,5 ****
  ; RTL->C translation support.
! ; Copyright (C) 2000 Red Hat, Inc.
  ; This file is part of CGEN.
  ; See file COPYING.CGEN for details.
  
--- 1,5 ----
  ; RTL->C translation support.
! ; Copyright (C) 2000, 2005 Red Hat, Inc.
  ; This file is part of CGEN.
  ; See file COPYING.CGEN for details.
  
***************
*** 649,658 ****
      (if (-rtx-use-sem-fn? estate c-op mode)
  	(if (mode-float? mode)
  	    (cx:make sem-mode
! 		     (string-append "(* CGEN_CPU_FPU (current_cpu)->ops->"
  				    (string-downcase name)
  				    (string-downcase (obj:str-name sem-mode))
! 				    ") (CGEN_CPU_FPU (current_cpu), "
  				    (cx:c val) ")"))
  	    (cx:make sem-mode
  		     (string-append name (obj:str-name sem-mode)
--- 649,658 ----
      (if (-rtx-use-sem-fn? estate c-op mode)
  	(if (mode-float? mode)
  	    (cx:make sem-mode
! 		     (string-append "CGEN_CPU_FPU (current_cpu)->ops->"
  				    (string-downcase name)
  				    (string-downcase (obj:str-name sem-mode))
! 				    " (CGEN_CPU_FPU (current_cpu), "
  				    (cx:c val) ")"))
  	    (cx:make sem-mode
  		     (string-append name (obj:str-name sem-mode)
***************
*** 684,693 ****
      (if (-rtx-use-sem-fn? estate c-op mode)
  	(if (mode-float? mode)
  	    (cx:make sem-mode
! 		     (string-append "(* CGEN_CPU_FPU (current_cpu)->ops->"
  				    (string-downcase name)
  				    (string-downcase (obj:str-name sem-mode))
! 				    ") (CGEN_CPU_FPU (current_cpu), "
  				    (cx:c val1) ", "
  				    (cx:c val2) ")"))
  	    (cx:make sem-mode
--- 684,693 ----
      (if (-rtx-use-sem-fn? estate c-op mode)
  	(if (mode-float? mode)
  	    (cx:make sem-mode
! 		     (string-append "CGEN_CPU_FPU (current_cpu)->ops->"
  				    (string-downcase name)
  				    (string-downcase (obj:str-name sem-mode))
! 				    " (CGEN_CPU_FPU (current_cpu), "
  				    (cx:c val1) ", "
  				    (cx:c val2) ")"))
  	    (cx:make sem-mode
***************
*** 799,809 ****
  	(if (or (mode-float? mode)
  		(mode-float? (cx:mode s)))
  	    (cx:make mode
! 		     (string-append "(* CGEN_CPU_FPU (current_cpu)->ops->"
  				    (string-downcase name)
  				    (string-downcase (obj:str-name (-rtx-sem-mode (cx:mode s))))
  				    (string-downcase (obj:str-name (-rtx-sem-mode mode)))
! 				    ") (CGEN_CPU_FPU (current_cpu), "
  				    (cx:c s) ")"))
  	    (cx:make mode
  		     (string-append name
--- 799,809 ----
  	(if (or (mode-float? mode)
  		(mode-float? (cx:mode s)))
  	    (cx:make mode
! 		     (string-append "CGEN_CPU_FPU (current_cpu)->ops->"
  				    (string-downcase name)
  				    (string-downcase (obj:str-name (-rtx-sem-mode (cx:mode s))))
  				    (string-downcase (obj:str-name (-rtx-sem-mode mode)))
! 				    " (CGEN_CPU_FPU (current_cpu), "
  				    (cx:c s) ")"))
  	    (cx:make mode
  		     (string-append name
***************
*** 829,838 ****
      (if (-rtx-use-sem-fn? estate c-op mode)
  	(if (mode-float? mode)
  	    (cx:make (mode:lookup 'BI)
! 		     (string-append "(* CGEN_CPU_FPU (current_cpu)->ops->"
  				    (string-downcase (symbol->string name))
  				    (string-downcase (obj:str-name (-rtx-sem-mode mode)))
! 				    ") (CGEN_CPU_FPU (current_cpu), "
  				    (cx:c val1) ", "
  				    (cx:c val2) ")"))
  	    (cx:make (mode:lookup 'BI)
--- 829,838 ----
      (if (-rtx-use-sem-fn? estate c-op mode)
  	(if (mode-float? mode)
  	    (cx:make (mode:lookup 'BI)
! 		     (string-append "CGEN_CPU_FPU (current_cpu)->ops->"
  				    (string-downcase (symbol->string name))
  				    (string-downcase (obj:str-name (-rtx-sem-mode mode)))
! 				    " (CGEN_CPU_FPU (current_cpu), "
  				    (cx:c val1) ", "
  				    (cx:c val2) ")"))
  	    (cx:make (mode:lookup 'BI)