Changeset 2300


Ignore:
Timestamp:
Jan 30, 2007, 9:36:02 PM (14 years ago)
Author:
yura
Message:
  • Initialization of warning and error counters have been removed from rfpc.Main.
  • Empty value of a counter means zero.
Location:
to-imperative/trunk/compiler
Files:
3 edited

Legend:

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

    r2212 r2300  
    311311
    312312Print-Error s.WE e.Descrip t.Pragma =
    313   <? &Error-Counter> : s.n,
     313  {
     314    <? &Error-Counter> : s.n = s.n;
     315    0;
     316  } :: s.n,
    314317  <Store &Error-Counter <"+" s.n 1>>,
    315318  <Print-Pragma &StdErr t.Pragma>,
  • to-imperative/trunk/compiler/rfp_err.rf

    r683 r2300  
    2929
    3030RFP-Error (s.idx s.type s.row s.column) (e.message) =
    31   <? &Error-Counter> : s.n,
     31  {
     32    <? &Error-Counter> : s.n = s.n;
     33    0;
     34  } :: s.n,
    3235  <Store &Error-Counter <"+" s.n 1>>,
    3336  <PrintLN <RFP-Source-File-Name s.idx> ": "
     
    3538
    3639RFP-Warning (s.idx s.type s.row s.column) (e.message) =
    37   <? &Warning-Counter> : s.n,
     40  {
     41    <? &Warning-Counter> : s.n = s.n;
     42    0;
     43  } :: s.n,
    3844  <Store &Warning-Counter <"+" s.n 1>>,
    3945  <PrintLN <RFP-Source-File-Name s.idx> ": "
  • to-imperative/trunk/compiler/rfpc.rf

    r2298 r2300  
    7777  <RFP-Parse-Args () () 1> :: e.files,
    7878  <RFP-Set-Path>,
    79   <Store &Error-Counter 0>,
    80   <Store &Warning-Counter 0>,
    8179  <? &Dir-Separator> : s.dir-separator,
    8280//  <PrintLN e.files>,
     
    170168          },
    171169          \{
    172             <? &Error-Counter> : 0;
     170            <? &Error-Counter> : /*empty*/;
    173171            <Compilation-Failed>;
    174172          },
     
    179177              <Verbose "syntax check finished"> =
    180178              \{
    181                 <? &Error-Counter> : 0;
     179                <? &Error-Counter> : /*empty*/;
    182180                <Compilation-Failed>;
    183181              };
Note: See TracChangeset for help on using the changeset viewer.