🚀 go-pugleaf

In article <36685A89.70BC2B0F@eunet.at>,
  "Ing. Franz Glaser" <meg-glaser@eunet.at> wrote:
> Robert AH Prins wrote:
> >
> > Take this snippet:
> >
> > const
> >   sfile: integer = -1;
> >
> > procedure open(_file: integer);
> > begin
> > {$ifdef fast}
> >   if _file <> sfile then
> >     begin;
> >       sfile:= _file;
> > {$endif}
> >       close(datatout);
> >       assign(datatout, files[_file]);
> >       settextbuf(datatout, databuf^, 8192);
>
> Are you SURE that this SetTextBuf is done also in your
> first rewrite (which is not shown here obviously)?
> Cannot find any other reason for your experience :-)
> If not, how often do you skip the code here...

Yes, it is!

As for the calling of this procedure, the program where I discovered the
anomaly calls open 64 times, s/39e/s/e/s/e/s/18e/s (s = summary, e =
individual event), in other words, with "fast" defined it skips the code 55
times! BTW, first group of 39 'e's range in size from about 10k to 18k, the
second from about 12k to 24k.

> >       if __first_event then
> >         begin
> >           rewrite(datatout);
> >           __first_event:= false;
> >         end
> >       else
> >         append(datatout);
> > {$ifdef fast}
> >     end;
> > {$endif}
> > end; {open}
> >
> -----> snip

Robert
--
Robert AH Prins
prinsra@williscorroon.com

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own