[fpc-pascal] fpPause function not working on 2.0.2 [2005/12/21] for x86_64

[Terry Kemp]

The fppause function doesn't seem to work anymore. It just goes straight
through with no delay at all. I'm sure I have had this working
previously (using oldlinux unit).

Can anyone confirm if this works on 32 bit fpc.

thanks

Terry


Free Pascal Compiler version 2.0.2 [2005/12/21] for x86_64

{ Program to demonstrate the Alarm function. }

Uses baseunix,crt;

Procedure AlarmHandler(Sig : longint);cdecl;

begin
  Writeln ('Got to alarm handler');
end;

begin
  Writeln('Setting alarm handler');
  fpSignal(SIGALRM, at AlarmHandler);
repeat
  Writeln ('Scheduling Alarm in 10 seconds');
  fpAlarm(10);
  Writeln ('Pausing');
  fpPause;
  Writeln ('Pause returned');
 until keypressed;
end.