The GitLab server is undergoing maintenance from 1.30pm BST today and will be unavailable at times

Commit e31ed3a8 authored by Kevin Bracey's avatar Kevin Bracey
Browse files

Changed to use OS_ReadArgs32 when in 32 bit mode

Version 0.38. Tagged as 'Obey-0_38'
parent df05a7c7
;
; This file is automatically maintained by srccommit, do not edit manually.
; Last processed by srccommit version: 1.68.
;
GBLS Module_MajorVersion
GBLA Module_Version
GBLS Module_MinorVersion
GBLS Module_Date
GBLS Module_FullVersion
Module_MajorVersion SETS "0.37"
Module_Version SETA 37
GBLS Module_ApplicationDate
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "0.38"
Module_Version SETA 38
Module_MinorVersion SETS ""
Module_Date SETS "12 May 2000"
Module_FullVersion SETS "0.37"
Module_Date SETS "15 Nov 2002"
Module_ApplicationDate SETS "15-Nov-02"
Module_ComponentName SETS "Obey"
Module_ComponentPath SETS "RiscOS/Sources/Programmer/Obey"
Module_FullVersion SETS "0.38"
Module_HelpVersion SETS "0.38 (15 Nov 2002)"
END
/* (0.37)
/* (0.38)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.68.
*
*/
#define Module_MajorVersion_CMHG 0.37
#define Module_MajorVersion_CMHG 0.38
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 12 May 2000
#define Module_Date_CMHG 15 Nov 2002
#define Module_MajorVersion "0.37"
#define Module_Version 37
#define Module_MajorVersion "0.38"
#define Module_Version 38
#define Module_MinorVersion ""
#define Module_Date "12 May 2000"
#define Module_Date "15 Nov 2002"
#define Module_FullVersion "0.37"
#define Module_ApplicationDate "15-Nov-02"
#define Module_ComponentName "Obey"
#define Module_ComponentPath "RiscOS/Sources/Programmer/Obey"
#define Module_FullVersion "0.38"
#define Module_HelpVersion "0.38 (15 Nov 2002)"
#define Module_LibraryVersionInfo "0:38"
......@@ -923,11 +923,17 @@ getline3
]
MOV R2,#wk_buflen ; R2 = length
ADD R0,R11,#wk_parameters ; argument list
TEQ PC,PC
BEQ %FT20
ORR r0, r0, #&80000000 ; "don't append unsubstituted args" flag
SWI XOS_SubstituteArgs
BVC %FT25
BVS loopreturn
20 MOV r5, #&80000000 ; "don't append unsubstituted args" flag
SWI XOS_SubstituteArgs32
BVS loopreturn
; nul-terminate the string
25 ; nul-terminate the string
MOV r0, #0
SUB r2, r2, #1
STRB r0, [r1, r2]
......
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