[fpc-pascal]Unit Ports - common prob. ?

[Kenneth Due]

I already solved it - forgot to read the manual - sorry
if ioperm($378,3,0) = true then -> if ioperm($378,3,1) = true then


At 20:46 14-11-00 +0100, you wrote: 
>
> .....Or maybe I'm doing something wrong
>
> the source:
> program porttest;
> uses ports,crt,linux;
> begin
>   if ioperm($378,3,0) = true then
>   begin 
>     repeat
>       delay(1000);
>       writeln('on');
>       port[$378]:=255;
>       delay(1000);
>       writeln('off');
>       port[$378]:=0;
>     until keypressed;
>   end;
>   writeln('davs');
> end.
>
> the error:
> gdb) run
> Starting program: /prog/porttest 
> on
>
> Program received signal SIGSEGV, Segmentation fault.
> 0x804c399 in _LINUX ()
> (gdb) 
> Kenneth Due
>
>
>
>
>
> <http://www.skummel.dktlf.%205850%206402%20priv.22207691%20arb.risikabel%2
> 0:%20Hybridnet%20med%20kinesiske%20tv-udsendeler/>http://www.skummel.dk
> Tlf. 
> 5850 6402 priv.
> 22207691 arb.
>
> Risikabel : Hybridnet med kinesiske tv-udsendeler

<http://www.skummel.dktlf.%205850%206402%20priv.22207691%20arb.risikabel%20
:%20Hybridnet%20med%20kinesiske%20tv-udsendeler/>

Kenneth Due





http://www.skummel.dk
Tlf. 
 5850 6402 priv.
22207691 arb.

Risikabel : Hybridnet med kinesiske tv-udsendeler