fix luafilenames and disassembling lua r32,m32 in 64-bit
This commit is contained in:
parent
4a31e150b3
commit
2418b321e7
@ -23,7 +23,7 @@ uses
|
||||
FPimage, byteinterpreter, frmgroupscanalgoritmgeneratorunit, vartypestrings,
|
||||
groupscancommandparser, GraphType, IntfGraphics, RemoteMemoryManager,
|
||||
DBK64SecondaryLoader, savedscanhandler, debuggertypedefinitions, networkInterface,
|
||||
FrmMemoryRecordDropdownSettingsUnit;
|
||||
FrmMemoryRecordDropdownSettingsUnit, xmlutils;
|
||||
|
||||
//the following are just for compatibility
|
||||
|
||||
@ -1056,6 +1056,7 @@ resourcestring
|
||||
|
||||
rsDecimal = 'Decimal';
|
||||
rsHexadecimal = 'Hexadecimal';
|
||||
rsIsNotAValidX = '%s is not a valid xml name';
|
||||
|
||||
var
|
||||
ncol: TColor;
|
||||
@ -3283,7 +3284,11 @@ begin
|
||||
lf := LuaFiles[TMenuItem(Sender).Tag];
|
||||
newname:=lf.Name;
|
||||
InputQuery(rsRenameFile, rsGiveTheNewFilename, newname);
|
||||
lf.name:=newname;
|
||||
|
||||
if IsXmlName(newname, true) then
|
||||
lf.name:=newname
|
||||
else
|
||||
MessageDlg(Format(rsIsNotAValidX, [newname]), mtError, [mbok], 0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.SaveFileClick(Sender: TObject);
|
||||
|
@ -568,7 +568,7 @@ begin
|
||||
inc(LastDisassembleData.SeperatorCount);
|
||||
|
||||
|
||||
if $67 in prefix then
|
||||
if (not processhandler.is64Bit) and ($67 in prefix) then
|
||||
begin
|
||||
// put some 16-bit stuff in here
|
||||
// but since this is a 32-bit debugger only ,forget it...
|
||||
|
@ -5,7 +5,7 @@ unit luafile;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, DOM, zstream, math, custombase85, fgl;
|
||||
Classes, SysUtils, DOM, zstream, math, custombase85, fgl, xmlutils;
|
||||
|
||||
type TLuafile=class
|
||||
private
|
||||
@ -141,6 +141,10 @@ end;
|
||||
|
||||
constructor TLuafile.create(name: string; stream: tstream);
|
||||
begin
|
||||
if not IsXmlName(name, true) then
|
||||
name:='_'+name;
|
||||
|
||||
|
||||
self.name:=name;
|
||||
|
||||
filedata:=tmemorystream.create;
|
||||
|
@ -1051,7 +1051,12 @@ begin
|
||||
end;
|
||||
l.add(' '+trainerform.name+'.'+currentcheat.name+'.setActive(true, 1500)');
|
||||
l.add(' if gPlaySoundOnAction then');
|
||||
l.add(' playSound(gActivateSound)');
|
||||
|
||||
if currenthk.action=mrhDeactivate then
|
||||
l.add(' playSound(gDeactivateSound)')
|
||||
else
|
||||
l.add(' playSound(gActivateSound)');
|
||||
|
||||
l.add(' end');
|
||||
l.add('end');
|
||||
l.add('');
|
||||
|
Loading…
Reference in New Issue
Block a user