From 82d4de449654380adc2392aa170895f14a8dd462 Mon Sep 17 00:00:00 2001
From: Ben Avison <bavison@gitlab.riscosopen.org>
Date: Thu, 15 Sep 2005 15:18:28 +0000
Subject: [PATCH] Bugfix to *Help.
Detail:
Internationalisation of *Help code (ie probably dating back to RISC OS 3.1)
broke the Escape condition checking. This is particularly nasty if you
do *Help . on a machine with slow hardware scrolling!
Admin:
Not tested.
Version 5.35, 4.79.2.89. Tagged as 'Kernel-5_35-4_79_2_89'
---
VersionASM | 10 +++++-----
VersionNum | 14 +++++++-------
s/SysComms | 4 ++--
3 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/VersionASM b/VersionASM
index 419601b..da7f2e4 100644
--- a/VersionASM
+++ b/VersionASM
@@ -13,11 +13,11 @@
GBLS Module_ComponentPath
Module_MajorVersion SETS "5.35"
Module_Version SETA 535
-Module_MinorVersion SETS "4.79.2.88"
-Module_Date SETS "12 Sep 2005"
-Module_ApplicationDate SETS "12-Sep-05"
+Module_MinorVersion SETS "4.79.2.89"
+Module_Date SETS "15 Sep 2005"
+Module_ApplicationDate SETS "15-Sep-05"
Module_ComponentName SETS "Kernel"
Module_ComponentPath SETS "RiscOS/Sources/Kernel"
-Module_FullVersion SETS "5.35 (4.79.2.88)"
-Module_HelpVersion SETS "5.35 (12 Sep 2005) 4.79.2.88"
+Module_FullVersion SETS "5.35 (4.79.2.89)"
+Module_HelpVersion SETS "5.35 (15 Sep 2005) 4.79.2.89"
END
diff --git a/VersionNum b/VersionNum
index ccc54da..be612b7 100644
--- a/VersionNum
+++ b/VersionNum
@@ -5,19 +5,19 @@
*
*/
#define Module_MajorVersion_CMHG 5.35
-#define Module_MinorVersion_CMHG 4.79.2.88
-#define Module_Date_CMHG 12 Sep 2005
+#define Module_MinorVersion_CMHG 4.79.2.89
+#define Module_Date_CMHG 15 Sep 2005
#define Module_MajorVersion "5.35"
#define Module_Version 535
-#define Module_MinorVersion "4.79.2.88"
-#define Module_Date "12 Sep 2005"
+#define Module_MinorVersion "4.79.2.89"
+#define Module_Date "15 Sep 2005"
-#define Module_ApplicationDate "12-Sep-05"
+#define Module_ApplicationDate "15-Sep-05"
#define Module_ComponentName "Kernel"
#define Module_ComponentPath "RiscOS/Sources/Kernel"
-#define Module_FullVersion "5.35 (4.79.2.88)"
-#define Module_HelpVersion "5.35 (12 Sep 2005) 4.79.2.88"
+#define Module_FullVersion "5.35 (4.79.2.89)"
+#define Module_HelpVersion "5.35 (15 Sep 2005) 4.79.2.89"
#define Module_LibraryVersionInfo "5:35"
diff --git a/s/SysComms b/s/SysComms
index 67cea43..5253c37 100644
--- a/s/SysComms
+++ b/s/SysComms
@@ -439,14 +439,14 @@ PrintMatch ROUT
Push "r0-r4, lr"
SWI XOS_ReadEscapeState
BLCS AckEscape
-
+ BVS %FT99
SWI XOS_WriteI+CR
MOVVC r4,r3
BL WriteS_Translated_UseR4
= "HelpFound:==> Help on keyword %0",0
ALIGN
SWIVC XOS_NewLine
- STRVS R0, [stack]
+99 STRVS R0, [stack]
MOV R7, #1
Pull "r0-r4, PC"
|
--
GitLab