Changeset 2010


Ignore:
Timestamp:
Jul 7, 2006, 5:34:36 PM (14 years ago)
Author:
orlov
Message:
  • Fixed compilation of interfaces.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/rfp_parse.rf

    r1950 r2010  
    227227  // If there are no tokens and we aren't processing an interface file then
    228228  // check for undefined functions.
    229   # <Interface?>,
    230     <Domain &Names> (/*e.undefs*/) $iter {
    231       e.domain : e (e.name) e.rest,
    232         <Lookup &Names e.name> : (e.decl-pos) (e.decl-name) s.tag s.linkage t.in t.out,
    233         s.linkage : \{ LOCAL; EXPORT; } =
    234         <RFP-Warning (e.decl-pos) ("No defenition for the function '" e.name "'")>,
    235         e.rest
    236         (e.undefs (UNDEF s.tag <Pragma e.decl-pos> <Make-Name e.decl-name> t.in t.out));
    237       /*empty*/ (e.undefs);
    238     } :: e.domain (e.undefs),
     229  <Interface?> = ;
     230  <Domain &Names> (/*e.undefs*/) $iter {
     231    e.domain : e (e.name) e.rest,
     232      <Lookup &Names e.name> : (e.decl-pos) (e.decl-name) s.tag s.linkage t.in t.out,
     233      s.linkage : \{ LOCAL; EXPORT; } =
     234      <RFP-Warning (e.decl-pos) ("No defenition for the function '" e.name "'")>,
     235      e.rest
     236      (e.undefs (UNDEF s.tag <Pragma e.decl-pos> <Make-Name e.decl-name> t.in t.out));
     237    /*empty*/ (e.undefs);
     238  } :: e.domain (e.undefs),
    239239    e.domain : /*empty*/ =
    240240    e.undefs;
Note: See TracChangeset for help on using the changeset viewer.