OpenCores
URL https://opencores.org/ocsvn/usb_fpga_1_11/usb_fpga_1_11/trunk

Subversion Repositories usb_fpga_1_11

[/] [usb_fpga_1_11/] [trunk/] [bmp/] [src/] [bmp.pas] - Diff between revs 5 and 6

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 5 Rev 6
Line 301... Line 301...
m^.enabled:=false;
m^.enabled:=false;
mac:=m;
mac:=m;
end;
end;
 
 
constructor CMacroBuf.insert(var mb:CMacroBuf);
constructor CMacroBuf.insert(var mb:CMacroBuf);
var tmp : CMacroBuf;
var db : CTextBuf;
begin
begin
tmp:=mb;
inherited create(db, macrobuf_size);
inherited create(mb, macrobuf_size);
last:=mb.last;
last:=tmp.last;
mb.last:=self;
tmp.last:=self;
mac:=mb.mac;
mac:=tmp.mac;
mb.mac:=nil;
tmp.mac:=nil;
mb:=self;
end;
end;
 
 
{ ****** destroy ***************************************************** }
{ ****** destroy ***************************************************** }
destructor CMacroBuf.destroy;
destructor CMacroBuf.destroy;
begin
begin

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.