InfixInBounds (lines 379-401)
Back to List
Browsing infix.h
0379 Array InfixRV_rvals --> 32;
0380 Array InfixRV_lvals --> 32;
0381 Array InfixRV_op --> 32;
0382 Array InfixRV_lop --> 32;
0383 Array InfixRV_rop --> 32;
0384 Array InfixRV_types --> 32;
0385 Array InfixRV_commas --> 32;
0386
0387 [ InfixInBounds addr index n;
0388 if (addr < #array__start || addr > #array__end)
0389 rtrue;
0390 for (n=#lowest_array_number : n<=#highest_array_number : n++) {
0391 if (addr == Symb__Tab(INFIXTT_ARRAY, n)) {
0392 if (temp__global3 == 1 or 3)
0393 temp__global2=temp__global2*WORDSIZE+WORDSIZE-1;
0394 if (index > temp__global2) {
0395 print "Array index out of range";
0396 rfalse;
0397 }
0398 }
0399 }
0400 rtrue;
0401 ];
Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.