Changeset 3751


Ignore:
Timestamp:
Mar 4, 2012, 10:17:28 PM (13 years ago)
Author:
bird
Message:

weakld.c: Put exported names in a different symbol table since they need to be considered seperately. Fixed bugs reading IMPORTS from .def files.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified trunk/emx/src/emxomf/weakld.c

    r3668 r3751  
    240240         */
    241241        WLDSF_WKEXT     = 0x0005,
     242        /** Exported name.
     243         * This is used when the exported name differs from the internal one.
     244         * This name is not considered in the linking, only the internal one. */
     245        WLDSF_EXP_NM    = 0x0006,
    242246        /** @} */
    243247
    … …  
    266270        WLDSF_ALIAS     = 0x0800,
    267271
    268         /** Exported symbol.
    269          * This symbol is to be exported. */
    270         WLDSF_EXPORT    = 0x1000,
    271 
    272272        /** Internal flags which indicates that the symbol was exported in
    273273         * the definition file. This to select symbols which only appears in
    … …  
    277277
    278278        /** Internal flag to say that we've already aliased this weak
    279          * in the definition file.
    280          */
     279         * in the definition file. */
    281280        WLDSF_WEAKALIASDONE = 0x8000
    282281    }                   fFlags;
    … …  
    326325
    327326    /** Symbol this is an alias for.
    328      * Valid when WLDSF_ALIAS is set. */
     327     * Valid when WLDSF_ALIAS or WLDSF_EXP_NM are set. */
    329328    struct wldsym *     pAliasFor;
    330329
    331330    /** @group Export Attributes
    332      * Valid when WLDSF_EXPORT is set.
     331     * Valid when WLDSF_EXP_NM is set.
    333332     * @{ */
    334333    /** Export flags. */
    … …  
    386385    /** Global symbols. */
    387386    WLDSYMTAB           Global;
     387    /** Exported symbols. */
     388    WLDSYMTAB           Exported;
    388389
    389390    /** Module definition file. */
    … …  
    515516static void         symDumpReferers(PWLDSYM pSym);
    516517static void         symDbg(PWLDSYM pSym, const char *pszMsg);
    517 static PWLDSYM      symAdd(PWLD pWld, PWLDMOD pMod, unsigned fFlags, const char *pachName, int cchName, PWLDSYMACTION peAction);
     518static PWLDSYM      symAdd(PWLD pWld, PWLDMOD pMod, unsigned fFlags, const char *pachName, int cchName, PWLDSYMTAB pSymTab, PWLDSYMACTION peAction);
    518519static PWLDSYM      symAddImport(PWLD pWld, PWLDMOD pMod, int fLibSearch,
    519520                                 const char *pachName, int cchName,
    … …  
    16151616 * @param   pWld    Linker Instance.
    16161617 * @param   pszName Name of the symbol to find.
    1617  */
    1618 static PWLDSYM      symLookup(PWLD pWld, const char *pszName)
     1618 * @param   pSymTab The symbol table to look it up in.
     1619 */
     1620static PWLDSYM      symLookupCommon(PWLD pWld, const char *pszName, PWLDSYMTAB pSymTab)
    16191621{
    16201622    PWLDSYM     pSym;
    … …  
    16491651
    16501652    /* look it up */
    1651     for (pSym = pWld->Global.ap[uHash % WLDSYM_HASH_SIZE]; pSym; pSym = pSym->pHashNext)
     1653    for (pSym = pSymTab->ap[uHash % WLDSYM_HASH_SIZE]; pSym; pSym = pSym->pHashNext)
    16521654       if (SYM_EQUAL(pWld, pSym, pszName, fFlags, uHash, cchName))
    16531655           return pSym;
    … …  
    16571659
    16581660
     1661/**
     1662 * Find the symbol by the name pszName.
     1663 *
     1664 * @returns Pointer to matching symbol.
     1665 * @returns NULL if not found.
     1666 * @param   pWld    Linker Instance.
     1667 * @param   pszName Name of the symbol to find.
     1668 */
     1669static PWLDSYM      symLookup(PWLD pWld, const char *pszName)
     1670{
     1671    return symLookupCommon(pWld, pszName, &pWld->Global);
     1672}
     1673
     1674
     1675/**
     1676 * Find the export symbol by the name pszName.
     1677 *
     1678 * @returns Pointer to matching symbol.
     1679 * @returns NULL if not found.
     1680 * @param   pWld    Linker Instance.
     1681 * @param   pszName Name of the symbol to find.
     1682 */
     1683static PWLDSYM      symLookupExport(PWLD pWld, const char *pszName)
     1684{
     1685    return symLookupCommon(pWld, pszName, &pWld->Exported);
     1686}
    16591687
    16601688
    … …  
    18641892        case WLDSF_UNDEF:   psz += sprintf(psz, "UNDEF"); break;
    18651893        case WLDSF_WKEXT:   psz += sprintf(psz, "WKEXT"); break;
     1894        case WLDSF_EXP_NM:  psz += sprintf(psz, "EXPORT"); break;
    18661895        default:            psz += sprintf(psz, "!!!internal error!!! "); asm("int $3"); break;
    18671896    }
    … …  
    18701899    if (pSym->fFlags & WLDSF_ALIAS)
    18711900        psz += sprintf(psz, " ALIAS");
    1872     if (pSym->fFlags & WLDSF_EXPORT)
    1873         psz += sprintf(psz, " EXPORT");
    18741901    if (pSym->fFlags & WLDSF_UNCERTAIN)
    18751902        psz += sprintf(psz, " UNCERTAIN");
    … …  
    19331960 * @param   fFlags      Symbol flags.
    19341961 *                      All the flags in WLDSF_TYPEMASK, WLDSF_WEAK and WLDSF_LIBSEARCH.
    1935  *                      WLDSF_EXPORT isn't handled and should not be defined.
    19361962 *                      WLDSF_ALIAS and WLDSF_UNCERTAIN is ignored as they have no
    19371963 *                      sideeffects when resolving symbols.
    19381964 * @param   pachName    Pointer to symbol name.
    19391965 * @param   cchName     Length to add, use -1 if zeroterminated.
     1966 * @param   pSymTab     The symbol table to add it to.
    19401967 * @param   pflAction   What we actually did.
    19411968 *                      WLDSA_NEW, WLDSA_UP, WLDSA_OLD, WLDSA_ERR.
    … …  
    19721999 *
    19732000 */
    1974 static PWLDSYM      symAdd(PWLD pWld, PWLDMOD pMod, unsigned fFlags, const char *pachName, int cchName, PWLDSYMACTION peAction)
     2001static PWLDSYM      symAdd(PWLD pWld, PWLDMOD pMod, unsigned fFlags, const char *pachName, int cchName,
     2002                           PWLDSYMTAB pSymTab, PWLDSYMACTION peAction)
    19752003{
    19762004    PWLDSYM     pSym;                   /* The symbol. */
    … …  
    20092037
    20102038    /* search for existing symbol  */
    2011     for (pSym = pWld->Global.ap[uHash % WLDSYM_HASH_SIZE]; pSym; pSym = pSym->pHashNext)
     2039    for (pSym = pSymTab->ap[uHash % WLDSYM_HASH_SIZE]; pSym; pSym = pSym->pHashNext)
    20122040        if (SYM_EQUAL(pWld, pSym, pszName, fFlags, uHash, cchName))
    20132041            break;
    … …  
    20292057            WLDINFO(pWld, ("Weak symbol '%s'.", pSym->pszWeakName));
    20302058        }
    2031         pSym->pHashNext = pWld->Global.ap[uHash % WLDSYM_HASH_SIZE];
    2032         pWld->Global.ap[uHash % WLDSYM_HASH_SIZE] = pSym;
     2059        pSym->pHashNext = pSymTab->ap[uHash % WLDSYM_HASH_SIZE];
     2060        pSymTab->ap[uHash % WLDSYM_HASH_SIZE] = pSym;
    20332061        if (peAction) *peAction = WLDSA_NEW;
    20342062        WLDDBG2(("symAdd: New symbol '%s'", pSym->pszName));
    … …  
    20452073         *      5. adding a WEAK PUBLIC or WEAK COMM where a PUBLIC or COMM exists.
    20462074         *      6. adding a WEAK UNDEF where WEAK UNDEF exists.
     2075         *      7. adding a EXP_NM that already exists.
    20472076         */
    20482077        if ( (     /* 1 */
    … …  
    20652094                ((fFlags & (WLDSF_TYPEMASK | WLDSF_WEAK)) == (WLDSF_UNDEF | WLDSF_WEAK))
    20662095             && ((pSym->fFlags & (WLDSF_TYPEMASK | WLDSF_WEAK)) == (WLDSF_UNDEF | WLDSF_WEAK))
     2096            ) || ( /* 7 */
     2097                ((fFlags & WLDSF_TYPEMASK) == WLDSF_EXP_NM)
     2098             && ((pSym->fFlags & WLDSF_TYPEMASK) == WLDSF_EXP_NM)
    20672099            ))
    20682100        {
    … …  
    22152247
    22162248    pSym = symAdd(pWld, pMod, WLDSF_IMPORT | (fLibSearch ? WLDSF_LIBSEARCH : 0),
    2217                   pachName, cchName, &eAction);
     2249                  pachName, cchName, &pWld->Global, &eAction);
    22182250    if (!pSym)
    22192251        return NULL;
    … …  
    22442276        case WLDSA_NEW:
    22452277        case WLDSA_UP:
    2246             pSym->u.import.pszImpMod = pszImpMod;
     2278            pSym->u.import.pszImpMod  = pszImpMod;
    22472279            pSym->u.import.pszImpName = pszImpName;
    2248             pSym->u.import.uImpOrd   = uOrdinal;
     2280            pSym->u.import.uImpOrd    = uOrdinal;
    22492281            break;
    22502282
    … …  
    23232355                            unsigned uOrdinal)
    23242356{
    2325     PWLDSYM         pSym;
     2357    PWLDSYM         pSymExp;
     2358    PWLDSYM         pSymInt;
    23262359
    23272360    /* set default name */
    … …  
    23312364        cchIntName = cchExpName;
    23322365    }
     2366
     2367    /*
     2368     * Add the internal name.
     2369     */
     2370    pSymInt = symAdd(pWld, pMod, WLDSF_UNDEF | (fLibSearch ? WLDSF_LIBSEARCH : 0),
     2371                     pachIntName, cchIntName, &pWld->Global, NULL);
     2372    if (!pSymInt)
     2373        return NULL;
    23332374
    23342375    /*
    23352376     * Add external name.
    23362377     */
    2337     pSym = symAdd(pWld, pMod, WLDSF_UNDEF | (fLibSearch ? WLDSF_LIBSEARCH : 0),
    2338                   pachExpName, cchExpName, NULL);
    2339     if (!pSym)
     2378    pSymExp = symAdd(pWld, pMod, WLDSF_EXP_NM | (fLibSearch ? WLDSF_LIBSEARCH : 0),
     2379                     pachExpName, cchExpName, &pWld->Exported, NULL);
     2380    if (!pSymExp)
    23402381        return NULL;
    23412382
    … …  
    23432384     * Is the exported symbol already exported?
    23442385     */
    2345     if (pSym->fFlags & WLDSF_EXPORT)
    2346     {
    2347         if (    (pSym->fExport & WLDSEF_DEF_FILE)
     2386    if (pSymExp->pAliasFor)
     2387    {
     2388        if (pSymExp->pAliasFor != pSymInt)
     2389            modWarn(pMod, "Export '%s' (int '%s') is already defined with a different resolution '%s'.",
     2390                    pSymExp->pszName, pSymInt->pszName, pSymExp->pAliasFor->pszName);
     2391        else if (    (pSymExp->fExport & WLDSEF_DEF_FILE)
     2392                 &&  (fExport & WLDSEF_DEF_FILE))
     2393            modWarn(pMod, "Export '%s' (int '%s') is already defined.", pSymExp->pszName, pSymInt->pszName);
     2394       
     2395        if (    !(pSymExp->fExport & WLDSEF_DEF_FILE)
    23482396            &&  (fExport & WLDSEF_DEF_FILE))
    2349             modWarn(pMod, "Export '%s' is already defined.", pSym->pszName);
    2350         if (    !(pSym->fExport & WLDSEF_DEF_FILE)
    2351             &&  (fExport & WLDSEF_DEF_FILE))
    2352             pSym->fExport = fExport;
    2353     }
    2354     else
    2355     {
    2356         PWLDSYM     pSymAlias;
    2357 
    2358         pSym->fFlags |= WLDSF_EXPORT;
    2359 
    2360         /*
    2361          * Add internal name.
    2362          */
    2363         pSymAlias = symAdd(pWld, pMod, WLDSF_UNDEF | (fLibSearch ? WLDSF_LIBSEARCH : 0),
    2364                            pachIntName, cchIntName, NULL);
    2365         if (!pSymAlias)
    2366             return NULL;
    2367         if (pSymAlias != pSym && (pSym->fFlags & WLDSF_ALIAS) && pSym->pAliasFor != pSymAlias)
    2368         {
    2369             modErr(pMod, "Can't export an alias!.");
    2370             pSym = NULL;
    2371         }
    2372         else
    2373         {
    2374             if (pSym != pSymAlias)
    2375             {
    2376                 pSym->fFlags |= WLDSF_ALIAS;
    2377                 pSym->fFlags &= ~WLDSF_UNDEF;
    2378                 pSym->pAliasFor = pSymAlias;
    2379             }
    2380             pSym->fExport   = fExport;
    2381             pSym->cExpWords = cExpWords;
    2382             pSym->uExpOrd   = uOrdinal;
    2383         }
    2384     }
    2385 
    2386     return pSym;
     2397            pSymExp->fExport = fExport;
     2398        return pSymExp;
     2399    }
     2400   
     2401    pSymExp->pAliasFor = pSymInt;
     2402    pSymExp->fExport   = fExport;
     2403    pSymExp->cExpWords = cExpWords;
     2404    pSymExp->uExpOrd   = uOrdinal;
     2405
     2406    return pSymExp;
    23872407}
    23882408
    … …  
    24082428
    24092429    pSym = symAdd(pWld, pMod, WLDSF_PUBLIC | (fLibSearch ? WLDSF_LIBSEARCH : 0),
    2410                   pachName, cchName, NULL);
     2430                  pachName, cchName, &pWld->Global, NULL);
    24112431    if (!pSym)
    24122432        return NULL;
    … …  
    24322452
    24332453    pSym = symAdd(pWld, pMod, WLDSF_UNDEF | WLDSF_UNCERTAIN | (fLibSearch ? WLDSF_LIBSEARCH : 0),
    2434                   pachName, cchName, NULL);
     2454                  pachName, cchName, &pWld->Global, NULL);
    24352455    if (!pSym)
    24362456        return NULL;
    … …  
    24612481     */
    24622482    pSym = symAdd(pWld, pMod, WLDSF_PUBLIC | WLDSF_ALIAS | (fLibSearch ? WLDSF_LIBSEARCH : 0),
    2463                   pachAliasName, cchAliasName, &eAction);
     2483                  pachAliasName, cchAliasName, &pWld->Global, &eAction);
    24642484    if (!pSym)
    24652485        return NULL;
    … …  
    24722492            {
    24732493                PWLDSYM pSym2 = symAdd(pWld, pMod, WLDSF_UNDEF | (fLibSearch ? WLDSF_LIBSEARCH : 0),
    2474                                        pachName, cchName, NULL);
     2494                                       pachName, cchName, &pWld->Global, NULL);
    24752495                if (!pSym2)
    24762496                    return NULL;
    … …  
    25232543     */
    25242544    pSym = symAdd(pWld, pMod, WLDSF_COMM | (fLibSearch ? WLDSF_LIBSEARCH : 0),
    2525                   pachName, cchName, &eAction);
     2545                  pachName, cchName, &pWld->Global, &eAction);
    25262546    if (!pSym)
    25272547        return NULL;
    … …  
    25522572
    25532573    return pSym;
     2574}
     2575
     2576
     2577/**
     2578 * Destroys a symbol table, freeing all symbols
     2579 *
     2580 * @param   pSymTab     The symbol table to destroy.
     2581 */
     2582static void symDestroyTab(PWLDSYMTAB pSymTab)
     2583{
     2584    unsigned        uHash;
     2585    for (uHash = 0; uHash < sizeof(pSymTab->ap) / sizeof(pSymTab->ap[0]); uHash++)
     2586    {
     2587        PWLDSYM     pSym = pSymTab->ap[uHash];
     2588        while (pSym)
     2589        {
     2590            PWLDSYM pNext = pSym->pHashNext;
     2591            if (pSym->paReferers)
     2592                free(pSym->paReferers);
     2593            free(pSym);
     2594            pSym = pNext;
     2595        }
     2596        pSymTab->ap[uHash] = NULL;
     2597    }
    25542598}
    25552599
    … …  
    30223066    PWLDMOD     pObj;
    30233067    PWLDLIB     pLib;
    3024     unsigned    uHash;
    30253068
    30263069    if (!pWld)
    … …  
    30553098
    30563099    /* free symbols */
    3057     for (uHash = 0; uHash < sizeof(pWld->Global.ap) / sizeof(pWld->Global.ap[0]); uHash++)
    3058     {
    3059         PWLDSYM     pSym = pWld->Global.ap[uHash];
    3060         while (pSym)
    3061         {
    3062             PWLDSYM pNext = pSym->pHashNext;
    3063             if (pSym->paReferers)
    3064                 free(pSym->paReferers);
    3065             free(pSym);
    3066             pSym = pNext;
    3067         }
    3068     }
     3100    symDestroyTab(&pWld->Global);
     3101    symDestroyTab(&pWld->Exported);
    30693102
    30703103    /* members and finally the instance structure. */
    … …  
    32753308                uOrdinal = pStmt->import.ordinal;
    32763309            pSym = symAddImport(pParam->pWld, pParam->pMod, 0,
     3310                                pStmt->import.internalname[0] ? pStmt->import.internalname : pStmt->import.entryname, -1,
    32773311                                pStmt->import.entryname[0] ? pStmt->import.entryname : pStmt->import.internalname, -1,
    3278                                 pStmt->import.internalname, -1,
    32793312                                pStmt->import.modulename, -1,
    32803313                                uOrdinal);
    … …  
    39563989            PWLDSYM     pSymExp;
    39573990
    3958             pSymExp = symLookup(pParam->pWld, pStmt->export.entryname);
     3991            pSymExp = symLookupExport(pParam->pWld, pStmt->export.entryname);
    39593992            if (pStmt->export.internalname[0])
    39603993                pSymInt = symLookup(pParam->pWld, pStmt->export.internalname);
    … …  
    41994232                        {
    42004233                            if (0)//pWld->fFlags & WLDC_LINKER_WLINK)
    4201                                 rc = symEnum(pWld, &pWld->Global,
    4202                                              WLDSF_EXPORT | WLDSF_EXPORT_DEF | WLDSF_WEAK, WLDSF_EXPORT | WLDSF_EXPORT_DEF | WLDSF_WEAK | WLDSF_WEAKALIASDONE,
     4234                                rc = symEnum(pWld, &pWld->Exported,
     4235                                             WLDSF_EXPORT_DEF | WLDSF_WEAK, WLDSF_EXPORT_DEF | WLDSF_WEAK | WLDSF_WEAKALIASDONE,
    42034236                                             wldGenerateDefExportEnum, &param);
    42044237                            else
    4205                                 rc = symEnum(pWld, &pWld->Global,
    4206                                              WLDSF_EXPORT | WLDSF_WEAK, WLDSF_EXPORT | WLDSF_WEAK | WLDSF_EXPORT_DEF | WLDSF_WEAKALIASDONE,
     4238                                rc = symEnum(pWld, &pWld->Exported,
     4239                                             WLDSF_WEAK, WLDSF_WEAK | WLDSF_EXPORT_DEF | WLDSF_WEAKALIASDONE,
    42074240                                             wldGenerateDefExportEnum, &param);
    42084241                        }
Note: See TracChangeset for help on using the changeset viewer.