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

20
src/u_gdb.pas
View File

@ -2896,16 +2896,6 @@ begin
gdbCommand(cmd); gdbCommand(cmd);
end; end;
procedure TGdbWidget.setFlag(val: PtrUint);
const
spec = 'set $eflags = 0x%X';
var
cmd: string;
begin
cmd := format(spec, [val]);
gdbCommand(cmd);
end;
procedure TGdbWidget.setFpr(reg: TFpuRegister; val: extended); procedure TGdbWidget.setFpr(reg: TFpuRegister; val: extended);
const const
spec = 'set $%s = %.18g'; spec = 'set $%s = %.18g';
@ -2915,6 +2905,16 @@ begin
cmd := format(spec, [GetEnumName(typeinfo(TFpuRegister), integer(reg)), val]); cmd := format(spec, [GetEnumName(typeinfo(TFpuRegister), integer(reg)), val]);
gdbCommand(cmd); gdbCommand(cmd);
end; end;
procedure TGdbWidget.setFlag(val: PtrUint);
const
spec = 'set $eflags = 0x%X';
var
cmd: string;
begin
cmd := format(spec, [val]);
gdbCommand(cmd);
end;
{$ENDREGION} {$ENDREGION}
initialization initialization