Permalink
Browse files

patch 8.0.0527: leftover file from RISC OS

Problem:    RISC OS support was removed long ago, but one file is still
            included.
Solution:   Delete the file. (Thomas Dziedzic, closes #1603)
  • Loading branch information...
brammool committed Mar 30, 2017
1 parent 85325f8 commit ce5c2742012e4793cb4cf82791e849f817fecd95
Showing with 2 additions and 144 deletions.
  1. +0 −1 Filelist
  2. +0 −143 src/swis.s
  3. +2 −0 src/version.c
View
@@ -725,7 +725,6 @@ EXTRA = \
farsi/README.txt \
farsi/fonts/*/far-* \
runtime/vimlogo.xpm \
- src/swis.s \
src/tee/Makefile \
src/tee/Make_mvc.mak \
src/tee/tee.c \
View
@@ -1,143 +0,0 @@
-; Thomas Leonard
-; 24/5/98
-
-ar0 rn 0
-ar1 rn 1
-ar2 rn 2
-ar3 rn 3
-ar4 rn 4
-ar5 rn 5
-ar6 rn 6
-ar7 rn 7
-ar10 rn 10
-ar11 rn 11
-lk rn 14
-ar15 rn 15
-
- AREA DATA
- align 4
-
- export |r0|
-r0: dcd 0
-
- export |r1|
-r1: dcd 0
-
- export |r2|
-r2: dcd 0
-
- export |r3|
-r3: dcd 0
-
- export |r4|
-r4: dcd 0
-
- export |r5|
-r5: dcd 0
-
- export |r6|
-r6: dcd 0
-
- export |r7|
-r7: dcd 0
-
- export |time_of_last_poll|
-time_of_last_poll: dcd 0
-
- AREA CODE, READONLY
- align 4
- import |r0|
- export |swi|
- = "swi"
- align 4
-swi:
- ; r0 = swi number
- stmfd sp!,{ar4-ar10,lk}
- orr ar10,ar0,#1<<17 ;always use the X form
- mov ar0,ar1
- mov ar1,ar2
- mov ar2,ar3
- add ar3,sp,#4*8
- ldmia ar3,{ar3-ar7}
- swi 0x6f ; OS_CallASWI
- ldr ar10,regs_addr
- stmia ar10,{ar0-ar7}
- ldmvcfd sp!,{ar4-ar10,pc}^
- ; report the error and quit on Cancel
- mov r1,#0x17
- adr r2,s_title
- swi 0x400df ; Wimp_ReportError
- cmp r1,#1 ;OK selected?
- ldmeqfd sp!,{ar4-ar10,pc}^ ;yes - try to continue
- swi 0x11 ;no - die (OS_Exit)
-s_title:
- = "Nasty error - Cancel to quit"
- = 0
-
- align 4
- export |xswi|
- = "xswi"
- align 4
-xswi:
- ; r0 = swi number
- stmfd sp!,{ar4-ar10,lk}
- orr ar10,ar0,#1<<17 ;always use the X form
- mov ar0,ar1
- mov ar1,ar2
- mov ar2,ar3
- add ar3,sp,#4*8
- ldmia ar3,{ar3-ar7}
- swi 0x6f ; OS_CallASWI
- ldr ar10,regs_addr
- stmia ar10,{ar0-ar7}
- mov ar0,#0
- orr ar0,ar0,ar15
- ldmfd sp!,{ar4-ar10,pc}^
-
-regs_addr:
- dcd r0
-
- ; The Wimp_Poll swis have to be done specially because,
- ; for some reason, r13 sometimes gets corrupted by Wimp_Poll
- ; (eg when running FileFind)
- AREA CODE, READONLY
- align 4
- import |time_of_last_poll|
- export |wimp_poll|
- = "wimp_poll"
- align 4
-wimp_poll:
- mov ar3,sp
- swi 0x400c7 ; Wimp_Poll
- mov sp,ar3
-
- mov ar3,ar0
- swi 0x42 ; OS_ReadMonotonicTime
- ldr ar2,addr_time
- str ar0,[ar2]
- mov ar0,ar3
-
- mov ar2,#0
- wfs ar2 ; Write floating point status. Needed?
- movs pc,lk
-
- align 4
- export |wimp_pollidle|
- = "wimp_pollidle"
- align 4
-wimp_pollidle:
- mov ar3,sp
- swi 0x400e1 ; Wimp_PollIdle
- mov sp,ar3
-
- mov ar3,ar0
- swi 0x42 ; OS_ReadMonotonicTime
- ldr ar2,addr_time
- str ar0,[ar2]
- mov ar0,ar3
-
- mov ar2,#0
- wfs ar2 ; Write floating point status. Needed?
- movs pc,lk
-
-addr_time: dcd time_of_last_poll
View
@@ -764,6 +764,8 @@ static char *(features[]) =
static int included_patches[] =
{ /* Add new patch number below this line */
+/**/
+ 527,
/**/
526,
/**/

0 comments on commit ce5c274

Please sign in to comment.