vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 20:22:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

sometimes it can crash because of this line. commented for now. fonts

Browse source 
are not necessary anyway.
This commit is contained in:
norayr 2015-10-12 20:31:28 +04:00
parent 8887c4edb0
commit 815795588b
3 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lib/v4/Texts.Mod
View file

@ -744,7 +744,7 @@ MODULE Texts; (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91**
IF plen > 0 THEN NEW(p); p.file := f; p.org := pos; p.ascii := FALSE; un := p; un.len := plen IF plen > 0 THEN NEW(p); p.file := f; p.org := pos; p.ascii := FALSE; un := p; un.len := plen
ELSE LoadElem(msg.r, pos - org, -plen, e); un := e; un.len := 1 ELSE LoadElem(msg.r, pos - org, -plen, e); un := e; un.len := 1
END; END;
un.fnt := fnts[fno]; un.col := col; un.voff := voff; (*un.fnt := fnts[fno];*) un.col := col; un.voff := voff;
INC(pos, un.len); u.next := un; un.prev := u; u := un; Files.Read(msg.r, fno) INC(pos, un.len); u.next := un; un.prev := u; u := un; Files.Read(msg.r, fno)
END; END;
u.next := T.head; T.head.prev := u; T.cache := T.head; T.corg := 0; u.next := T.head; T.head.prev := u; T.cache := T.head; T.corg := 0;

2
src/lib/v4/Texts0.Mod
View file

@ -761,7 +761,7 @@ MODULE Texts0; (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91*
IF plen > 0 THEN NEW(p); p.file := f; p.org := pos; p.ascii := FALSE; un := p; un.len := plen IF plen > 0 THEN NEW(p); p.file := f; p.org := pos; p.ascii := FALSE; un := p; un.len := plen
ELSE LoadElem(msg.r, pos - org, -plen, e); un := e; un.len := 1 ELSE LoadElem(msg.r, pos - org, -plen, e); un := e; un.len := 1
END; END;
un.fnt := fnts[fno]; un.col := col; un.voff := voff; (*un.fnt := fnts[fno];*) un.col := col; un.voff := voff;
INC(pos, un.len); u.next := un; un.prev := u; u := un; Files.Read(msg.r, fno) INC(pos, un.len); u.next := un; un.prev := u; u := un; Files.Read(msg.r, fno)
END; END;
u.next := T.head; T.head.prev := u; T.cache := T.head; T.corg := 0; u.next := T.head; T.head.prev := u; T.cache := T.head; T.corg := 0;

BIN
vocstatic.linux.gcc.x86_64
View file

Binary file not shown.