Commit 4d5ddb03 authored by Jeffrey Lee's avatar Jeffrey Lee
Browse files

Use OS_SynchroniseCodeAreas after copying stub exit handler to workspace

Detail:
  s/Obey - Fixed 'enter' to use OS_SynchroniseCodeAreas on the stub exit handler that gets copied to the file-specific workspace.
Admin:
  Tested on Pandaboard
  Appears to be the cause of the frequent crashes on boot reported on the forums:
  https://www.riscosopen.org/forum/forums/11/topics/2911


Version 0.40. Tagged as 'Obey-0_40'
parent 2273dcf7
;
; This file is automatically maintained by srccommit, do not edit manually.
; Last processed by srccommit version: 1.68.
; Last processed by srccommit version: 1.1.
;
GBLS Module_MajorVersion
GBLA Module_Version
......@@ -11,13 +11,13 @@
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "0.39"
Module_Version SETA 39
Module_MajorVersion SETS "0.40"
Module_Version SETA 40
Module_MinorVersion SETS ""
Module_Date SETS "26 Jun 2003"
Module_ApplicationDate SETS "26-Jun-03"
Module_Date SETS "13 Jan 2015"
Module_ApplicationDate SETS "13-Jan-15"
Module_ComponentName SETS "Obey"
Module_ComponentPath SETS "RiscOS/Sources/Programmer/Obey"
Module_FullVersion SETS "0.39"
Module_HelpVersion SETS "0.39 (26 Jun 2003)"
Module_ComponentPath SETS "castle/RiscOS/Sources/Programmer/Obey"
Module_FullVersion SETS "0.40"
Module_HelpVersion SETS "0.40 (13 Jan 2015)"
END
/* (0.39)
/* (0.40)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.68.
* Last processed by srccommit version: 1.1.
*
*/
#define Module_MajorVersion_CMHG 0.39
#define Module_MajorVersion_CMHG 0.40
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 26 Jun 2003
#define Module_Date_CMHG 13 Jan 2015
#define Module_MajorVersion "0.39"
#define Module_Version 39
#define Module_MajorVersion "0.40"
#define Module_Version 40
#define Module_MinorVersion ""
#define Module_Date "26 Jun 2003"
#define Module_Date "13 Jan 2015"
#define Module_ApplicationDate "26-Jun-03"
#define Module_ApplicationDate "13-Jan-15"
#define Module_ComponentName "Obey"
#define Module_ComponentPath "RiscOS/Sources/Programmer/Obey"
#define Module_ComponentPath "castle/RiscOS/Sources/Programmer/Obey"
#define Module_FullVersion "0.39"
#define Module_HelpVersion "0.39 (26 Jun 2003)"
#define Module_LibraryVersionInfo "0:39"
#define Module_FullVersion "0.40"
#define Module_HelpVersion "0.40 (13 Jan 2015)"
#define Module_LibraryVersionInfo "0:40"
......@@ -646,15 +646,19 @@ enter
SWIVC XOS_Claim ; Claim upcall vector on first instance
01
ADRVC r0, WkExitHandler ; Where from
ADDVC r1, r11, #wk_exit ; Where to
LDMVCIA r0, {r0, r2} ; Two words
STMVCIA r1, {r0, r2}
ADRVC r0, MyExitHandler
STRVC r0, [r11, #wk_exitproc] ; Put the right address in the rma
MOVVC R0,#ExitHandler
MOVVC R2,R12 ; R12 --> private word
SWIVC XOS_ChangeEnvironment
BVS %FT02
ADR r0, WkExitHandler ; Where from
ADD r1, r11, #wk_exit ; Where to
LDMIA r0, {r0, r2} ; Two words
STMIA r1, {r0, r2}
MOV r0, #1
ADD r2, r1, #4
SWI XOS_SynchroniseCodeAreas
ADR r0, MyExitHandler
STR r0, [r11, #wk_exitproc] ; Put the right address in the rma
MOV R0,#ExitHandler
MOV R2,R12 ; R12 --> private word
SWI XOS_ChangeEnvironment
STRVC R1,[R11,#wk_oldquitR1]
STRVC R2,[R11,#wk_oldquitR2]
......@@ -670,6 +674,7 @@ enter
STRVC R2,[R11,#wk_olderrorR2]
STRVC R3,[R11,#wk_olderrorR3]
;
02
Debuga xx,"New Obey block:",R11
;
BLVS exit ; lose block if errors occur now
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment