From 8ed89fe9cea51fe8a797827b5687d96e14e180b1 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Mon, 2 Dec 2002 15:14:08 +0000
Subject: [PATCH] cosmetic changes

---
 src/rec/subRecord.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/rec/subRecord.c b/src/rec/subRecord.c
index ba66a6344..5097bc709 100644
--- a/src/rec/subRecord.c
+++ b/src/rec/subRecord.c
@@ -109,14 +109,12 @@ static long init_record(psub,pass)
 
     if(strlen(psub->inam)!=0) {
         /* convert the initialization subroutine name  */
-        psub->sadr = (void *)registryFunctionFind(psub->inam);
-        if(psub->sadr==0) {
+        psubroutine = (void *)registryFunctionFind(psub->inam);
+        if(psubroutine==0) {
 	    recGblRecordError(S_db_BadSub,(void *)psub,"recSub(init_record)");
 	    return(S_db_BadSub);
         }
-
         /* invoke the initialization subroutine */
-        psubroutine = (SUBFUNCPTR)(psub->sadr);
         status = (*psubroutine)(psub,process);
     }