Hi,
Its throwing 'Segmentation Error' every procedure whereever 'VideoBuf'
is used Actually i am migration my application from TP TO Free pascal for
32 bit OS but i am not able to fix MEM issue.
i am totaly blank now please suggest me the soluition to replace MEM/MEMW.
PROCEDURE window_object.appear;
VAR
width_offset,
height_offset : BYTE;
current_location : location_pointer;
BEGIN
current_location:=first_location;
FOR height_offset:=y TO (y+y_offset-1) DO
BEGIN
FOR width_offset:=x TO (x+x_offset-1) DO
BEGIN
// MEMW[$B800:(width_offset-1)*2
// +(height_offset-1)*160]:=current_location^.code;
*VideoBuf^[(width_offset-1)
+(height_offset-1)*
ScreenWidth]:=Ord(current_location^.code); *
current_location:=current_location^.next;
END;
END;
current_location^.next:=NIL;
UpdateScreen(false);
END;
--
View this message in context:
http://free-pascal-general.1045716.n5.nabble.com/Segmentation-Error-using-VideoBuf-tp5719293p5719698.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
