Hello,
Consider the following code:
{$APPTYPE CONSOLE}
program _absolute;
type
TTABLE = record
count : DWORD;
item : array[0..9] of dword;
end;
type
TRECORD = record
Field1 : TTABLE;
Field2 : TTABLE;
end;
procedure TheProc(InoutParameter : TRECORD);
var
count1 : DWORD absolute InoutParameter.field1.count;
count2 : DWORD absolute InoutParameter.field2.count;
Parameter : TRECORD absolute InoutParameter;
var
OtherVar : DWORD;
begin
writeln('count1: ', count1);
writeln('count2: ', count2);
OtherVar := count1;
count2 := count1 * 3;
end;
var
TheVariable : TRECORD;
begin
TheVariable.Field1.count := 100;
TheVariable.Field2.count := 200;
TheProc(TheVariable);
readln;
end.
Set to watch the variables "count1", "count2" and "Parameter" in the procedure TheProc, FpDebug cannot display "count1" nor "count2" but displays 'Parameter". Please see attachment.
Either FPC is not emitting symbols for "count1" and "count2" or FpDebug is not interpreting the symbols for those 2 variables correctly.
Comments welcome.
FPC v3.2.2 & Lazarus v3.99 (2024-10-23)
Recent
