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

Revert LEN() to returnng LONGINT

Browse source
This commit is contained in:
David Brown 2016-09-22 20:48:13 +01:00
parent b40dc4e2f8
commit 7b8eed9993
7 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/compiler/OPB.Mod
View file

@ -1124,7 +1124,7 @@ MODULE OPB; (* RC 6.3.89 / 21.2.94 *) (* object model 17.1.93 *)
ELSE x^.obj := NIL;
IF typ^.comp = OPT.DynArr THEN
WHILE p^.class = OPT.Nindex DO p := p^.left; INC(x^.conval^.intval) END ; (* possible side effect ignored *)
p := NewOp(OPT.Ndop, OPT.len, p, x); p^.typ := OPT.adrtyp
p := NewOp(OPT.Ndop, OPT.len, p, x); p^.typ := OPT.linttyp
ELSE p := x; p^.conval^.intval := typ^.n; SetIntType(p)
END
END
@ -1293,7 +1293,7 @@ MODULE OPB; (* RC 6.3.89 / 21.2.94 *) (* object model 17.1.93 *)
ELSIF (fctno = OPT.lenfn) & (parno = 1) THEN (*LEN*)
IF p^.typ^.comp = OPT.DynArr THEN dim := 0;
WHILE p^.class = OPT.Nindex DO p := p^.left; INC(dim) END ; (* possible side effect ignored *)
BindNodes(OPT.Ndop, OPT.adrtyp, p, NewIntConst(dim)); p^.subcl := OPT.len
BindNodes(OPT.Ndop, OPT.linttyp, p, NewIntConst(dim)); p^.subcl := OPT.len
ELSE
p := NewIntConst(p^.typ^.n)
END

1
src/tools/make/vishap.make
View file

@ -20,6 +20,7 @@ FLAVOUR = $(OS).$(DATAMODEL).$(COMPILER)
BUILDDIR = build/$(FLAVOUR)
VISHAP = $(ONAME)$(BINEXT)
# MODEL=-O2 # Override model - build everything as S8,I16,L32.