forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

style

This commit is contained in:
Basile Burg 2019-01-20 07:45:22 +01:00
parent 7c35bceb12
commit 92cf60b04b
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/u_gdb.pas
View File

@ -2882,7 +2882,7 @@ const
var var
cmd : string; cmd : string;
begin begin
cmd := format(spec, [GetEnumName(typeinfo(TCpuRegister),integer(reg)), val]); cmd := format(spec, [GetEnumName(typeinfo(TCpuRegister), integer(reg)), val]);
gdbCommand(cmd); gdbCommand(cmd);
end; end;
@ -2892,7 +2892,17 @@ const
var var
cmd : string; cmd : string;
begin begin
cmd := format(spec, [GetEnumName(typeinfo(TSegRegister),integer(reg)), val]); cmd := format(spec, [GetEnumName(typeinfo(TSegRegister), integer(reg)), val]);
gdbCommand(cmd);
end;
procedure TGdbWidget.setFpr(reg: TFpuRegister; val: extended);
const
spec = 'set $%s = %.18g';
var
cmd : string;
begin
cmd := format(spec, [GetEnumName(typeinfo(TFpuRegister), integer(reg)), val]);
gdbCommand(cmd); gdbCommand(cmd);
end; end;
@ -2905,16 +2915,6 @@ begin
cmd := format(spec, [val]); cmd := format(spec, [val]);
gdbCommand(cmd); gdbCommand(cmd);
end; end;
procedure TGdbWidget.setFpr(reg: TFpuRegister; val: extended);
const
spec = 'set $%s = %.18g';
var
cmd : string;
begin
cmd := format(spec, [GetEnumName(typeinfo(TFpuRegister),integer(reg)), val]);
gdbCommand(cmd);
end;
{$ENDREGION} {$ENDREGION}
initialization initialization