paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 20:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implement CallParamDefaultLocation for AVR.

Browse Source
This commit is contained in:
ccrause 2024-02-25 17:41:04 +02:00 committed by Martin
parent 88a0e31b16
commit 6915cc97fe
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpdebug/fpdbgavrclasses.pas
View File

@ -112,6 +112,7 @@ end;
AMemManager: TFpDbgMemManager; AMemModel: TFpDbgMemModel;
AProcessConfig: TDbgProcessConfig = nil); override;
destructor Destroy; override;
function CallParamDefaultLocation(AParamIdx: Integer): TFpDbgMemLocation; override;
end;
TAvrBreakInfo = object
@ -493,6 +494,19 @@ begin
inherited Destroy;
end;
function TDbgAvrProcess.CallParamDefaultLocation(
AParamIdx: Integer): TFpDbgMemLocation;
begin
Result := inherited CallParamDefaultLocation(AParamIdx);
// Assume word sized parameters passed via registers
// this means larger parameters will mess up this guess
if (AParamIdx >= 0) and (AParamIdx <= 8) then
begin
Result.MType := mlfTargetRegister;
Result.Address := 24 - 2*AParamIdx;
end;
end;
class function TDbgAvrProcess.isSupported(target: TTargetDescriptor): boolean;
begin
result := (target.OS = osEmbedded) and