[fpc-pascal] Sound procedure does not work

[Peter]

On 15/09/15 18:34, Fred van Stappen wrote:
> 
> What sound procedure is unable to work ?
> 
> Thanks.
> 
> Fre;D
> 


I guess he means Procedure Sound in rtl/unix/crt.pp
This does not work for me either, just get the "sound of silence".


Procedure Sound(Hz: Word);
begin
{$ifdef havekiocsound}
  if (not OutputRedir) and (hz>0) then
    fpIoctl(TextRec(Output).Handle, KIOCSOUND, Pointer(1193180 div Hz));
{$endif}
end;



Regards,
PB