paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 17:00:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix incorrect class typecasts

Browse Source
This commit is contained in:
Martin 2024-07-25 21:02:35 +02:00
parent da812e6d12
commit be343003c0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -366,7 +366,7 @@ begin
exit; exit;
// Only AnsiStrings in fpc 3.0.0 and higher have a dynamic codepage. // Only AnsiStrings in fpc 3.0.0 and higher have a dynamic codepage.
v := TFpDwarfFreePascalSymbolClassMapDwarf3(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion; v := TFpDwarfFreePascalSymbolClassMap(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion;
if (v >= $030000) then begin if (v >= $030000) then begin
// Too bad the debug-information does not deliver this information. So we // Too bad the debug-information does not deliver this information. So we
// use these hardcoded information, and hope that FPC does not change and // use these hardcoded information, and hope that FPC does not change and
@ -2268,8 +2268,8 @@ begin
exit; exit;
assert((TypeInfo <> nil) and (TypeInfo.CompilationUnit <> nil) and (TypeInfo.CompilationUnit.DwarfSymbolClassMap is TFpDwarfFreePascalSymbolClassMapDwarf3), 'TFpValueDwarfV3FreePascalString.CalcBounds: (Owner <> nil) and (Owner.CompilationUnit <> nil) and (TypeInfo.CompilationUnit.DwarfSymbolClassMap is TFpDwarfFreePascalSymbolClassMapDwarf3)'); assert((TypeInfo <> nil) and (TypeInfo.CompilationUnit <> nil) and (TypeInfo.CompilationUnit.DwarfSymbolClassMap is TFpDwarfFreePascalSymbolClassMapDwarf3), 'TFpValueDwarfV3FreePascalString.CalcBounds: (Owner <> nil) and (Owner.CompilationUnit <> nil) and (TypeInfo.CompilationUnit.DwarfSymbolClassMap is TFpDwarfFreePascalSymbolClassMapDwarf3)');
if (TFpDwarfFreePascalSymbolClassMapDwarf3(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion > 0) and if (TFpDwarfFreePascalSymbolClassMap(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion > 0) and
(TFpDwarfFreePascalSymbolClassMapDwarf3(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion < $030100) (TFpDwarfFreePascalSymbolClassMap(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion < $030100)
then begin then begin
if t.Kind = skWideString then begin if t.Kind = skWideString then begin
if (t2 is TFpSymbolDwarfTypeSubRange) and (FLowBound = 1) then begin if (t2 is TFpSymbolDwarfTypeSubRange) and (FLowBound = 1) then begin