From 4ca4f5add47101404dffa67c433ee40bb6aadc95 Mon Sep 17 00:00:00 2001 From: Paul Kimpel Date: Wed, 4 May 2016 13:37:23 -0700 Subject: [PATCH] 1. Correct transcription error affecting code generation for the SEARCH() intrinsic in ALGOLXEM and Mark-XVI ALGOL. 2. Move Mark-XVI/SYMBOL/COOL to Mark-XIV/SYMBOL/COOL. 3. Update project LICENSE file. --- LICENSE | 21 +++++++++++++++++++++ {Mark-XVI => Mark-XIV}/SYMBOL/COOL.esp_m | 0 Mark-XVI/SYMBOL/ALGOL.alg_m | 2 +- source/E-mode/xem/ALGOLXEM.alg_m | 2 +- 4 files changed, 23 insertions(+), 2 deletions(-) create mode 100644 LICENSE rename {Mark-XVI => Mark-XIV}/SYMBOL/COOL.esp_m (100%) diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..7a5d764 --- /dev/null +++ b/LICENSE @@ -0,0 +1,21 @@ +The MIT License (MIT) + +Copyright (c) 2012 Nigel Williams and Paul Kimpel + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. diff --git a/Mark-XVI/SYMBOL/COOL.esp_m b/Mark-XIV/SYMBOL/COOL.esp_m similarity index 100% rename from Mark-XVI/SYMBOL/COOL.esp_m rename to Mark-XIV/SYMBOL/COOL.esp_m diff --git a/Mark-XVI/SYMBOL/ALGOL.alg_m b/Mark-XVI/SYMBOL/ALGOL.alg_m index 11d88c4..a76a897 100644 --- a/Mark-XVI/SYMBOL/ALGOL.alg_m +++ b/Mark-XVI/SYMBOL/ALGOL.alg_m @@ -4675,7 +4675,7 @@ L1: IF T2<23 THEN BEGIN IF ELCLASS!COMMA THEN ERRX(80) END 06062210 STEPIT; AEXP; EMITPAIR(28,COM); T1~1; 06073830 END; END; END; 06073840 GTI1~0; 06073845 - DO EMITO(DEL) UNTIL GTI1~GTI1-1=T1;% 06073850 + DO EMITO(DEL) UNTIL GTI1~GTI1+1=T1;% 06073850 IF ELCLASS!RTPAREN THEN ERR(104) ELSE STEPIT; 06073860 GO TO EXIT; 06073870 EXIT: END IMPFUN; 06074000 diff --git a/source/E-mode/xem/ALGOLXEM.alg_m b/source/E-mode/xem/ALGOLXEM.alg_m index fca5fb7..c397ccf 100644 --- a/source/E-mode/xem/ALGOLXEM.alg_m +++ b/source/E-mode/xem/ALGOLXEM.alg_m @@ -7868,7 +7868,7 @@ STATUS: 34840000 GTI1:= 0; 35135000=06073845= DO 35140000=06073850= EMITO(DEL) 35145000=06073850= - UNTIL GTI1:= GTI1-1 = T1; % 35150000=06073850= + UNTIL GTI1:= GTI1+1 = T1; % 35150000160502PK IF ELCLASS ^= RTPAREN THEN 35155000=06073860= ERR(104) 35160000=06073860= ELSE 35165000=06073860=