macross/slinky/map.c
Michael Martin 693c15a2a8 Protoize.
2016-01-23 23:13:44 -08:00

100 lines
3.1 KiB
C

/*
* Copyright (c) 1987 Fujitsu
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*/
/*
map.c -- Routines to print out load map for the Slinky linker.
Chip Morningstar -- Lucasfilm Ltd.
26-March-1985
*/
#include "slinkyTypes.h"
#include "slinkyGlobals.h"
#include "map.h"
#include "debugPrint.h"
#include "link.h"
int
compareLoadMapEntries(loadMapTableEntryType *entry1, loadMapTableEntryType *entry2)
{
int result;
if ((result = strcmplc(entry1->symbol->symbolName, entry2->
symbol->symbolName)) != 0)
return(result);
else if (entry1->symbol->symbolValue < entry2->symbol->symbolValue)
return(-1);
else if (entry1->symbol->symbolValue > entry2->symbol->symbolValue)
return(1);
else
return(strcmplc(entry1->fileName, entry2->fileName));
}
void
outputLoadMap(void)
{
loadMapTableEntryType *loadMapTable;
loadMapTableEntryType *loadMapPtr;
objectFileListType *inputFileList;
int symbolCount;
int i;
loadMapPtr = loadMapTable = typeAllocBlock(loadMapTableEntryType,
totalSymbolCount);
for (inputFileList = objectFileList; inputFileList != NULL;
inputFileList = inputFileList->nextObjectFile) {
if (inputFileList->name != NULL) {
for (symbolCount=0; symbolCount < inputFileList->symbolCount;
symbolCount++) {
loadMapPtr->symbol = inputFileList->symbolTable[
symbolCount];
loadMapPtr->fileName = inputFileList->name;
loadMapPtr++;
}
}
}
qsort(loadMapTable, totalSymbolCount, sizeof(loadMapTableEntryType),
compareLoadMapEntries);
loadMapPtr = loadMapTable;
for (i=0; i<totalSymbolCount; i++) {
if (i!=0 && strcmplc(loadMapPtr->symbol->symbolName,
(loadMapPtr-1)->symbol->symbolName)==0 &&
loadMapPtr->symbol->symbolValue==(loadMapPtr-
1)->symbol->symbolValue && loadMapPtr->
symbol->symbolClass==(loadMapPtr-1)->symbol->
symbolClass) {
if (!leaveOffLoadFiles)
fprintf(mapFileOutput, ", %s", loadMapPtr->
fileName);
} else {
fprintf(mapFileOutput, "\n");
printLoadMapSymbol(loadMapPtr->symbol);
if (!leaveOffLoadFiles)
fprintf(mapFileOutput, " %s", loadMapPtr->
fileName);
}
loadMapPtr++;
}
fprintf(mapFileOutput, "\n");
}