Subversion Repositories Kolibri OS

Rev

Rev 7304 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7304 Rev 7307
Line 375... Line 375...
375 
:void binary_subscr()
 375 
:void binary_subscr()
376 
{
 376 
{
377 
	dword x = 0;
 377 
	dword x = 0;
378 
	dword y = 0;
 378 
	dword y = 0;
379 
	dword l = 0;
 379 
	dword l = 0;
- 
 
 380 
	byte t = 0;
- 
 
 381
380 
	x = popStack();
 382 
	x = popStack();
381 
	y = popStack();
 383 
	y = popStack();
Line 382... Line 384...
382
384
Line 387... Line 389...
387 
	l = DSDWORD[y+5];
 389 
	l = DSDWORD[y+5];
Line 388... Line 390...
388
390
389 
	IF(l<=x) test("error max list",0);
 391 
	IF(l<=x) test("error max list",0);
Line -... Line 392...
- 
 
 392 
	IF(0>l) test("error min list",0);
- 
 
 393
- 
 
 394 
	t = DSBYTE[y+4];
- 
 
 395
390 
	IF(0>l) test("error min list",0);
 396 
	IF(t==PY_LST)
391
397 
	{
- 
 
 398 
		y = DSDWORD[y];
- 
 
 399 
		pushStack(DSDWORD[x*4+y]);
- 
 
 400 
		return;
- 
 
 401 
	}
- 
 
 402 
	IF(t==PY_STR)
- 
 
 403 
	{
- 
 
 404 
		y = DSDWORD[y];
- 
 
 405 
		load_const(y+x,PY_STR,1);
392 
	y = DSDWORD[y];
 406 
		return;
Line 393... Line 407...
393 
	pushStack(DSDWORD[x*4+y]);
 407 
	}
Line 394... Line 408...
394 
}
 408 
}