(prot_a_reply): Type of argument status should be Success, not Bool.

(prot_a_init): Initialize conn->function to call_fnc_login_old, not 0.
(prot_a_parse_packet): Added a cast to make apcc happy.

src/server/prot-a.c

 /*
- * $Id: prot-a.c,v 0.27 1994/04/05 08:03:43 ceder Exp $
+ * $Id: prot-a.c,v 0.28 1994/10/22 13:06:02 ceder Exp $
  * Copyright (C) 1991, 1992, 1993, 1994  Lysator Academic Computer Association.
  *
  * This file is part of the LysKOM server.
@@ -26,7 +26,7 @@
  * Protocol A.
  */
 
-static char *rcsid = "$Id: prot-a.c,v 0.27 1994/04/05 08:03:43 ceder Exp $";
+static char *rcsid = "$Id: prot-a.c,v 0.28 1994/10/22 13:06:02 ceder Exp $";
 #include "rcs.h"
 USE(rcsid);
 
@@ -62,7 +62,7 @@ BUGDECL;
 
 void
 prot_a_reply(Connection *client,
-	     Bool status,
+	     Success status,
 	     Result_holder *res)
 {
     /*
@@ -228,7 +228,7 @@ prot_a_init(Connection *conn)
     conn->struct_parse_pos = 0;
     conn->string_parse_pos = 0;
     conn->ref_no = 0;
-    conn->function = 0;
+    conn->function = call_fnc_login_old;
     conn->num0 = 0;
     conn->num1 = 0;
     conn->num2 = 0;
@@ -374,7 +374,7 @@ prot_a_parse_packet(Connection *client)
 	client->parse_pos = 1;
 	/* Fall through */
     case 1:			/* Get fnc_no */
-	client->function = prot_a_parse_long(client);
+	client->function = (enum call_header)prot_a_parse_long(client);
 	if ( !prot_a_is_legal_fnc(client->function) )
 	    longjmp(parse_env, ISC_PROTOCOL_ERR);
 	client->parse_pos = 2;