Compiler/AST interpreter: Difference between revisions
→{{header|ALGOL W}}: minor bug fix
(Added) |
(→{{header|ALGOL W}}: minor bug fix) |
||
Line 222:
sLen := sLen + 1;
lPos := lPos + 1;
while lPos <= 255 and line( lPos // 1 ) not = terminator
str( sLen // 1 ) := line( lPos // 1 );
sLen := sLen + 1;
Line 263:
integer n;
n := 0;
while line( lPos // 1 ) not = " "
n := ( n * 10 ) + ( decode( line( lPos // 1 ) ) - decode( "0" ) );
lPos := lPos + 1
Line 278:
while line( lPos // 1 ) = " " do lPos := lPos + 1;
name := "";
while lPos < 256 and line( lPos // 1 ) not = "
name( tPos // 1 ) := line( lPos // 1 );
lPos := lPos + 1;
| |||