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

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`