Skip to content

FpDebug fails on negative enum value

  • Lazarus/FPC Version: 4.99 Win 10 64 bit / fpc 3.2.3

Watching f1 fails.

program Project1;
{$PackEnum 1}
type
  Tfoo = (f1=-1, f2=255);
var
  a,b: TFoo;
begin
  a:= f1;
  b:= f2;
end.

  Stack trace:
  $0000000100DF3863  InitMap,  line 3250 of fpdbgdwarf.pas
  $0000000100E5DF61  ArrayToResData,  line 381 of fpwatchresultdata.pas
  $0000000100E61AC1  WriteWatchResultMemDump,  line 1031 of fpwatchresultdata.pas
  $00000001010720D9  Execute,  line 508 of fplldbdebugger.pas
  $0000000100E61EFB  ExtractProcResFromMethod,  line 159 of idedebuggerwatchresutils.pas
  $0000000100E6239C  ExtractInstanceResFromMethod,  line 180 of idedebuggerwatchresutils.pas
  $0000000101066400  Destroy,  line 1411 of fpdebugdebuggerworkthreads.pas
  $00000001010668AE  DoExecute,  line 1483 of fpdebugdebuggerworkthreads.pas
  $0000000101066F72  ObtainDynamicCodePage,  line 392 of fpdbgdwarffreepascal.pas
  $0000000100DC90B0  WaitForFinish,  line 901 of fpdbgutil.pp
  $0000000100DCA29E line 1118 of fpdbgutil.pp
  $00000001000E5E7D  ThreadProc,  line 205 of ../objpas/classes/classes.inc
  $0000000100003D16  $main,  line 170 of lazarus.pp
  $000000010001A7CA  ThreadMain,  line 240 of ../win/systhrd.inc
  $00007FFE0CEE7374