int fsubrp(int addr){ int val; val = findsym(addr); if(val != -1) return(IS_FSUBR(val)); else return(0); }
int fsubrp(int addr){ int symaddr; symaddr = findsym(symname(addr)); if(symaddr == NIL) return(0); else { if((IS_FUNC(symaddr)) && (IS_FSUBR(symaddr))) return(1); else return(0); } }