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

improved risc crosscompiler, added example and readme.

Browse source 
Former-commit-id: c2b91243e9
This commit is contained in:
Norayr Chilingarian 2014-09-15 22:14:08 +04:00
parent 97860bae19
commit fce731a17d
12 changed files with 298 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/voc07R/CompatTexts.Mod
View file

@ -167,12 +167,16 @@ MODULE CompatTexts; (*JG 21.11.90 / NW 11.7.90 / 24.12.95 / 22.11.10 / 26.3.2014
rlen := rlen + q.len; q := q.next
END;
(*Dict[N] := p.fnt.name;*)
COPY(p.fnt.name, Dict[N]); (* voc adaptation by noch *)
IF p.fnt # NIL THEN COPY(p.fnt.name, Dict[N]) END; (* voc adaptation by noch *)
n := 1;
WHILE Dict[n] # p.fnt.name DO INC(n) END;
IF p.fnt # NIL THEN (* voc adaptation by noch *)
WHILE Dict[n] # p.fnt.name DO INC(n) END;
END;
(*Files.WriteByte(W, n);*)
Files.WriteByte(W, SHORT(SHORT(n))); (* voc adaptation by noch *)
IF n = N THEN Files.WriteString(W, p.fnt.name); INC(N) END;
IF p.fnt # NIL THEN (* voc adaptation by noch *)
IF n = N THEN Files.WriteString(W, p.fnt.name); INC(N) END;
END;
(*Files.WriteByte(W, p.col);*)
Files.WriteByte(W, SHORT(SHORT(p.col))); (* voc adaptation by noch *)
(*Files.WriteByte(W, p.voff);*)