mescc: Bugfix for neg.

[mes.git] / module / language / c99 / compiler.mes

diff --git a/module/language/c99/compiler.mes b/module/language/c99/compiler.mes
index d22bd35178da9467a431b46a56902b0e3a666a58..382058f7333dc05d922c2c6e7f572c87186fbde1 100644 (file)
--- a/module/language/c99/compiler.mes
+++ b/module/language/c99/compiler.mes
@@ -860,7 +860,7 @@
                                     (list (lambda (f g ta t d)
                                             (i386:value->accu 0)))
                                     (list (lambda (f g ta t d)
-                                            (i386:base-sub))))))
+                                            (i386:sub-base))))))
 
         ;;((cast (type-name (decl-spec-list (type-spec (typename "SCM"))) (abs-declr (declr-fctn (declr-scope (abs-declr (pointer))) (param-list (param-decl (decl-spec-list (type-spec (typename "SCM")))))))) (d-sel (ident "function") (array-ref (d-sel (ident "cdr") (array-ref (p-expr (ident "fn")) (p-expr (ident "g_cells")))) (p-expr (ident "functions"))))))
         ((cast ,cast ,o)