Changeset 6a6dccc in git for Singular/sing_dld.cc


Ignore:
Timestamp:
Jul 2, 1997, 6:44:17 PM (27 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
b182edc0a08ed317e024336ca2822ed7b57bf61b
Parents:
52810913e91e34d44e466f459d28b0a87d286a5a
Message:
* hannes: cleanup in some texts
   polys.h polys0.cc
   modification to dld code
   iparith.cc ipassign.cc ipid.cc ipshell.h sing_dld.cc tesths.cc sing_dld.h


git-svn-id: file:///usr/local/Singular/svn/trunk@483 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/sing_dld.cc

    r528109 r6a6dccc  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: sing_dld.cc,v 1.3 1997-04-02 15:07:51 Singular Exp $ */
     4/* $Id: sing_dld.cc,v 1.4 1997-07-02 16:44:16 Singular Exp $ */
    55
    66/*
    … …  
    4242#endif
    4343
    44 BOOLEAN dlLoad(const char * fn, const char *pn, proc1 &p)
     44BOOLEAN dlLoad(const char * fn, const char *pn)
    4545{
     46  typedef void (*PROC)(void);
     47  PROC p1;
    4648  #ifdef linux
    4749  #ifdef __ELF__
    … …  
    5052  if (h!=NULL)
    5153  {
    52     p1=(proc1)dlsym(h,pn);
     54    p1=(PROC)dlsym(h,pn);
    5355    char *s;
    5456    if((s=dlerror())==NULL)
    5557    {
     58      p1();
    5659      return FALSE;
    5760    }
    … …  
    7881    if (dld_function_executable_p(pn))
    7982    {
    80       p = (proc1) dld_get_func (pn);
     83      p1 = (PROC) dld_get_func (pn);
     84      p1();
    8185      return FALSE;
    8286    }
    … …  
    9296  shl_t hdl=shl_load(fn,
    9397          BIND_IMMEDIATE|BIND_NOSTART|BIND_NONFATAL|BIND_VERBOSE,0L);
    94   int i=shl_findsym(&hdl,pn,TYPE_PROCEDURE,&p);
     98  int i=shl_findsym(&hdl,pn,TYPE_PROCEDURE,&p1);
    9599  if (i==0)
     100  {
     101    p1();
    96102    return FALSE;
     103  } 
    97104  else
    98105  {
Note: See TracChangeset for help on using the changeset viewer.