URL
https://opencores.org/ocsvn/usb_fpga_1_2/usb_fpga_1_2/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
Rev 2 |
Rev 3 |
Line 28... |
Line 28... |
|
|
CTextBuf = class;
|
CTextBuf = class;
|
CTextBuf = class
|
CTextBuf = class
|
buf : pchar; { character buffer }
|
buf : pchar; { character buffer }
|
li : pdword; { line info lineNum shl 12 + file }
|
li : pdword; { line info lineNum shl 12 + file }
|
lastbuf,d : longint;
|
lastbuf,d,d0 : longint;
|
allocsize : longint; { allocated size }
|
allocsize : longint; { allocated size }
|
last : CTextBuf;
|
last : CTextBuf;
|
killme : boolean;
|
killme : boolean;
|
constructor create(var tb:CTextBuf);
|
constructor create(var tb:CTextBuf);
|
constructor create(var tb:CTextBuf; asize:longint);
|
constructor create(var tb:CTextBuf; asize:longint);
|
Line 70... |
Line 70... |
{ ********************************************************************* }
|
{ ********************************************************************* }
|
{ ****** create ******************************************************* }
|
{ ****** create ******************************************************* }
|
constructor CTextBuf.create(var tb:CTextBuf);
|
constructor CTextBuf.create(var tb:CTextBuf);
|
begin
|
begin
|
lastbuf:=-1;
|
lastbuf:=-1;
|
d:=0;
|
d:=0; d0:=0;
|
killme:=false;
|
killme:=false;
|
last:=tb;
|
last:=tb;
|
tb:=self;
|
tb:=self;
|
end;
|
end;
|
|
|
Line 136... |
Line 136... |
name : namestr;
|
name : namestr;
|
ext : extstr;
|
ext : extstr;
|
b : boolean;
|
b : boolean;
|
begin
|
begin
|
lastbuf:=-1;
|
lastbuf:=-1;
|
|
d0+=d;
|
d:=0;
|
d:=0;
|
killme:=true;
|
killme:=true;
|
|
|
if stat=0 then
|
if stat=0 then
|
begin
|
begin
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.