2005-08-02 Dave Brolley <brolley@redhat.com>

        * rtl-c.scm (s-unop): Don't dereference
        CGEN_CPU_FPU (current_cpu)->ops->xxxxx in the generated code.
        (s-binop, s-convop, s-cmpop): Likewise.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 8ba5657..dc969ef 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,3 +1,9 @@
+2005-08-02  Dave Brolley  <brolley@redhat.com>
+
+       * rtl-c.scm (s-unop): Don't dereference
+       CGEN_CPU_FPU (current_cpu)->ops->xxxxx in the generated code.
+       (s-binop, s-convop, s-cmpop): Likewise.
+
 2005-07-29  Dave Brolley  <brolley@redhat.com>
 
        * sid-cpu.scm (-gen-scache-semantic-fn): Generate a declation of 'written'

diff --git a/cgen/rtl-c.scm b/cgen/rtl-c.scm
index 7daebfb..9603107 100644 (file)
--- a/cgen/rtl-c.scm
+++ b/cgen/rtl-c.scm
@@ -1,5 +1,5 @@
 ; RTL->C translation support.
-; Copyright (C) 2000 Red Hat, Inc.
+; Copyright (C) 2000, 2005 Red Hat, Inc.
 ; This file is part of CGEN.
 ; See file COPYING.CGEN for details.
 
@@ -649,10 +649,10 @@
     (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-append "CGEN_CPU_FPU (current_cpu)->ops->"
                                    (string-downcase name)
                                    (string-downcase (obj:str-name sem-mode))
-                                   ") (CGEN_CPU_FPU (current_cpu), "
+                                   " (CGEN_CPU_FPU (current_cpu), "
                                    (cx:c val) ")"))
            (cx:make sem-mode
                     (string-append name (obj:str-name sem-mode)
@@ -684,10 +684,10 @@
     (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-append "CGEN_CPU_FPU (current_cpu)->ops->"
                                    (string-downcase name)
                                    (string-downcase (obj:str-name sem-mode))
-                                   ") (CGEN_CPU_FPU (current_cpu), "
+                                   " (CGEN_CPU_FPU (current_cpu), "
                                    (cx:c val1) ", "
                                    (cx:c val2) ")"))
            (cx:make sem-mode
@@ -799,11 +799,11 @@
        (if (or (mode-float? mode)
                (mode-float? (cx:mode s)))
            (cx:make mode
-                    (string-append "(* CGEN_CPU_FPU (current_cpu)->ops->"
+                    (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), "
+                                   " (CGEN_CPU_FPU (current_cpu), "
                                    (cx:c s) ")"))
            (cx:make mode
                     (string-append name
@@ -829,10 +829,10 @@
     (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-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), "
+                                   " (CGEN_CPU_FPU (current_cpu), "
                                    (cx:c val1) ", "
                                    (cx:c val2) ")"))
            (cx:make (mode:lookup 'BI)