Changeset 1208 for to-imperative/trunk/compiler/rfp_compile.rf

Timestamp:

Aug 14, 2003, 2:00:20 PM (17 years ago)

Author:

orlov

Message:

• Put constant declarations in cc-files instead of hh-ones.

File:

• to-imperative/trunk/compiler/rfp_compile.rf (modified) (3 diffs)

to-imperative/trunk/compiler/rfp_compile.rf

@@ -131 +131 @@
       (s.link s.tag t.pragma t.name (e.in) (e.out) e.body), FUNC FUNC? : e s.tag e =
         { 
-          s.link : EXPORT = (DECL-FUNC EXPORT t.name);
-          <Put &Declarations (DECL-FUNC LOCAL t.name)> = /*empty*/;
+          s.link : EXPORT = (DECL-FUNC t.name);
+          <Put &Declarations (DECL-FUNC t.name)> = /*empty*/;
         } :: e.decl,
         {
@@ -141 +141 @@
       (s.link CONST t.pragma t.name e.expr) =
         (CONSTEXPR s.link t.name (e.expr) e.expr) :: t.const,
+        <Put &Declarations t.const>,
         {
-          s.link : EXPORT = (t.const) /*empty*/;
-          <Put &Declarations t.const> = () /*empty*/;
+          s.link : EXPORT = ((DECL-OBJ t.name)) /*empty*/;
+          () /*empty*/;
         };
-      (EXPORT s.tag t.pragma t.name) = ((DECL-OBJ EXPORT s.tag t.name)) /*empty*/;
+      (EXPORT s.tag t.pragma t.name) =
+        <Put &Declarations (OBJ EXPORT s.tag t.name)>,
+        ((DECL-OBJ t.name)) /*empty*/;
       (LOCAL  s.tag t.pragma t.name) =
-        <Put &Declarations (DECL-OBJ LOCAL s.tag t.name)>,
+        <Put &Declarations (OBJ LOCAL s.tag t.name)>,
         () /*empty*/;
     } :: (e.decl) e.item =
@@ -165 +168 @@
 Gener-Stub (t.name) =
   <Lookup &Stub-Funcs t.name> : t.stub-name s.tag (e.Fin) (e.Fout),
-  <Put &Declarations (DECL-FUNC LOCAL t.stub-name)>,
+  <Put &Declarations (DECL-FUNC t.stub-name)>,
   <Gener-Vars (e.Fin) "stub"> :: e.He,
   <Comp-Func s.tag t.stub-name ((EVAR ("arg" 1))) ((EVAR))