mirror of
https://github.com/compiler-explorer/compiler-explorer.git
synced 2025-12-27 10:33:59 -05:00
bc6757ae94
* Changes to allow Program (vs Unit) in Object Pascal * add possibility of dpr * more flexibility with pascal filenames * lintfixes * i have no idea what im doing * apply changes to pascal-win * pascal fixes * pascal projectfile changes * work in progress * bugfixes * bla * bugfixes * mostly working Co-authored-by: paul mcgee <paul.mcgee.8@bigpond.com> Co-authored-by: Paul McGee <paulmcgee1969@gmail.com>
269 lines
12 KiB
JavaScript
269 lines
12 KiB
JavaScript
// Copyright (c) 2017, Compiler Explorer Authors
|
|
// All rights reserved.
|
|
//
|
|
// Redistribution and use in source and binary forms, with or without
|
|
// modification, are permitted provided that the following conditions are met:
|
|
//
|
|
// * Redistributions of source code must retain the above copyright notice,
|
|
// this list of conditions and the following disclaimer.
|
|
// * Redistributions in binary form must reproduce the above copyright
|
|
// notice, this list of conditions and the following disclaimer in the
|
|
// documentation and/or other materials provided with the distribution.
|
|
//
|
|
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
|
|
// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
// POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
import { MapFileReaderDelphi } from '../lib/map-file-delphi';
|
|
import { MapFileReaderVS } from '../lib/map-file-vs';
|
|
|
|
describe('Map setup', function () {
|
|
it('VS-map preferred load address', function () {
|
|
const reader = new MapFileReaderVS();
|
|
reader.preferredLoadAddress.should.equal(0x400000, 'default load address');
|
|
|
|
reader.tryReadingPreferredAddress(' Preferred load address is 00400000');
|
|
reader.preferredLoadAddress.should.equal(0x400000);
|
|
|
|
reader.tryReadingPreferredAddress(' Preferred load address is 00410000');
|
|
reader.preferredLoadAddress.should.equal(0x410000);
|
|
});
|
|
});
|
|
|
|
describe('Code Segments', function () {
|
|
it('One normal Delphi-Map segment', function () {
|
|
const reader = new MapFileReaderDelphi();
|
|
reader.tryReadingCodeSegmentInfo(' 0001:00002838 00000080 C=CODE S=.text G=(none) M=output ACBP=A9');
|
|
reader.segments.length.should.equal(1);
|
|
|
|
let info = reader.getSegmentInfoByStartingAddress('0001', 0x2838);
|
|
info.unitName.should.equal('output.pas');
|
|
|
|
info = reader.getSegmentInfoByStartingAddress(false, reader.getSegmentOffset('0001') + 0x2838);
|
|
info.unitName.should.equal('output.pas');
|
|
|
|
info = reader.getSegmentInfoByStartingAddress('0001', '2838');
|
|
info.should.equal(false, 'Address should not be a Start for any segment');
|
|
|
|
info = reader.getSegmentInfoAddressIsIn('0001', 0x2838 + 0x10);
|
|
info.unitName.should.equal('output.pas');
|
|
|
|
info = reader.getSegmentInfoAddressIsIn(false, reader.getSegmentOffset('0001') + 0x2838 + 0x10);
|
|
info.unitName.should.equal('output.pas');
|
|
|
|
info = reader.getSegmentInfoAddressIsIn('0001', reader.getSegmentOffset('0001') + 0x2838 + 0x80 + 1);
|
|
info.should.equal(false, 'Address should not be in any segment');
|
|
|
|
info = reader.getSegmentInfoByUnitName('output.pas');
|
|
info.unitName.should.equal('output.pas');
|
|
info.addressInt.should.equal(reader.getSegmentOffset('0001') + 0x2838);
|
|
});
|
|
|
|
it('Not include this segment', function () {
|
|
const reader = new MapFileReaderDelphi();
|
|
reader.tryReadingCodeSegmentInfo(' 0002:000000B0 00000023 C=ICODE S=.itext G=(none) M=output ACBP=A9');
|
|
reader.segments.length.should.equal(0);
|
|
});
|
|
|
|
it('ICode/IText segments', function () {
|
|
const reader = new MapFileReaderDelphi();
|
|
reader.tryReadingCodeSegmentInfo(' 0002:000000B0 00000023 C=ICODE S=.itext G=(none) M=output ACBP=A9');
|
|
reader.isegments.length.should.equal(1);
|
|
});
|
|
|
|
it('One normal VS-Map segment', function () {
|
|
const reader = new MapFileReaderVS();
|
|
reader.tryReadingCodeSegmentInfo(' 0001:00002838 00000080H .text$mn CODE');
|
|
reader.segments.length.should.equal(1);
|
|
|
|
let info = reader.getSegmentInfoByStartingAddress('0001', 0x2838);
|
|
info.addressInt.should.equal(reader.getSegmentOffset('0001') + 0x2838);
|
|
|
|
info = reader.getSegmentInfoByStartingAddress(false, 0x403838);
|
|
info.addressInt.should.equal(reader.getSegmentOffset('0001') + 0x2838);
|
|
|
|
info = reader.getSegmentInfoAddressIsIn(false, reader.getSegmentOffset('0001') + 0x2838 + 0x10);
|
|
info.addressInt.should.equal(reader.getSegmentOffset('0001') + 0x2838);
|
|
|
|
info = reader.getSegmentInfoAddressIsIn('0001', reader.getSegmentOffset('0001') + 0x2837);
|
|
info.should.equal(false);
|
|
});
|
|
|
|
it('Repair VS-Map code segment info', function () {
|
|
const reader = new MapFileReaderVS();
|
|
reader.tryReadingCodeSegmentInfo(' 0002:00000000 00004c73H .text$mn CODE');
|
|
reader.tryReadingNamedAddress(' 0002:000007f0 _main 004117f0 f ConsoleApplication1.obj');
|
|
|
|
let info = reader.getSegmentInfoByStartingAddress('0002', 0);
|
|
info.unitName.should.equal('ConsoleApplication1.obj');
|
|
|
|
reader.getSegmentOffset('0002').should.equal(0x411000);
|
|
|
|
info = reader.getSegmentInfoByStartingAddress(false, 0x411000);
|
|
info.unitName.should.equal('ConsoleApplication1.obj');
|
|
});
|
|
});
|
|
|
|
describe('Symbol info', function () {
|
|
it('Delphi-Map symbol test', function () {
|
|
const reader = new MapFileReaderDelphi();
|
|
reader.tryReadingNamedAddress(' 0001:00002838 Square');
|
|
reader.namedAddresses.length.should.equal(1);
|
|
|
|
let info = reader.getSymbolAt('0001', 0x2838);
|
|
info.should.not.equal(false, 'Symbol Square should have been returned 1');
|
|
info.displayName.should.equal('Square');
|
|
|
|
info = reader.getSymbolAt(false, reader.getSegmentOffset('0001') + 0x2838);
|
|
info.should.not.equal(false, 'Symbol Square should have been returned 2');
|
|
info.displayName.should.equal('Square');
|
|
});
|
|
|
|
it('Delphi-Map D2009 symbol test', function () {
|
|
const reader = new MapFileReaderDelphi();
|
|
reader.tryReadingNamedAddress(' 0001:00002C4C output.MaxArray');
|
|
reader.namedAddresses.length.should.equal(1);
|
|
|
|
let info = reader.getSymbolAt('0001', 0x2C4C);
|
|
info.should.not.equal(false, 'Symbol MaxArray should have been returned');
|
|
info.displayName.should.equal('output.MaxArray');
|
|
|
|
info = reader.getSymbolAt(false, reader.getSegmentOffset('0001') + 0x2C4C);
|
|
info.should.not.equal(false, 'Symbol MaxArray should have been returned');
|
|
info.displayName.should.equal('output.MaxArray');
|
|
});
|
|
|
|
it('VS-Map symbol test', function () {
|
|
const reader = new MapFileReaderVS();
|
|
reader.tryReadingNamedAddress(' 0002:000006b0 ??$__vcrt_va_start_verify_argument_type@QBD@@YAXXZ 004116b0 f i ConsoleApplication1.obj');
|
|
reader.namedAddresses.length.should.equal(1);
|
|
|
|
let info = reader.getSymbolAt('0002', 0x6B0);
|
|
info.should.not.equal(false, 'Symbol start_verify_argument should have been returned 1');
|
|
info.displayName.should.equal('??$__vcrt_va_start_verify_argument_type@QBD@@YAXXZ');
|
|
|
|
info = reader.getSymbolAt(false, 0x4116B0);
|
|
info.should.not.equal(false, 'Symbol start_verify_argument should have been returned 2');
|
|
info.displayName.should.equal('??$__vcrt_va_start_verify_argument_type@QBD@@YAXXZ');
|
|
});
|
|
|
|
it('Delphi-Map Duplication prevention', function () {
|
|
const reader = new MapFileReaderDelphi();
|
|
reader.tryReadingNamedAddress(' 0001:00002838 Square');
|
|
reader.namedAddresses.length.should.equal(1);
|
|
|
|
reader.tryReadingNamedAddress(' 0001:00002838 Square');
|
|
reader.namedAddresses.length.should.equal(1);
|
|
});
|
|
});
|
|
|
|
describe('Delphi-Map Line number info', function () {
|
|
it('No line', function () {
|
|
const reader = new MapFileReaderDelphi();
|
|
reader.tryReadingLineNumbers('').should.equal(false);
|
|
});
|
|
|
|
it('One line', function () {
|
|
const reader = new MapFileReaderDelphi();
|
|
reader.tryReadingLineNumbers(' 17 0001:000028A4').should.equal(true);
|
|
|
|
let lineInfo = reader.getLineInfoByAddress('0001', 0x28A4);
|
|
lineInfo.lineNumber.should.equal(17);
|
|
|
|
lineInfo = reader.getLineInfoByAddress(false, reader.getSegmentOffset('0001') + 0x28A4);
|
|
lineInfo.lineNumber.should.equal(17);
|
|
});
|
|
|
|
it('Multiple lines', function () {
|
|
const reader = new MapFileReaderDelphi();
|
|
reader.tryReadingLineNumbers(' 12 0001:00002838 13 0001:0000283B 14 0001:00002854 15 0001:00002858').should.equal(true);
|
|
|
|
let lineInfo = reader.getLineInfoByAddress('0001', 0x2838);
|
|
lineInfo.lineNumber.should.equal(12);
|
|
|
|
lineInfo = reader.getLineInfoByAddress('0001', 0x2858);
|
|
lineInfo.lineNumber.should.equal(15);
|
|
|
|
lineInfo = reader.getLineInfoByAddress('0001', 0x2854);
|
|
lineInfo.lineNumber.should.equal(14);
|
|
|
|
lineInfo = reader.getLineInfoByAddress('0001', 0x283B);
|
|
lineInfo.lineNumber.should.equal(13);
|
|
});
|
|
});
|
|
|
|
describe('Delphi-Map load test', function () {
|
|
it('Minimal map', function () {
|
|
const reader = new MapFileReaderDelphi('test/maps/minimal-delphi.map');
|
|
reader.run();
|
|
|
|
reader.segments.length.should.equal(4);
|
|
reader.lineNumbers.length.should.equal(7);
|
|
reader.namedAddresses.length.should.equal(11);
|
|
|
|
let info = reader.getSegmentInfoByUnitName('output.pas');
|
|
info.addressInt.should.equal(reader.getSegmentOffset('0001') + 0x2C4C);
|
|
|
|
info = reader.getICodeSegmentInfoByUnitName('output.pas');
|
|
info.segment.should.equal('0002');
|
|
info.addressWithoutOffset.should.equal(0xB0);
|
|
info.addressInt.should.equal(0x4040B0);
|
|
});
|
|
});
|
|
|
|
describe('VS-Map load test', function () {
|
|
it('Minimal map', function () {
|
|
const reader = new MapFileReaderVS('test/maps/minimal-vs15.map');
|
|
reader.run();
|
|
|
|
reader.segments.length.should.equal(1);
|
|
reader.getSegmentInfoByUnitName('ConsoleApplication1.obj').addressInt.should.equal(0x411000);
|
|
|
|
reader.getSegmentOffset('0001').should.equal(0x401000, 'offset 1');
|
|
reader.getSegmentOffset('0002').should.equal(0x411000, 'offset 2');
|
|
reader.getSegmentOffset('0003').should.equal(0x416000, 'offset 3');
|
|
reader.getSegmentOffset('0004').should.equal(0x419000, 'offset 4');
|
|
reader.getSegmentOffset('0005').should.equal(0x41A000, 'offset 5');
|
|
reader.getSegmentOffset('0007').should.equal(0x41C000, 'offset 7');
|
|
});
|
|
});
|
|
|
|
describe('VS-Map address checking', function () {
|
|
it('Normal defined spaces', function () {
|
|
const reader = new MapFileReaderVS();
|
|
|
|
const mainAddresses = [
|
|
{startAddress: 1, startAddressHex: '00000001', endAddress: 10, endAddressHex: '0000000A'},
|
|
{startAddress: 16, startAddressHex: '00000010', endAddress: 255, endAddressHex: '000000FF'},
|
|
];
|
|
|
|
reader.isWithinAddressSpace(mainAddresses, 3, 5).should.equal(true);
|
|
reader.isWithinAddressSpace(mainAddresses, 10, 5).should.equal(false);
|
|
reader.isWithinAddressSpace(mainAddresses, 11, 4).should.equal(false);
|
|
reader.isWithinAddressSpace(mainAddresses, 16, 10).should.equal(true);
|
|
reader.isWithinAddressSpace(mainAddresses, 32, 10).should.equal(true);
|
|
});
|
|
|
|
it('Overlapping regions', function () {
|
|
const reader = new MapFileReaderVS();
|
|
|
|
const mainAddresses = [
|
|
{startAddress: 1, startAddressHex: '00000001', endAddress: 10, endAddressHex: '0000000A'},
|
|
{startAddress: 16, startAddressHex: '00000010', endAddress: 255, endAddressHex: '000000FF'},
|
|
];
|
|
|
|
reader.isWithinAddressSpace(mainAddresses, 0, 5).should.equal(true);
|
|
reader.isWithinAddressSpace(mainAddresses, 11, 5).should.equal(true);
|
|
reader.isWithinAddressSpace(mainAddresses, 11, 6).should.equal(true);
|
|
reader.isWithinAddressSpace(mainAddresses, 11, 258).should.equal(true);
|
|
});
|
|
});
|