From 92cf60b04bdd65be6a1626b2c1f845dea5558c9b Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sun, 20 Jan 2019 07:45:22 +0100 Subject: [PATCH] style --- src/u_gdb.pas | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/src/u_gdb.pas b/src/u_gdb.pas index 3e442ab5..c09b2642 100644 --- a/src/u_gdb.pas +++ b/src/u_gdb.pas @@ -2882,7 +2882,7 @@ const var cmd : string; begin - cmd := format(spec, [GetEnumName(typeinfo(TCpuRegister),integer(reg)), val]); + cmd := format(spec, [GetEnumName(typeinfo(TCpuRegister), integer(reg)), val]); gdbCommand(cmd); end; @@ -2892,7 +2892,17 @@ const var cmd : string; 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); end; @@ -2905,16 +2915,6 @@ begin cmd := format(spec, [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); -end; {$ENDREGION} initialization