Commit f4cfe0b3 authored by rdubner's avatar rdubner
Browse files

Pick up correct offset for f_ referenced level 66 RENAMES variables

parent 4ca767f3
<?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:\Users\Bob\repos\samples-cbl-gdb\optfde01\optfde01</LocalDebuggerCommandArguments>
<LocalDebuggerCommandArguments>c:\Users\Bob\repos\samples-cbl-gdb\ref_test_1\rtest</LocalDebuggerCommandArguments>
<DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
<LocalDebuggerCommandArguments>c:\Users\Bob\repos\samples-cbl-gdb\optfde01\optfde01</LocalDebuggerCommandArguments>
<LocalDebuggerCommandArguments>c:\Users\Bob\repos\samples-cbl-gdb\ref_test_1\rtest</LocalDebuggerCommandArguments>
<DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
<LocalDebuggerCommandArguments>c:\Users\Bob\repos\samples-cbl-gdb\optfde01\optfde01</LocalDebuggerCommandArguments>
<LocalDebuggerCommandArguments>c:\Users\Bob\repos\samples-cbl-gdb\ref_test_1\rtest</LocalDebuggerCommandArguments>
<DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
<LocalDebuggerCommandArguments>c:\Users\Bob\repos\samples-cbl-gdb\optfde01\optfde01</LocalDebuggerCommandArguments>
<LocalDebuggerCommandArguments>c:\Users\Bob\repos\samples-cbl-gdb\ref_test_1\rtest</LocalDebuggerCommandArguments>
<DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>
</PropertyGroup>
</Project>
\ No newline at end of file
......@@ -1141,6 +1141,16 @@ VARIABLE_TREE::Consolidive(VAR_NODE *node,const DATA_DESCRIPTIONS &data_descript
// If they're both on, go with the one from the listing file
node->best_picture = node->picture;
}
if( node->level EQ 66 ) {
// The .cbl.lst file doesn't have good offset information
// for 66 REDEFINES. But the symbol *might* have good information,
// which it gets from the f_ field_attribute record when the 66
// variable is referenced in the code.
node->offset = symbol.field_data_offset ;
}
node->base_symbol = symbol.c_symbol ;
node->attr_type = symbol.attr_type ;
......
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