Update support:

txt = "test"
stdout(txt[1])

stdout:
e

git-svn-id: svn://kolibrios.org@7307 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
pavelyakov 2018-07-15 19:17:28 +00:00
parent 1fc61a82fa
commit 1e44a9f439
2 changed files with 18 additions and 2 deletions

View File

@ -27,6 +27,8 @@
#define PY_DCT 16
#define PY_NA_STR 32
#define PY_SYM_STR 33
#define PY_ADD 0
#define PY_POW 1

View File

@ -377,6 +377,8 @@
dword x = 0;
dword y = 0;
dword l = 0;
byte t = 0;
x = popStack();
y = popStack();
@ -389,8 +391,20 @@
IF(l<=x) test("error max list",0);
IF(0>l) test("error min list",0);
y = DSDWORD[y];
pushStack(DSDWORD[x*4+y]);
t = DSBYTE[y+4];
IF(t==PY_LST)
{
y = DSDWORD[y];
pushStack(DSDWORD[x*4+y]);
return;
}
IF(t==PY_STR)
{
y = DSDWORD[y];
load_const(y+x,PY_STR,1);
return;
}
}
/*