Commit 5bfac78f authored by rdubner's avatar rdubner
Browse files

Change cobst to handle some additional Windows-side underscore prefixes

parent 8a022e37
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
<LocalDebuggerCommandArguments>C:\projects\1-symas\cbl-gdb\samples\optfde01\optfde01</LocalDebuggerCommandArguments>
<LocalDebuggerCommandArguments>C:\projects\1-symas\cbl-gdb\samples\ref_test_3\rtest</LocalDebuggerCommandArguments>
<DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
<LocalDebuggerCommandArguments>C:\projects\1-symas\cbl-gdb\samples\optfde01\optfde01</LocalDebuggerCommandArguments>
<LocalDebuggerCommandArguments>C:\projects\1-symas\cbl-gdb\samples\ref_test_3\rtest</LocalDebuggerCommandArguments>
<DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
<LocalDebuggerCommandArguments>C:\projects\1-symas\cbl-gdb\samples\optfde01\optfde01</LocalDebuggerCommandArguments>
<LocalDebuggerCommandArguments>C:\projects\1-symas\cbl-gdb\samples\ref_test_3\rtest</LocalDebuggerCommandArguments>
<DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
<LocalDebuggerCommandArguments>C:\projects\1-symas\cbl-gdb\samples\optfde01\optfde01</LocalDebuggerCommandArguments>
<LocalDebuggerCommandArguments>C:\projects\1-symas\cbl-gdb\samples\ref_test_3\rtest</LocalDebuggerCommandArguments>
<DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>
</PropertyGroup>
</Project>
\ No newline at end of file
......@@ -118,15 +118,16 @@ GAS_SYMBOLS::GetSymbolsFromFile(const string &source, const string &scope, ifstr
gs.gas_section = sm[2];
gs.line_number = stoi(sm[1]);
gs.gas_value = stoll(sm[3],NULL,16);
gs.gas_symbol = sm[4];
gs.undecorated_symbol = sm[4];
string stripped_symbol = sm[4];
// When compiled in the Windows environment, symbols get prefixed with
// an underscore.
if( gs.undecorated_symbol.length() > 1 AND gs.undecorated_symbol[0] EQ '_' ) {
if( stripped_symbol.length() > 1 AND stripped_symbol[0] EQ '_' ) {
// Get rid of the leading underscore
gs.undecorated_symbol = gs.undecorated_symbol.substr(1);
stripped_symbol = stripped_symbol.substr(1);
}
gs.gas_symbol = stripped_symbol;
gs.undecorated_symbol = stripped_symbol;
// Some f_ and b_ symbols, typically ones that are local to COBOL PROGRAM-ID routines,
// get decorated with .nnnn suffixes. We need to be able to find them without their
......@@ -826,6 +827,7 @@ DATA_DESCRIPTIONS::ProcessDataStorage(ifstream &ifs,const string &source)
if(ifs.eof()) {
break;
}
current_line_number += 1;
if(inpic) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment