Overview
| SHA1 Hash: | a05d095ca19c0bed37630b0dfef846a4abe473c8 |
|---|---|
| Date: | 2011-06-04 13:35:14 |
| User: | crc |
| Comment: | basic: add range checking to RUN; avoids crash if END was not used |
| Timelines: | family | ancestors | descendants | both | trunk |
| Other Links: | files | manifest |
Tags And Properties
- branch=trunk inherited from [dc67bca1f3]
- sym-trunk inherited from [dc67bca1f3]
Changes
[hide diffs]
[patch]Modified langs/basic.rx from [39d820d386719dde] to [ed6a0fc4f971b2e8].
@@ -141,15 +141,16 @@
}}
{{
variable continue
+ : done? dup lines 4000 + > [ continue off ] ifTrue ;
---reveal---
: do_end ( - )
continue # &off , &; do ;
: do_run ( - )
- continue on &; do cr lines [ @+ [ 0; do ] do @continue ] while ;
+ continue on &; do cr lines [ @+ [ 0; do ] do done? @continue ] while ;
}}
( Patch the handleKeyword stub to process the RxBASIC commands ~~~~~~~~~~~~~~ )
: dispatch ( "- )
getToken