[fpc-pascal] Segmentation Error using VideoBuf

[mokashe.ram]

 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.