🚀 go-pugleaf

taki przykladowy program -- pokazuje �e fpc w z�ej kolejnosci wywoluje funkcje
zawarte w wywo�aniu procedury .

program error;
{$APPTYPE CONSOLE}
{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

{$R *.res}

const tab:array[0..9]of byte =(0,1,2,3,4,5,6,7,8,9);
var Count:Integer;

Function ReturnByte:Byte;
begin
   If Count>9 then Count:=0;
   Result:=Tab[Count];
   Count:=Count+1;
end;

procedure WriteByte(S:String;a,b,c,d:Byte);
begin

   WriteLn(S,a,' ',b,' ',c,' ',d);
end;

var a,b:Byte;
begin
  Count:=0;
  WriteLn  (' Orginal     ',tab[0],' ',Tab[1],' ',Tab[2],' ',Tab[3]);
  WriteByte(' Bad Result  ', ReturnByte,ReturnByte,ReturnByte,ReturnByte);

  WriteLn  (' Orginal     ',tab[4],' ',Tab[5],' ',Tab[6],' ',Tab[7]);
  a:= ReturnByte;
  WriteByte(' Bad Result  ', a,ReturnByte,ReturnByte,ReturnByte);

  WriteLn  (' Orginal     ',tab[8],' ',Tab[9],' ',Tab[0],' ',Tab[1]);
  a:= ReturnByte;
  b:= ReturnByte;
  WriteByte(' Good Result ', a,b,ReturnByte,ReturnByte);

  Readln;
end.


na
http://wiki.freepascal.org/Code_Conversion_Guide#Order_of_parameter_evaluation

pisza ze
"Delphi gwarantuje, �e wszystkie parametry s� obliczane od lewej do prawej. FPC
nie zawiera takich gwarancji, a mo�e wywo�a� parametry w dowolnej kolejno�ci  w
celu wytworzenia optymalnego kodu."

I tu problem bo w 99.99 % przypadk�w  wywo�a� kolejno�� ma znaczenie .



--
Wys�ano z serwisu OnetNiusy: http://niusy.onet.pl