[fpc-pascal]Bugreport for Snapshot FPC 1.1 15.12.2000 and before

[Peter Vreman]

> 
> Hello,
> 
> 
> 
> i got an error at compiling for that line:
> 
> b:=byte(ptr(seg(fontbufptr^),ofs(fontbufptr^)+ord(s[i])*16+u)^);
> 
> var
> b,u:longint;
> fontbufptr:pointer;
> s:string;
> 
> 
> 
> gxtext.pp(246,39) Error: Incompatible type for arg no. 1: Got "Boolean",
> 
> expected "Longint"
> 
> The line works with snapshot 1.03 15.12.2000

Thanks for the report, it was a stupid copy&paste bug :(

Note that in 1.1 the ptr() function returns a farpointer instead of pointer.