vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-05 20:42:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Something works:D

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-11 21:51:55 +04:00
parent 1f1763abff
commit 173fd486fe
7 changed files with 80 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

4
CharacterStack.Mod
View file

@ -43,7 +43,7 @@ VAR
BEGIN
NEW(n);
IF self.Count = 0 THEN RETURN 0AX END;
IF self.Count = 0 THEN RETURN 0X END;
n := self.Get(self, self.Count - 1);
self.Delete(self, self.Count - 1);
@ -56,7 +56,7 @@ VAR
BEGIN
NEW(n);
IF self.Count = 0 THEN RETURN 0AX END;
IF self.Count = 0 THEN RETURN 0X END;
n := self.Get(self, self.Count - 1);
RETURN n.obj(TChar).char;