🚀 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