[Libjit-developers] Bug in ShortInt parameters on PPC

[Evin Robertson]

libjit version 0.0.4.

The following program does not work on PPC (it prints out all zeros). 
If parameter i is changed to be of type Integer, it works on PPC.
It works fine on x86.  Thanks.


program square;


Function square(i :  ShortInt) : ShortInt;
begin
   square := i * i;
end;


Procedure main;
var g : ShortInt;
begin
   for g := 0 to 10 do begin
      write(square(g), ' ');
   end;
   WriteLn('');
end;


begin
   main
end.