be443f0c5e
Notable changes in this latest version are listed here. Some code
cleanup work and documentation editing has also been done.
256-color limit removed
Icon's X-windows interface previously limited each window to 256
colors at one time. This limitation has been removed for the TrueColor
displays provided by most modern computers. Median-cut quantization is
used to select 256 image colors when WriteImage() is called to write a
GIF file.
Library changes
As usual, several files in the Icon program library have been added or
edited. The core library files, however, remain stable.
Minor changes
* The command "icon - [args]" can now be used to execute a source
program read from standard input.
* A new "icont -N" flag suppresses embedding of an iconx path in the
generated executable
* The configuration directory has been restructured.
* Several obsolete configurations have been removed.
* The environment variables HEAPSIZE and BLOCKSIZE no longer
function as undocumented alternatives to BLKSIZE. The GNU ls
utility uses BLOCKSIZE for other purposes, leading to confusion.
* "make Install" has been changed to never delete anything. It now
creates a new directory rather than altering an existing one.
81 lines
1.8 KiB
Text
81 lines
1.8 KiB
Text
$NetBSD: patch-ap,v 1.7 2003/06/06 08:58:43 jtb Exp $
|
|
|
|
--- /dev/null
|
|
+++ config/netbsd/mipsel.s
|
|
@@ -0,0 +1,76 @@
|
|
+ .data
|
|
+ .align 0
|
|
+$$8:
|
|
+ .ascii "new_context() returned in coswitch\X00"
|
|
+ .text
|
|
+ .align 2
|
|
+ .globl coswitch
|
|
+ # coswitch(old_cs,new_cs,first)
|
|
+ # int *old_cs,*new_cs;
|
|
+ # int first;
|
|
+ # {
|
|
+ .ent coswitch
|
|
+coswitch:
|
|
+ # standard entry code, including decrement of sp
|
|
+ subu $sp, 32
|
|
+ sw $31, 20($sp)
|
|
+ .mask 0x80000000, -4
|
|
+ .frame $sp, 32, $31
|
|
+ # save (decremented) sp and other registers in old_cs
|
|
+ sw $sp, 0($4)
|
|
+ sw $31, 4($4)
|
|
+ sd $16, 8($4)
|
|
+ sd $18, 16($4)
|
|
+ sd $20, 24($4)
|
|
+ sd $22, 32($4)
|
|
+ s.d $f20,40($4)
|
|
+ s.d $f22,48($4)
|
|
+ s.d $f24,56($4)
|
|
+ s.d $f26,64($4)
|
|
+ s.d $f28,72($4)
|
|
+ s.d $f30,80($4)
|
|
+ sw $gp,88($4)
|
|
+ sw $fp,96($4)
|
|
+ # if first = 0, this is first activation
|
|
+ bne $6, 0, $33
|
|
+ # load sp from new_cs[0] (ignore other registers)
|
|
+ lw $sp, 0($5)
|
|
+ # Decrement sp by the size of the stackframe.
|
|
+ # Store decremented sp in new_cs. Then call new_context().
|
|
+ subu $sp, 32
|
|
+ sw $sp, 0($5)
|
|
+ # new_context(0,0);
|
|
+ move $4, $0
|
|
+ move $5, $0
|
|
+ jal new_context
|
|
+ # syserr("new_context() returned in coswitch");
|
|
+ la $4, $$8
|
|
+ jal syserr
|
|
+ # if we're in control now, something is really wrong, so go into
|
|
+ # a tight loop until someone notices...
|
|
+$32:
|
|
+ b $32
|
|
+$33:
|
|
+ # here for not first activation
|
|
+ # load sp and other registers from new_cs
|
|
+ lw $sp, 0($5)
|
|
+ lw $31, 4($5)
|
|
+ # (could compare $31 with 20($sp) as a consistency check now)
|
|
+ ld $16, 8($5)
|
|
+ ld $18, 16($5)
|
|
+ ld $20, 24($5)
|
|
+ ld $22, 32($5)
|
|
+ l.d $f20,40($5)
|
|
+ l.d $f22,48($5)
|
|
+ l.d $f24,56($5)
|
|
+ l.d $f26,64($5)
|
|
+ l.d $f28,72($5)
|
|
+ l.d $f30,80($5)
|
|
+ lw $gp,88($5)
|
|
+ lw $fp,96($5)
|
|
+ # increment sp as for normal return
|
|
+ addu $sp, 32
|
|
+ # return
|
|
+ j $31
|
|
+ # }
|
|
+ .end coswitch
|