From 56908bd33a7720c735191ceffbea76dbddbad7ff Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Wed, 29 Jul 2009 06:58:16 +0000
Subject: [PATCH] Ohne diese Aenderungen wird

struct interface {
        struct interface *next; /* Linked list pointer */
        void (*recv)();         /* Routine to kick to process input */
};

void
keep_things_going()
{
        struct interface *ifp;
        (*ifp->recv)(ifp);
}

nicht richtig compiliert, da er mit dem void nicht klar kommt - void
durch int ersetzt funktioniert, doch mit void findet er den
entsprechenden OP-Code nicht, da der compiler an dieser Stelle kein
void erkennt bzw. erkannte und eine Art "Fallback-OP-Code" waehlte.
Das fuehrte zum Abbruch des Compilers. Der Fix behebt dieses Problem.
---
 WEGA/contrib/lcc/cmd/comp/common/sty.y | 2 --
 WEGA/contrib/lcc/cmd/comp/u8k/stin     | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/WEGA/contrib/lcc/cmd/comp/common/sty.y b/WEGA/contrib/lcc/cmd/comp/common/sty.y
index 075e618..02d90aa 100644
--- a/WEGA/contrib/lcc/cmd/comp/common/sty.y
+++ b/WEGA/contrib/lcc/cmd/comp/common/sty.y
@@ -1689,9 +1689,7 @@ register char *p;	/* pointer to name */
 			continue;
 
 		case 'v':
-			/* later..
 			i |= TVOID;
-			*/
 			continue;
 
 		case 'u':
diff --git a/WEGA/contrib/lcc/cmd/comp/u8k/stin b/WEGA/contrib/lcc/cmd/comp/u8k/stin
index d37b90d..bb85c7c 100644
--- a/WEGA/contrib/lcc/cmd/comp/u8k/stin
+++ b/WEGA/contrib/lcc/cmd/comp/u8k/stin
@@ -99,7 +99,7 @@ DCOST  :1;
 'CALL'[cucsus] C,F {$1 $A} "	callr	CL\nZc" ;
 'CALL'[lulpf] C,F {$P $1 $A} "	callr	CL\nZc" ;
 'CALL'[d] C,F {$Q $1 $A} "	callr	CL\nZc" ;
-'CALL'[cucsus] R,F {$1 $< $A} "	callr	@CL\nZc" ;
+'CALL'[cucsusv] R,F {$1 $< $A} "	callr	@CL\nZc" ;
 'CALL'[lulpf] R,F {$P $1 $< $A} "	callr	@CL\nZc" ;
 'CALL'[d] R,F {$Q $1 $< $A} "	callr	@CL\nZc" ;
 'CALL' R,F {$N $A} "	callr	@CL\nZc" ;