The R Project SVN R

Rev

Rev 42398 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 42398 Rev 42582
Line 98... Line 98...
98 
 
 98 
 
99 
    *fun = NULL;
 99 
    *fun = NULL;
100 
    if(TYPEOF(op) == EXTPTRSXP) {
 100 
    if(TYPEOF(op) == EXTPTRSXP) {
101 
	char *p = NULL;
 101 
	char *p = NULL;
102 
	if(R_ExternalPtrTag(op) == Rf_install("native symbol"))
102 
	if(R_ExternalPtrTag(op) == Rf_install("native symbol"))
103 
   	   *fun = (DL_FUNC) R_ExternalPtrAddr(op);
 103 
   	   *fun = R_ExternalPtrAddrFn(op);
104 
	else if(R_ExternalPtrTag(op) == Rf_install("registered native symbol")) {
 104 
	else if(R_ExternalPtrTag(op) == Rf_install("registered native symbol")) {
105 
   	   R_RegisteredNativeSymbol *tmp;
 105 
   	   R_RegisteredNativeSymbol *tmp;
106 
	   tmp = (R_RegisteredNativeSymbol *) R_ExternalPtrAddr(op);
 106 
	   tmp = (R_RegisteredNativeSymbol *) R_ExternalPtrAddr(op);
107 
	   if(tmp) {
 107 
	   if(tmp) {
108 
  	      if(symbol->type != R_ANY_SYM && symbol->type != tmp->type)
 108 
  	      if(symbol->type != R_ANY_SYM && symbol->type != tmp->type)