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.

_______________________________________________
fpc-pascal maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to