Commit a76bc825 authored by Robert Sprowson's avatar Robert Sprowson
Browse files

Retire old compiler.

2000 lines of unloved code from 1993 deleted, binary still the same afterwards, so should be same as 1.25.

Version 1.26. Tagged as 'SprExtend-1_26'
parent d801c60e
......@@ -16,7 +16,6 @@
SpriteExtend_SWIDecode
[ ccompiler
Debug gs,"X R0-3",R0,R1,R2,R3
Debug gs,"X R4-7",R4,R5,R6,R7
Debug gs,"X R8-9,12",R8,R9,R12
......@@ -83,7 +82,6 @@ ErrorBlock_NoFile
DCB "NoFile"
DCB 0
ALIGN
]
SpriteExtend_SWINames
DCB SpriteExtendJPEGSWI_Name,0 ; prefix
......@@ -134,7 +132,6 @@ SWIJPEG_Info
BVS exitbiggie
; Set escape stack level in case of unexpected exit from C code.
[ ccompiler
ADRL R3,ccompiler_sp
STR SP,[R3] ; in case of unexpected exit
MOV R4,#0
......@@ -254,7 +251,6 @@ find_image_dims_error
Debug gs,"r0(err) =",R0
ADD sp, sp, #4 ; skip over stored verison of r0
Pull "sl,pc" ; pull up other three
]
;SWIJPEG_FileInfo
;In:
......@@ -277,7 +273,6 @@ find_image_dims_error
;
SWIJPEG_FileInfo
[ ccompiler
Debug gs, "Filename pointer = ",r1
Pull "LR"
Debug gs,"JPEGFile: LR =",LR
......@@ -326,7 +321,6 @@ SWIJPEG_FileInfo
Debug gs,"returning R4,R5,R6 =",R4,R5,R6
ADDS sp,sp,#6*4 ; get rid of saved r1-r6 - clear V
Pull "R7-R9,PC" ; copied from exitbiggie, but returning r1-r6 - r0 restored by exit sequence.
]
;SWIJPEG_PlotScaled
......@@ -344,16 +338,7 @@ SWIJPEG_FileInfo
; all registers preserved.
;
SWIJPEG_PlotScaled
;On Entry: what original code expected...
; R0 = 66
; R1 = pointer to JPEG file image
; R2 = length of JPEG file image
; R3 = x coordinate at which to plot
; R4 = y coordinate at which to plot
; R5 = plot action
; R6 = scale factors: 0 -> no scaling
; R7 = pixel translation table
[ ccompiler
Pull "LR"
Push "R1-R9,LR" ; we must stick to the same form of saved registers as 'exitbiggie' assumes,
MOV r1, sp
......@@ -613,7 +598,6 @@ jpegscaled_errorexit
MOV r4, lr
Debug gs,"about to return to ",R4
MOV pc, lr
]
;SWIJPEG_PlotFileScaled
;In:
......@@ -630,7 +614,6 @@ jpegscaled_errorexit
;
SWIJPEG_PlotFileScaled
[ ccompiler
BICS LR, r4, #3 ;has someone set illegal flags?
ADRNEL R0, ErrorBlock_BadFlags
addr r1, Title, NE
......@@ -717,7 +700,6 @@ JPEG_PlotFileScaled_error
JPEG_PlotFileScaled_error2
ADD sp, sp, #4
Pull "R4-R6,PC"
]
;SWIJPEG_PlotTransformed
; In:
......@@ -930,7 +912,6 @@ JPEGTrans_ErrorExit1
SWIJPEG_PlotFileTransformed
[ ccompiler
Pull "LR"
Push "R0,R3-R6,LR"
BICS r3, r1, #7 ;has someone set illegal flags?
......@@ -1007,7 +988,6 @@ JPEG_PlotFileTransformed_error
JPEG_PlotFileTransformed_error2
ADD sp, sp, #4
Pull "R3-R6,PC"
]
;SWIJPEG_PDriverIntercept
; In:
......
This diff is collapsed.
......@@ -11,13 +11,13 @@
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "1.25"
Module_Version SETA 125
Module_MajorVersion SETS "1.26"
Module_Version SETA 126
Module_MinorVersion SETS ""
Module_Date SETS "17 Sep 2010"
Module_ApplicationDate SETS "17-Sep-10"
Module_ComponentName SETS "SprExtend"
Module_ComponentPath SETS "mixed/RiscOS/Sources/Video/Render/SprExtend"
Module_FullVersion SETS "1.25"
Module_HelpVersion SETS "1.25 (17 Sep 2010)"
Module_FullVersion SETS "1.26"
Module_HelpVersion SETS "1.26 (17 Sep 2010)"
END
/* (1.25)
/* (1.26)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.1.
*
*/
#define Module_MajorVersion_CMHG 1.25
#define Module_MajorVersion_CMHG 1.26
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 17 Sep 2010
#define Module_MajorVersion "1.25"
#define Module_Version 125
#define Module_MajorVersion "1.26"
#define Module_Version 126
#define Module_MinorVersion ""
#define Module_Date "17 Sep 2010"
......@@ -18,6 +18,6 @@
#define Module_ComponentName "SprExtend"
#define Module_ComponentPath "mixed/RiscOS/Sources/Video/Render/SprExtend"
#define Module_FullVersion "1.25"
#define Module_HelpVersion "1.25 (17 Sep 2010)"
#define Module_LibraryVersionInfo "1:25"
#define Module_FullVersion "1.26"
#define Module_HelpVersion "1.26 (17 Sep 2010)"
#define Module_LibraryVersionInfo "1:26"
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