[fpc-pascal]runtime 201 with swapword function

[James Mills]

Hi,

Why does the following result in a runtime error ?

program example;

const
	THE_PORT = 9999;

function swapWord(w: Word): Word;
begin
	swapWord := (w SHL 8) OR (w SHR 8);
end;

var
	port:	Word;
begin
	port := swapWord(THE_PORT)
end.

$ ./swapword 
Runtime error 201 at 0x08052AA2
  0x08052AA2
  0x08052AC2
  0x080480B0


cheers
James

-- 
-
-Zero Defect Software Engineers Group - ZDSEG
-
-You need only two tools. WD-40 and duct tape.
-If it doesn't move and it should, use WD-40.
-If it moves and shouldn't, use the tape.