mirror of https://github.com/x64dbg/zydis
Merge branch 'develop' of https://github.com/zyantific/zyan-disassembler-engine into develop
This commit is contained in:
Joel Höner
commit
821d9da338
11
README.md
11
README.md
|
|
@ -6,7 +6,7 @@ Fast and lightweight x86/x86-64 disassembler library.
|
||||||
## Features ##
|
## Features ##
|
||||||
|
|
||||||
- Supports all x86 and x86-64 (AMD64) general-purpose and system instructions.
|
- Supports all x86 and x86-64 (AMD64) general-purpose and system instructions.
|
||||||
- Supported ISA extensions:
|
- Supports pretty much all ISA extensions:
|
||||||
- FPU (x87), MMX
|
- FPU (x87), MMX
|
||||||
- SSE, SSE2, SSE3, SSSE3, SSE4.1, SSE4.2, SSE4A, AESNI
|
- SSE, SSE2, SSE3, SSSE3, SSE4.1, SSE4.2, SSE4A, AESNI
|
||||||
- AVX, AVX2, AVX512BW, AVX512CD, AVX512DQ, AVX512ER, AVX512F, AVX512PF, AVX512VL
|
- AVX, AVX2, AVX512BW, AVX512CD, AVX512DQ, AVX512ER, AVX512F, AVX512PF, AVX512VL
|
||||||
|
|
@ -16,8 +16,6 @@ Fast and lightweight x86/x86-64 disassembler library.
|
||||||
- No dynamic memory allocation
|
- No dynamic memory allocation
|
||||||
- Perfect for kernel-mode drivers and embedded devices
|
- Perfect for kernel-mode drivers and embedded devices
|
||||||
- Very small file-size overhead compared to other common disassembler libraries
|
- Very small file-size overhead compared to other common disassembler libraries
|
||||||
- Language bindings
|
|
||||||
- C++, Delphi, Python, ..
|
|
||||||
- Complete doxygen documentation
|
- Complete doxygen documentation
|
||||||
|
|
||||||
## Quick Example ##
|
## Quick Example ##
|
||||||
|
|
@ -81,6 +79,13 @@ The above example program generates the following output:
|
||||||
|
|
||||||
Zydis builds cleanly on most platforms without any external dependencies. You can use CMake to generate project files for your favorite C99 compiler.
|
Zydis builds cleanly on most platforms without any external dependencies. You can use CMake to generate project files for your favorite C99 compiler.
|
||||||
|
|
||||||
|
## Roadmap ##
|
||||||
|
|
||||||
|
- Language bindings
|
||||||
|
- Tests
|
||||||
|
- Encoding support
|
||||||
|
- Graphical editor for the instruction-database
|
||||||
|
|
||||||
## License ##
|
## License ##
|
||||||
|
|
||||||
Zyan Disassembler Engine is licensed under the MIT License. Dependencies are under their respective licenses.
|
Zyan Disassembler Engine is licensed under the MIT License. Dependencies are under their respective licenses.
|
||||||
|
|
|
||||||
|
|
@ -1,57 +0,0 @@
|
||||||
# Uncomment these types if you want even more clean repository. But be careful.
|
|
||||||
# It can make harm to an existing project source. Read explanations below.
|
|
||||||
#
|
|
||||||
# Resource files are binaries containing manifest, project icon and version info.
|
|
||||||
# They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
|
|
||||||
#*.res
|
|
||||||
#
|
|
||||||
# Type library file (binary). In old Delphi versions it should be stored.
|
|
||||||
# Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
|
|
||||||
#*.tlb
|
|
||||||
#
|
|
||||||
# Diagram Portfolio file. Used by the diagram editor up to Delphi 7.
|
|
||||||
# Uncomment this if you are not using diagrams or use newer Delphi version.
|
|
||||||
#*.ddp
|
|
||||||
#
|
|
||||||
# Visual LiveBindings file. Added in Delphi XE2.
|
|
||||||
# Uncomment this if you are not using LiveBindings Designer.
|
|
||||||
#*.vlb
|
|
||||||
#
|
|
||||||
# Deployment Manager configuration file for your project. Added in Delphi XE2.
|
|
||||||
# Uncomment this if it is not mobile development and you do not use remote debug feature.
|
|
||||||
#*.deployproj
|
|
||||||
#
|
|
||||||
|
|
||||||
# Delphi compiler-generated binaries (safe to delete)
|
|
||||||
*.exe
|
|
||||||
*.dll
|
|
||||||
*.bpl
|
|
||||||
*.bpi
|
|
||||||
*.dcp
|
|
||||||
*.so
|
|
||||||
*.apk
|
|
||||||
*.drc
|
|
||||||
*.map
|
|
||||||
*.dres
|
|
||||||
*.rsm
|
|
||||||
*.tds
|
|
||||||
*.dcu
|
|
||||||
*.lib
|
|
||||||
|
|
||||||
# Delphi autogenerated files (duplicated info)
|
|
||||||
*.cfg
|
|
||||||
*Resource.rc
|
|
||||||
|
|
||||||
# Delphi local files (user-specific info)
|
|
||||||
*.local
|
|
||||||
*.identcache
|
|
||||||
*.projdata
|
|
||||||
*.tvsconfig
|
|
||||||
*.dsk
|
|
||||||
|
|
||||||
# Delphi history and backups
|
|
||||||
__history/
|
|
||||||
*.~*
|
|
||||||
|
|
||||||
# Castalia statistics file
|
|
||||||
*.stat
|
|
||||||
|
|
@ -1,324 +0,0 @@
|
||||||
object frmEditorCPUIDFeatureFlags: TfrmEditorCPUIDFeatureFlags
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
BorderStyle = bsDialog
|
|
||||||
Caption = 'frmEditorCPUIDFeatureFlags'
|
|
||||||
ClientHeight = 371
|
|
||||||
ClientWidth = 544
|
|
||||||
Color = clBtnFace
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
OldCreateOrder = False
|
|
||||||
Position = poScreenCenter
|
|
||||||
OnCreate = FormCreate
|
|
||||||
PixelsPerInch = 96
|
|
||||||
TextHeight = 13
|
|
||||||
object GroupBox: TGroupBox
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 329
|
|
||||||
Width = 538
|
|
||||||
Height = 39
|
|
||||||
Margins.Top = 0
|
|
||||||
Align = alBottom
|
|
||||||
TabOrder = 1
|
|
||||||
ExplicitTop = 279
|
|
||||||
ExplicitWidth = 488
|
|
||||||
DesignSize = (
|
|
||||||
538
|
|
||||||
39)
|
|
||||||
object btnCancel: TButton
|
|
||||||
Left = 418
|
|
||||||
Top = 7
|
|
||||||
Width = 112
|
|
||||||
Height = 25
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
Caption = 'Cancel'
|
|
||||||
ImageIndex = 1
|
|
||||||
ImageMargins.Left = 2
|
|
||||||
ImageMargins.Top = 2
|
|
||||||
Images = imgIcons16
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = btnCancelClick
|
|
||||||
ExplicitLeft = 368
|
|
||||||
end
|
|
||||||
object btnApply: TButton
|
|
||||||
Left = 300
|
|
||||||
Top = 7
|
|
||||||
Width = 112
|
|
||||||
Height = 25
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
Caption = 'Apply'
|
|
||||||
ImageIndex = 0
|
|
||||||
ImageMargins.Left = 2
|
|
||||||
ImageMargins.Top = 2
|
|
||||||
Images = imgIcons16
|
|
||||||
TabOrder = 0
|
|
||||||
OnClick = btnApplyClick
|
|
||||||
ExplicitLeft = 250
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object VirtualTreeView: TVirtualStringTree
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 538
|
|
||||||
Height = 323
|
|
||||||
Align = alClient
|
|
||||||
Header.AutoSizeIndex = -1
|
|
||||||
Header.Font.Charset = DEFAULT_CHARSET
|
|
||||||
Header.Font.Color = clWindowText
|
|
||||||
Header.Font.Height = -11
|
|
||||||
Header.Font.Name = 'Tahoma'
|
|
||||||
Header.Font.Style = []
|
|
||||||
Header.MainColumn = -1
|
|
||||||
Images = imgTreeView
|
|
||||||
TabOrder = 0
|
|
||||||
TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
|
|
||||||
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toAlwaysHideSelection, toUseBlendedSelection]
|
|
||||||
TreeOptions.SelectionOptions = [toFullRowSelect]
|
|
||||||
OnChecked = VirtualTreeViewChecked
|
|
||||||
OnCollapsing = VirtualTreeViewCollapsing
|
|
||||||
OnFreeNode = VirtualTreeViewFreeNode
|
|
||||||
OnGetText = VirtualTreeViewGetText
|
|
||||||
OnGetImageIndex = VirtualTreeViewGetImageIndex
|
|
||||||
ExplicitWidth = 488
|
|
||||||
ExplicitHeight = 273
|
|
||||||
Columns = <>
|
|
||||||
end
|
|
||||||
object imgIcons16: TcxImageList
|
|
||||||
FormatVersion = 1
|
|
||||||
DesignInfo = 2097208
|
|
||||||
ImageInfo = <
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
20000000000000040000000000000000000000000000000000000000001B0000
|
|
||||||
0033000000330000003300000033000000330000003300000033000000330000
|
|
||||||
0033000000330000003300000033000000330000001B00000000004B29A00089
|
|
||||||
49FF008747FF008747FF008747FF008747FF008747FF008747FF008747FF0087
|
|
||||||
47FF008747FF008747FF008747FF008949FF004B29A000000000008949FF07E4
|
|
||||||
A4FF07E5A5FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4
|
|
||||||
A4FF07E4A4FF07E4A4FF07E5A5FF07E4A4FF008949FF00000000008747FF13E7
|
|
||||||
AAFF00DB9BFF00DA9AFF00DA99FF00DA99FF00DA99FF00DA99FF00DA9AFF00DA
|
|
||||||
9AFF00DA9AFF00DA9AFF00DB9BFF13E7AAFF008747FF00000000008746FF1EE7
|
|
||||||
AEFF00D699FF00D698FF00D495FF00D391FF00D391FF00D495FF00D698FF00D6
|
|
||||||
99FF00D699FF00D699FF00D699FF1EE7AEFF008746FF00000000008746FF2AE9
|
|
||||||
B3FF00D299FF00D095FF00CC8DFFFFFFFFFFFFFFFFFF00CC8DFF00D096FF00D2
|
|
||||||
99FF00D29AFF00D29AFF00D29AFF2AE9B3FF008746FF00000000008746FF35EA
|
|
||||||
B7FF00CD96FF00C98DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00C98DFF00CD
|
|
||||||
96FF00CF99FF00CF9AFF00CF9AFF36EAB8FF008746FF00000000008745FF3EEB
|
|
||||||
BBFF00C692FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00C4
|
|
||||||
8DFF00C995FF00CA99FF00CA99FF41ECBDFF008745FF00000000008745FF4BED
|
|
||||||
BFFF00C393FFFFFFFFFFFFFFFFFF00C08BFF00BF8BFFFFFFFFFFFFFFFFFFFFFF
|
|
||||||
FFFF00C18EFF00C596FF00C699FF4DEDC0FF008745FF00000000008744FF58EF
|
|
||||||
C5FF00C197FF00BF93FF00C093FF00C196FF00C196FF00BC8EFFFFFFFFFFFFFF
|
|
||||||
FFFFFFFFFFFF00BC8EFF00C096FF58EFC5FF008744FF00000000008744FF64F1
|
|
||||||
CAFF00BE99FF00C099FF00C09AFF00C19BFF00C19AFF00BE97FF00B98EFFFFFF
|
|
||||||
FFFFFFFFFFFFFFFFFFFF00BA92FF62F0C9FF008744FF00000000008744FF71F2
|
|
||||||
CFFF00BB99FF00BD9AFF00BE9BFF00BE9BFF00BE9BFF00BE9AFF00BB96FF00B6
|
|
||||||
8EFFFFFFFFFFFFFFFFFF00B792FF6EF2CDFF008744FF00000000008744FF7BF4
|
|
||||||
D3FF00B699FF00B89AFF00B99BFF00B99BFF00B99BFF00B99BFF00B89AFF00B7
|
|
||||||
98FF00B494FF00B493FF00B496FF7AF3D3FF008744FF00000000008744FF86F5
|
|
||||||
D8FF00B198FF00B299FF00B399FF00B399FF00B399FF00B399FF00B399FF00B2
|
|
||||||
99FF00B298FF00B297FF00B197FF86F5D8FF008744FF00000000008946FF8AF2
|
|
||||||
D9FF92F6DEFF93F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6
|
|
||||||
DDFF94F6DDFF93F6DDFF92F6DEFF8AF2D9FF008946FF00000000004B29880089
|
|
||||||
46FF008743FF008643FF008643FF008643FF008643FF008643FF008643FF0086
|
|
||||||
43FF008643FF008643FF008743FF008946FF004B298800000000}
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000000000
|
|
||||||
0013000000330000003300000033000000330000003300000033000000330000
|
|
||||||
0033000000330000003300000033000000330000003300000013000000001117
|
|
||||||
487E2D3CC0FF2B3BBEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3A
|
|
||||||
BEFF2A3ABEFF2A3ABEFF2A3ABEFF2B3BBEFF2D3CC0FF1117487E000000002D3D
|
|
||||||
C0FF6172FAFF6A7DFFFF697CFFFF6D80FFFF7485FFFF7788FFFF7788FFFF7788
|
|
||||||
FFFF7485FFFF6D7FFFFF697CFFFF6A7DFFFF6172FAFF2D3DC0FF000000002B3B
|
|
||||||
BEFF6578FFFF5F73FEFF6F80FFFF7989FFFF5868E6FF3E4ED0FF3F4FD1FF3E4E
|
|
||||||
D0FF5767E5FF7887FEFF6E7FFFFF5F73FEFF6578FFFF2B3BBEFF000000002B3B
|
|
||||||
BEFF5D72FFFF697BFEFF7785F8FF3949CAFF1E2A89B70B0F303F07091D26070A
|
|
||||||
1F552636B9FF5A6FFDFF576CFAFF687AFCFF5D71FFFF2B3BBEFF000000002C3B
|
|
||||||
BFFF586EFEFF8593FFFF3B4BCAFF0E143F530000000000000000000000332B3A
|
|
||||||
BDFF5970FEFF546AFBFF7F8FFFFF8290FDFF586EFEFF2C3BBFFF000000002C3C
|
|
||||||
BFFF536BFCFF707CE7FF1E2A89BB0000000000000000000000332C3BBEFF546B
|
|
||||||
FBFF5067F8FF8796FFFF3B4BCDFF6D79E5FF536AFCFF2C3CBFFF000000002D3D
|
|
||||||
BFFF4F68FBFF4E5BD1FF0B0F304500000000000000332C3BBEFF4E66F9FF4A63
|
|
||||||
F6FF8C99FFFF2737BCFF07091F314D5AD0FF4F68FBFF2D3DBFFF000000002E3D
|
|
||||||
C0FF4A64F9FF3446CDFF07091D2D000000332D3CBEFF4862F7FF445DF4FF8E9C
|
|
||||||
FFFF2838BDFF0000000007091D313446CDFF4A64F9FF2E3DC0FF000000002E3D
|
|
||||||
C0FF4660F7FF3445CCFF080A20552D3CBEFF445DF4FF3F59F1FF929FFFFF2838
|
|
||||||
BDFF00000000000000000C0F305B3445CDFF4660F7FF2E3DC0FF000000002E3E
|
|
||||||
C0FF405BF3FF384DDBFF2E3CBCFF3E59F2FF3954EFFF95A2FFFF2838BDFF0000
|
|
||||||
00000000000000000011222D8AC5384EDCFF405BF3FF2E3EC0FF000000002F3E
|
|
||||||
C0FF3955F0FF3951EAFF3954EEFF3651EDFF9AA5FFFF2838BDFF000000080000
|
|
||||||
000D0000002510153F753041C8FF3A53EBFF3A55F0FF2F3EC0FF000000002E3D
|
|
||||||
BFFF3A54EFFF324DE9FF334DE9FF324DEBFF2A39BCFF070A1F5507091D510B0F
|
|
||||||
3065212D8AC52F41C8FF314CE4FF324DEBFF3A54EFFF2E3DBFFF000000002B3B
|
|
||||||
BFFF6A7DFDFF334EE8FF2643E4FF2642E3FF253CD4FF2739C7FF273AC8FF273A
|
|
||||||
C8FF263DD5FF2743E5FF2643E6FF334EE9FF6A7DFDFF2B3BBFFF000000002B3B
|
|
||||||
C0FF929DFCFFAAB3FFFFAAB3FFFFAAB3FFFFAAB4FFFFAAB4FFFFAAB4FFFFAAB4
|
|
||||||
FFFFAAB4FFFFAAB3FFFFAAB3FFFFAAB3FFFF929DFCFF2B3BC0FF000000001117
|
|
||||||
485E2A3AC0FF2838BFFF2737BEFF2737BEFF2737BEFF2737BFFF2737BFFF2737
|
|
||||||
BFFF2737BEFF2737BEFF2737BEFF2838BFFF2A3AC0FF1117485E}
|
|
||||||
end>
|
|
||||||
end
|
|
||||||
object imgTreeView: TcxImageList
|
|
||||||
FormatVersion = 1
|
|
||||||
DesignInfo = 2097288
|
|
||||||
ImageInfo = <
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000300000
|
|
||||||
0033000000330000003300000033000000330000003300000033000000330000
|
|
||||||
00330000003300000033000000330000002F00000000000000004190C6F24398
|
|
||||||
D2FF4094D0FF3E92CFFF3E92CEFF3F92CEFF3F92CEFF3F92CEFF3F92CEFF3F92
|
|
||||||
CEFF3F92CEFF3F92CEFF3F93CFFF3D8BC2F00000000E000000004499D2FF3F94
|
|
||||||
D0FFABFBFFFF9BF3FFFF92F1FFFF93F1FFFF93F1FFFF93F1FFFF93F1FFFF93F1
|
|
||||||
FFFF93F1FFFF93F1FFFFA6F8FFFF65B8E3FF122A3A5F000000004398D2FF4FA6
|
|
||||||
D9FF8EDAF5FFA2EEFFFF82E5FEFF84E5FEFF84E5FEFF85E6FEFF85E6FEFF85E6
|
|
||||||
FEFF85E6FEFF84E6FEFF96EBFFFF8CD8F5FF296088B8000000004296D1FF6BBE
|
|
||||||
E8FF6DBDE6FFBBF2FFFF75DEFDFF77DEFCFF78DEFCFF7BDFFCFF7DDFFCFF7DDF
|
|
||||||
FCFF7DDFFCFF7CDFFCFF80E0FDFFADF0FFFF4D9DD3FF0000000E4095D0FF8AD7
|
|
||||||
F5FF44A1D8FFDDFDFFFFDAFAFFFFDBFAFFFFDEFAFFFF74DCFCFF76DBFAFF75DA
|
|
||||||
FAFF74DAFAFF74DAFAFF72D9FAFFA1E8FFFF7CBFE6FF12293A5E3E94D0FFABF0
|
|
||||||
FFFF449DD6FF368CCBFF368CCBFF368CCBFF378BCBFF5CBEEAFF6FD9FBFF6AD6
|
|
||||||
FAFF68D5F9FF67D4F9FF66D4F9FF82DEFCFFAAE0F6FF296088B93D92CFFFB9F4
|
|
||||||
FFFF73DBFBFF6BCCF2FF6CCDF3FF6CCEF3FF6DCEF3FF479CD4FF56BAE9FFDAF8
|
|
||||||
FFFFD7F6FFFFD6F6FFFFD5F6FFFFD5F7FFFFDBFCFFFF3E94D0FF3C92CFFFC0F3
|
|
||||||
FFFF71DAFBFF74DBFBFF75DBFCFF75DBFCFF76DCFCFF73DAFAFF449CD4FF378C
|
|
||||||
CBFF368CCBFF358CCCFF348DCCFF3890CEFF3D94D0FF3E8CC2EB3B92CFFFCAF6
|
|
||||||
FFFF69D5F9FF6CD5F9FF6BD5F9FF69D5F9FF69D5FAFF6AD7FBFF68D4FAFF5EC7
|
|
||||||
F1FF5EC7F2FF5DC8F2FFB4E3F8FF3D94D0FF1A3B5269000000003B92CFFFD5F7
|
|
||||||
FFFF60D1F9FF61D0F8FFB4EBFDFFD9F6FFFFDAF8FFFFDAF8FFFFDBF9FFFFDCFA
|
|
||||||
FFFFDCFAFFFFDCFBFFFFE0FFFFFF3E95D0FF0E1F2A33000000003D94D0FFDCFC
|
|
||||||
FFFFD8F7FFFFD8F7FFFFDBFAFFFF358ECDFF3991CEFF3A92CFFF3A92CFFF3A92
|
|
||||||
CFFF3A92CFFF3B92CFFF3D94D0FF3880B1D700000000000000002E6991B03D94
|
|
||||||
D0FF3A92CFFF3A92CFFF3D94D0FF367CACD20000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000}
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000002200000033000000330000
|
|
||||||
0033000000330000003300000033000000330000002300000000000000000000
|
|
||||||
0030000000330000003300000033000000337B5426B9B78241FFB68142FFB681
|
|
||||||
42FFB68141FFB68142FFB68142FFB78343FF805C2FC00000000000000000A8A8
|
|
||||||
A6F2AFAFADFFAEAEABFFAEAFADFFAEB3B8FFB67C35FFF8CB85FFF4C47AFFF3C3
|
|
||||||
77FFF3C174FFF3C377FFF4C47AFFF9CC87FFB78243FF0000000000000000B0B0
|
|
||||||
ADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB27730FFF2C787FFEAB76CFFE9B3
|
|
||||||
65FFFFFFFFFFE9B365FFEAB76CFFF2C98AFFB68141FF0000000000000000AEAE
|
|
||||||
ABFFFFFFFFFFFDFDFCFFFDFEFEFFFFFFFFFFB0752EFFEEC78EFFE2AE61FFE0A9
|
|
||||||
58FFFFFFFFFFE0A958FFE2AE61FFEEC990FFB68141FF0000000000000000ADAD
|
|
||||||
ABFFFFFFFFFFF8F8F8FFF9FAFBFFFEFFFFFFB0752DFFEBC994FFDAA252FFD89D
|
|
||||||
47FFFFFFFFFFD89D47FFDAA252FFECCA97FFB68140FF0000000000000000ADAD
|
|
||||||
ABFFFFFFFFFFF6F5F5FFF7F7F8FFFCFFFFFFB0752CFFEACA9CFFF3E4CEFFFFFF
|
|
||||||
FFFFFFFFFFFFFFFFFFFFF3E4CEFFEBCC9FFFB7813FFF0000000000000000ADAD
|
|
||||||
ABFFFFFFFFFFF3F2F2FFF4F3F4FFF8FBFFFFB0742AFFE8CA9EFFE6C79AFFE4C4
|
|
||||||
95FFE4C494FFE5C595FFE6C89BFFEACEA4FFB88241FF0000000000000000ADAD
|
|
||||||
ABFFFFFFFFFFF0F0EFFFF0F1F0FFF3F6F9FFCAA578FFB1742BFFB1752CFFB175
|
|
||||||
2BFFB1742BFFB2762DFFB57A33FFB8803CFF8F6634C40000000000000000ADAD
|
|
||||||
ABFFFFFFFFFFEEECEBFFEEEDECFFEFEFEFFFF1F3F5FFF1F5F9FFF2F5FBFFF2F6
|
|
||||||
FBFFF2F6FBFFFFFFFFFFAEB6BDFF00000000000000000000000000000000ADAD
|
|
||||||
ABFFFFFFFFFFEAE9E9FFEBEAEAFFEBEAEAFFEAE9EAFFFFFFFFFFFFFFFFFFFFFF
|
|
||||||
FFFFFFFFFFFFFFFFFFFFAEB0B1FF00000000000000000000000000000000ADAD
|
|
||||||
ABFFFFFFFFFFE7E7E6FFE8E8E7FFE8E8E7FFE6E6E5FFFFFFFFFFCBCBCAFFA6A6
|
|
||||||
A4FFA5A5A2FFFFFFFFFFAFAFADFF00000000000000000000000000000000AEAE
|
|
||||||
ABFFFFFFFFFFE4E3E2FFE5E4E3FFE5E4E3FFE4E3E2FFFFFFFFFFA6A6A4FFFBFB
|
|
||||||
FAFFFFFFFFFFE9E9E9FF777775AC00000000000000000000000000000000AEAE
|
|
||||||
ACFFFFFFFFFFE0DFDEFFE1DFDEFFE1DFDEFFE0DFDEFFFFFFFFFFA5A5A2FFFFFF
|
|
||||||
FFFFE7E7E8FF737371A70000000000000000000000000000000000000000AFAF
|
|
||||||
ADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE9E9
|
|
||||||
E9FF717170A6000000000000000000000000000000000000000000000000A8A8
|
|
||||||
A6EFB0B0ADFFAEAEACFFAEAEABFFAEAEABFFADAEABFFAEAEABFFAFAFADFFA2A2
|
|
||||||
A0EA000000000000000000000000000000000000000000000000}
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000000000
|
|
||||||
0023000000330000003300000033000000330000003300000033000000330000
|
|
||||||
0033000000330000003300000033000000230000000000000000000000006042
|
|
||||||
1FC08A5E2BFF895E2BFF895D2AFF895D2AFF895D29FF895C29FF895D29FF895D
|
|
||||||
2AFF895D2AFF895E2BFF8A5E2BFF60421FC00000000000000000000000008A5E
|
|
||||||
2BFFAE8D5BFFAA8653FFA98551FFA7824DFFA6814BFFA57F49FFA6814BFFA782
|
|
||||||
4DFFA98551FFAA8653FFAE8D5BFF8A5E2BFF000000000000000000000000895D
|
|
||||||
2AFFB18E5CFFA27E4AFF9E7841FFD8C8B1FF966D32FFFFFFFFFF966D32FFD8C8
|
|
||||||
B1FF9E7841FFA27E4AFFB18E5CFF895D2AFF000000000000000000000000895D
|
|
||||||
2AFFB3925EFF9E7742FFD7C6B0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
||||||
FFFFD7C6B0FF9E7742FFB3925EFF895D2AFF000000000000000000000000885C
|
|
||||||
29FFB69562FF9A723DFF91652AFFFFFFFFFFCFBBA0FF916429FFCFBBA0FFFFFF
|
|
||||||
FFFF91652AFF9A723DFFB69562FF885C29FF000000000000000000000000885C
|
|
||||||
29FFBA9865FF956D37FFFFFFFFFFFFFFFFFF8D6125FF936931FF8D6125FFFFFF
|
|
||||||
FFFFFFFFFFFF956D37FFBA9865FF885C29FF000000000000000000000000885C
|
|
||||||
29FFBC9C6AFF946B36FF8B5E23FFFFFFFFFFCBB89DFF8A5D21FFCBB89DFFFFFF
|
|
||||||
FFFF8B5E23FF946B36FFBC9C6AFF885C29FF000000000000000000000000885C
|
|
||||||
29FFC1A06EFF936934FFD2C0AAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
||||||
FFFFD1BFAAFF926833FFC1A06EFF885C29FF000000000000000000000000885C
|
|
||||||
29FFC4A373FF916834FF8E632DFFD2C0A9FF86581DFFFFFFFFFF84551AFFCEBC
|
|
||||||
A5FF8B5F29FF8E6530FFC3A271FF875C28FF000000000000000000000000875C
|
|
||||||
28FFC8A777FF906633FF916833FF906631FF8F642FFF8C602AFF9F7843FFC3A0
|
|
||||||
6DFFC4A270FFC4A271FFC6A474FF875B28FF000000000000000000000000875B
|
|
||||||
28FFCAAB7BFF8E6330FF916734FF926734FF916633FF8D622FFFC9A978FF9A72
|
|
||||||
3EFF7E4F18FF7D4E18FFC8A876FF875B28FF000000000000000000000000875B
|
|
||||||
28FFCEAF7EFF8A5F2CFF8D6330FF8E6431FF8D6330FF8A5F2CFFCCAD7BFF7E4F
|
|
||||||
18FFF6FFFFFFFFFFFFFFAF8956FF5C3E1CAC000000000000000000000000875B
|
|
||||||
28FFD1B181FF845824FF875B27FF885C28FF875B27FF845724FFCEAD7DFF7C4D
|
|
||||||
16FFFFFFFFFFAE8651FF573A17A700000000000000000000000000000000885C
|
|
||||||
29FFD5B687FFD4B585FFD4B586FFD5B586FFD4B586FFD3B485FFD1B282FFD1B2
|
|
||||||
81FFB38E59FF573917A600000000000000000000000000000000000000008159
|
|
||||||
29EF885C29FF875B28FF875B28FF875B28FF875B28FF865B27FF865A27FF875B
|
|
||||||
27FF7D5426EA0000000000000000000000000000000000000000}
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000230000
|
|
||||||
0033000000330000003300000033000000330000003300000033000000330000
|
|
||||||
00330000003300000033000000230000000000000000000000007B7B7AC0AFAF
|
|
||||||
ADFFAEAEACFFAEAEACFFAEAFADFFAFB0AEFFAFB0AFFFAFB0AEFFAFAFAEFFAFAF
|
|
||||||
ADFFAFAFADFFB0B0AEFF7B7B79BF000000000000000000000000B0B0ADFFFFFF
|
|
||||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
||||||
FFFFFFFFFFFFFFFFFFFFB1B1AEFF000000330000003300000023AEAEABFFFFFF
|
|
||||||
FFFFFFFFFFFFF7F3EFFFC38450FFA54800FFA64900FFA74900FFAA6B37FFACA8
|
|
||||||
A2FFABAFB0FFABACAAFFADADABFFAFAFADFFB0B1AEFF7B7B7AC0AEAEACFFFFFF
|
|
||||||
FFFFF5EFECFFAB5308FFC8843EFFE4B270FFE3AF6DFFE5B271FFCB8741FFAF57
|
|
||||||
0DFFEFE9E6FFF5F7FAFFF4F5F6FFF6F7F8FFFFFFFFFFB0B1AEFFAEAFADFFFFFF
|
|
||||||
FFFFC1844EFFC67F38FFDEA865FFDAA15BFFFFFFFFFFDAA25BFFDEA966FFC881
|
|
||||||
3AFFBE814DFFFFFFFFFFFFFFFFFFB48C75FFFFFFFFFFAFB0AEFFAFAFAEFFFFFF
|
|
||||||
FFFFA64900FFD89F5AFFD69C57FFD3944CFFFFFFFFFFD3944CFFD69C57FFD9A0
|
|
||||||
5BFFA94E00FFB89687FFB7907CFFB68E79FFFFFFFFFFAFAFADFFAFB0AFFFFFFF
|
|
||||||
FFFFA74A00FFDCAB71FFD19149FFCF8C41FFFFFFFFFFCF8C41FFD19149FFDDAB
|
|
||||||
72FFA94D00FFDEE8EFFFDCE0E2FFDCDFDFFFFFFFFFFFAFAFADFFAFAFAEFFFFFF
|
|
||||||
FFFFA64800FFE8CAA5FFCB8639FFCA8436FFC88130FFCA8436FFCB8639FFE9CB
|
|
||||||
A6FFA84B00FFFFFFFFFFFFFFFFFFB58D76FFFFFFFFFFAFAFADFFAEAFADFFFFFF
|
|
||||||
FFFFBD7E48FFCF9763FFE0B789FFC88236FFFFFFFFFFC88236FFE0B78AFFD099
|
|
||||||
65FFB47641FFB79381FFB68E7AFFB68D77FFFFFFFFFFAFB0AEFFAEAEACFFFFFF
|
|
||||||
FFFFE5DFDBFFAA5206FFCC945EFFE9CBAAFFE8C9A7FFE9CBABFFCE9660FFAF56
|
|
||||||
0BFFF8F4F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB0B0AEFFAEAEABFFFFFF
|
|
||||||
FFFFE9ECEEFFE4DEDAFFBD7E47FFA74800FFA74900FFA84900FFAC6D37FFAEA9
|
|
||||||
A2FFACAFB0FFACADACFFAEAFADFFAFAFADFFB0B0AEFF7C7C7AB0AEAEABFFFFFF
|
|
||||||
FFFFE3E5E4FFE6E9EAFFE8EDF1FFE9F0F5FFE8F0F5FFFFFFFFFFAAB0B2FFEDF0
|
|
||||||
F1FFFFFFFFFFEBEBECFF727271A4000000000000000000000000AEAEACFFFFFF
|
|
||||||
FFFFE0DFDEFFE1E0DFFFE1E1E1FFE1E2E1FFE1E1E1FFFFFFFFFFA6A7A5FFFFFF
|
|
||||||
FFFFE8E8E8FF737371A700000000000000000000000000000000AFAFADFFFFFF
|
|
||||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE9E9
|
|
||||||
E9FF717170A60000000000000000000000000000000000000000A8A8A6EFB0B0
|
|
||||||
ADFFAEAEACFFAEAEABFFAEAEABFFAEAEABFFADAEABFFAEAEABFFAFAFADFFA2A2
|
|
||||||
A0EA000000000000000000000000000000000000000000000000}
|
|
||||||
end>
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
@ -1,192 +0,0 @@
|
||||||
unit formEditorCPUIDFeatureFlags;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, System.UITypes,
|
|
||||||
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxOI, Vcl.StdCtrls, System.ImageList,
|
|
||||||
Vcl.ImgList, cxGraphics, VirtualTrees, Zydis.InstructionEditor;
|
|
||||||
|
|
||||||
type
|
|
||||||
TfrmEditorCPUIDFeatureFlags = class(TForm)
|
|
||||||
GroupBox: TGroupBox;
|
|
||||||
btnCancel: TButton;
|
|
||||||
imgIcons16: TcxImageList;
|
|
||||||
btnApply: TButton;
|
|
||||||
VirtualTreeView: TVirtualStringTree;
|
|
||||||
imgTreeView: TcxImageList;
|
|
||||||
procedure btnApplyClick(Sender: TObject);
|
|
||||||
procedure btnCancelClick(Sender: TObject);
|
|
||||||
procedure FormCreate(Sender: TObject);
|
|
||||||
procedure VirtualTreeViewChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);
|
|
||||||
procedure VirtualTreeViewCollapsing(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
|
||||||
var Allowed: Boolean);
|
|
||||||
procedure VirtualTreeViewFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
|
|
||||||
procedure VirtualTreeViewGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
|
||||||
Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
|
|
||||||
var ImageIndex: System.UITypes.TImageIndex);
|
|
||||||
procedure VirtualTreeViewGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
|
||||||
Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
|
|
||||||
strict private
|
|
||||||
FApplyChanges: Boolean;
|
|
||||||
FFeatureFlags: TCPUIDFeatureFlagSet;
|
|
||||||
strict private
|
|
||||||
procedure SetFeatureFlags(const Value: TCPUIDFeatureFlagSet);
|
|
||||||
public
|
|
||||||
property ApplyChanges: Boolean read FApplyChanges;
|
|
||||||
property FeatureFlags: TCPUIDFeatureFlagSet read FFeatureFlags write SetFeatureFlags;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
frmEditorCPUIDFeatureFlags: TfrmEditorCPUIDFeatureFlags;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
System.TypInfo;
|
|
||||||
|
|
||||||
{$R *.dfm}
|
|
||||||
|
|
||||||
type
|
|
||||||
PNodeData = ^TNodeData;
|
|
||||||
TNodeData = record
|
|
||||||
public
|
|
||||||
Text: String;
|
|
||||||
Value: TCPUIDFeatureFlag;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorCPUIDFeatureFlags.btnApplyClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
FApplyChanges := true;
|
|
||||||
Close;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorCPUIDFeatureFlags.btnCancelClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Close;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorCPUIDFeatureFlags.FormCreate(Sender: TObject);
|
|
||||||
var
|
|
||||||
Root,
|
|
||||||
Node: PVirtualNode;
|
|
||||||
NodeData: PNodeData;
|
|
||||||
C: TCPUIDFeatureFlag;
|
|
||||||
S: String;
|
|
||||||
begin
|
|
||||||
FFeatureFlags := [];
|
|
||||||
VirtualTreeView.NodeDataSize := SizeOf(TNodeData);
|
|
||||||
VirtualTreeView.BeginUpdate;
|
|
||||||
try
|
|
||||||
Root := VirtualTreeView.AddChild(nil);
|
|
||||||
NodeData := VirtualTreeView.GetNodeData(Root);
|
|
||||||
NodeData^.Text := 'CPUID Feature Flags';
|
|
||||||
for C := Low(TCPUIDFeatureFlag) to High(TCPUIDFeatureFlag) do
|
|
||||||
begin
|
|
||||||
Node := VirtualTreeView.AddChild(Root);
|
|
||||||
VirtualTreeView.CheckType[Node] := ctCheckBox;
|
|
||||||
NodeData := VirtualTreeView.GetNodeData(Node);
|
|
||||||
S := GetEnumName(TypeInfo(TCPUIDFeatureFlag), Ord(C));
|
|
||||||
Delete(S, 1, 2);
|
|
||||||
NodeData^.Text := S;
|
|
||||||
NodeData^.Value := C;
|
|
||||||
end;
|
|
||||||
VirtualTreeView.Expanded[Root] := true;
|
|
||||||
finally
|
|
||||||
VirtualTreeView.EndUpdate;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorCPUIDFeatureFlags.SetFeatureFlags(const Value: TCPUIDFeatureFlagSet);
|
|
||||||
var
|
|
||||||
Node: PVirtualNode;
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
VirtualTreeView.BeginUpdate;
|
|
||||||
try
|
|
||||||
Node := VirtualTreeView.GetFirst;
|
|
||||||
while (Assigned(Node)) do
|
|
||||||
begin
|
|
||||||
NodeData := VirtualTreeView.GetNodeData(Node);
|
|
||||||
if (Assigned(NodeData) and (Node.Parent <> VirtualTreeView.RootNode)) then
|
|
||||||
begin
|
|
||||||
if (NodeData^.Value in Value) then
|
|
||||||
begin
|
|
||||||
VirtualTreeView.CheckState[Node] := csCheckedNormal;
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
VirtualTreeView.CheckState[Node] := csUncheckedNormal;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
Node := VirtualTreeView.GetNext(Node);
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
VirtualTreeView.EndUpdate;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorCPUIDFeatureFlags.VirtualTreeViewChecked(Sender: TBaseVirtualTree;
|
|
||||||
Node: PVirtualNode);
|
|
||||||
var
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
NodeData := Sender.GetNodeData(Node);
|
|
||||||
if (Assigned(NodeData)) then
|
|
||||||
begin
|
|
||||||
case Sender.CheckState[Node] of
|
|
||||||
csCheckedNormal:
|
|
||||||
FFeatureFlags := FFeatureFlags + [NodeData^.Value];
|
|
||||||
csUncheckedNormal:
|
|
||||||
FFeatureFlags := FFeatureFlags - [NodeData^.Value];
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorCPUIDFeatureFlags.VirtualTreeViewCollapsing(Sender: TBaseVirtualTree;
|
|
||||||
Node: PVirtualNode; var Allowed: Boolean);
|
|
||||||
begin
|
|
||||||
Allowed := false;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorCPUIDFeatureFlags.VirtualTreeViewFreeNode(Sender: TBaseVirtualTree;
|
|
||||||
Node: PVirtualNode);
|
|
||||||
var
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
NodeData := Sender.GetNodeData(Node);
|
|
||||||
if (Assigned(NodeData)) then
|
|
||||||
begin
|
|
||||||
Finalize(NodeData^);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorCPUIDFeatureFlags.VirtualTreeViewGetImageIndex(Sender: TBaseVirtualTree;
|
|
||||||
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
|
|
||||||
var ImageIndex: System.UITypes.TImageIndex);
|
|
||||||
begin
|
|
||||||
ImageIndex := -1;
|
|
||||||
if (Kind in [ikNormal, ikSelected]) then
|
|
||||||
begin
|
|
||||||
if (Node.Parent = Sender.RootNode) then
|
|
||||||
begin
|
|
||||||
ImageIndex := 0;
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
ImageIndex := 1;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorCPUIDFeatureFlags.VirtualTreeViewGetText(Sender: TBaseVirtualTree;
|
|
||||||
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
|
|
||||||
var
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
NodeData := Sender.GetNodeData(Node);
|
|
||||||
if (Assigned(NodeData)) then
|
|
||||||
begin
|
|
||||||
CellText := NodeData^.Text;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
@ -1,244 +0,0 @@
|
||||||
object frmEditorX86Registers: TfrmEditorX86Registers
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
BorderStyle = bsDialog
|
|
||||||
Caption = 'frmEditorX86Registers'
|
|
||||||
ClientHeight = 471
|
|
||||||
ClientWidth = 694
|
|
||||||
Color = clBtnFace
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
OldCreateOrder = False
|
|
||||||
Position = poScreenCenter
|
|
||||||
OnCreate = FormCreate
|
|
||||||
PixelsPerInch = 96
|
|
||||||
TextHeight = 13
|
|
||||||
object GroupBox: TGroupBox
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 429
|
|
||||||
Width = 688
|
|
||||||
Height = 39
|
|
||||||
Margins.Top = 0
|
|
||||||
Align = alBottom
|
|
||||||
TabOrder = 1
|
|
||||||
DesignSize = (
|
|
||||||
688
|
|
||||||
39)
|
|
||||||
object btnCancel: TButton
|
|
||||||
Left = 568
|
|
||||||
Top = 7
|
|
||||||
Width = 112
|
|
||||||
Height = 25
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
Caption = 'Cancel'
|
|
||||||
ImageIndex = 1
|
|
||||||
ImageMargins.Left = 2
|
|
||||||
ImageMargins.Top = 2
|
|
||||||
Images = imgIcons16
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = btnCancelClick
|
|
||||||
end
|
|
||||||
object btnApply: TButton
|
|
||||||
Left = 450
|
|
||||||
Top = 7
|
|
||||||
Width = 112
|
|
||||||
Height = 25
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
Caption = 'Apply'
|
|
||||||
ImageIndex = 0
|
|
||||||
ImageMargins.Left = 2
|
|
||||||
ImageMargins.Top = 2
|
|
||||||
Images = imgIcons16
|
|
||||||
TabOrder = 0
|
|
||||||
OnClick = btnApplyClick
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object VirtualTreeView: TVirtualStringTree
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 688
|
|
||||||
Height = 423
|
|
||||||
Align = alClient
|
|
||||||
Header.AutoSizeIndex = -1
|
|
||||||
Header.Font.Charset = DEFAULT_CHARSET
|
|
||||||
Header.Font.Color = clWindowText
|
|
||||||
Header.Font.Height = -11
|
|
||||||
Header.Font.Name = 'Tahoma'
|
|
||||||
Header.Font.Style = []
|
|
||||||
Header.MainColumn = -1
|
|
||||||
Images = imgTreeView
|
|
||||||
TabOrder = 0
|
|
||||||
TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
|
|
||||||
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toAlwaysHideSelection, toUseBlendedSelection]
|
|
||||||
TreeOptions.SelectionOptions = [toFullRowSelect]
|
|
||||||
OnChecked = VirtualTreeViewChecked
|
|
||||||
OnCollapsing = VirtualTreeViewCollapsing
|
|
||||||
OnFreeNode = VirtualTreeViewFreeNode
|
|
||||||
OnGetText = VirtualTreeViewGetText
|
|
||||||
OnGetImageIndex = VirtualTreeViewGetImageIndex
|
|
||||||
Columns = <>
|
|
||||||
end
|
|
||||||
object imgIcons16: TcxImageList
|
|
||||||
FormatVersion = 1
|
|
||||||
DesignInfo = 2097208
|
|
||||||
ImageInfo = <
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
20000000000000040000000000000000000000000000000000000000001B0000
|
|
||||||
0033000000330000003300000033000000330000003300000033000000330000
|
|
||||||
0033000000330000003300000033000000330000001B00000000004B29A00089
|
|
||||||
49FF008747FF008747FF008747FF008747FF008747FF008747FF008747FF0087
|
|
||||||
47FF008747FF008747FF008747FF008949FF004B29A000000000008949FF07E4
|
|
||||||
A4FF07E5A5FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4
|
|
||||||
A4FF07E4A4FF07E4A4FF07E5A5FF07E4A4FF008949FF00000000008747FF13E7
|
|
||||||
AAFF00DB9BFF00DA9AFF00DA99FF00DA99FF00DA99FF00DA99FF00DA9AFF00DA
|
|
||||||
9AFF00DA9AFF00DA9AFF00DB9BFF13E7AAFF008747FF00000000008746FF1EE7
|
|
||||||
AEFF00D699FF00D698FF00D495FF00D391FF00D391FF00D495FF00D698FF00D6
|
|
||||||
99FF00D699FF00D699FF00D699FF1EE7AEFF008746FF00000000008746FF2AE9
|
|
||||||
B3FF00D299FF00D095FF00CC8DFFFFFFFFFFFFFFFFFF00CC8DFF00D096FF00D2
|
|
||||||
99FF00D29AFF00D29AFF00D29AFF2AE9B3FF008746FF00000000008746FF35EA
|
|
||||||
B7FF00CD96FF00C98DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00C98DFF00CD
|
|
||||||
96FF00CF99FF00CF9AFF00CF9AFF36EAB8FF008746FF00000000008745FF3EEB
|
|
||||||
BBFF00C692FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00C4
|
|
||||||
8DFF00C995FF00CA99FF00CA99FF41ECBDFF008745FF00000000008745FF4BED
|
|
||||||
BFFF00C393FFFFFFFFFFFFFFFFFF00C08BFF00BF8BFFFFFFFFFFFFFFFFFFFFFF
|
|
||||||
FFFF00C18EFF00C596FF00C699FF4DEDC0FF008745FF00000000008744FF58EF
|
|
||||||
C5FF00C197FF00BF93FF00C093FF00C196FF00C196FF00BC8EFFFFFFFFFFFFFF
|
|
||||||
FFFFFFFFFFFF00BC8EFF00C096FF58EFC5FF008744FF00000000008744FF64F1
|
|
||||||
CAFF00BE99FF00C099FF00C09AFF00C19BFF00C19AFF00BE97FF00B98EFFFFFF
|
|
||||||
FFFFFFFFFFFFFFFFFFFF00BA92FF62F0C9FF008744FF00000000008744FF71F2
|
|
||||||
CFFF00BB99FF00BD9AFF00BE9BFF00BE9BFF00BE9BFF00BE9AFF00BB96FF00B6
|
|
||||||
8EFFFFFFFFFFFFFFFFFF00B792FF6EF2CDFF008744FF00000000008744FF7BF4
|
|
||||||
D3FF00B699FF00B89AFF00B99BFF00B99BFF00B99BFF00B99BFF00B89AFF00B7
|
|
||||||
98FF00B494FF00B493FF00B496FF7AF3D3FF008744FF00000000008744FF86F5
|
|
||||||
D8FF00B198FF00B299FF00B399FF00B399FF00B399FF00B399FF00B399FF00B2
|
|
||||||
99FF00B298FF00B297FF00B197FF86F5D8FF008744FF00000000008946FF8AF2
|
|
||||||
D9FF92F6DEFF93F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6
|
|
||||||
DDFF94F6DDFF93F6DDFF92F6DEFF8AF2D9FF008946FF00000000004B29880089
|
|
||||||
46FF008743FF008643FF008643FF008643FF008643FF008643FF008643FF0086
|
|
||||||
43FF008643FF008643FF008743FF008946FF004B298800000000}
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000000000
|
|
||||||
0013000000330000003300000033000000330000003300000033000000330000
|
|
||||||
0033000000330000003300000033000000330000003300000013000000001117
|
|
||||||
487E2D3CC0FF2B3BBEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3A
|
|
||||||
BEFF2A3ABEFF2A3ABEFF2A3ABEFF2B3BBEFF2D3CC0FF1117487E000000002D3D
|
|
||||||
C0FF6172FAFF6A7DFFFF697CFFFF6D80FFFF7485FFFF7788FFFF7788FFFF7788
|
|
||||||
FFFF7485FFFF6D7FFFFF697CFFFF6A7DFFFF6172FAFF2D3DC0FF000000002B3B
|
|
||||||
BEFF6578FFFF5F73FEFF6F80FFFF7989FFFF5868E6FF3E4ED0FF3F4FD1FF3E4E
|
|
||||||
D0FF5767E5FF7887FEFF6E7FFFFF5F73FEFF6578FFFF2B3BBEFF000000002B3B
|
|
||||||
BEFF5D72FFFF697BFEFF7785F8FF3949CAFF1E2A89B70B0F303F07091D26070A
|
|
||||||
1F552636B9FF5A6FFDFF576CFAFF687AFCFF5D71FFFF2B3BBEFF000000002C3B
|
|
||||||
BFFF586EFEFF8593FFFF3B4BCAFF0E143F530000000000000000000000332B3A
|
|
||||||
BDFF5970FEFF546AFBFF7F8FFFFF8290FDFF586EFEFF2C3BBFFF000000002C3C
|
|
||||||
BFFF536BFCFF707CE7FF1E2A89BB0000000000000000000000332C3BBEFF546B
|
|
||||||
FBFF5067F8FF8796FFFF3B4BCDFF6D79E5FF536AFCFF2C3CBFFF000000002D3D
|
|
||||||
BFFF4F68FBFF4E5BD1FF0B0F304500000000000000332C3BBEFF4E66F9FF4A63
|
|
||||||
F6FF8C99FFFF2737BCFF07091F314D5AD0FF4F68FBFF2D3DBFFF000000002E3D
|
|
||||||
C0FF4A64F9FF3446CDFF07091D2D000000332D3CBEFF4862F7FF445DF4FF8E9C
|
|
||||||
FFFF2838BDFF0000000007091D313446CDFF4A64F9FF2E3DC0FF000000002E3D
|
|
||||||
C0FF4660F7FF3445CCFF080A20552D3CBEFF445DF4FF3F59F1FF929FFFFF2838
|
|
||||||
BDFF00000000000000000C0F305B3445CDFF4660F7FF2E3DC0FF000000002E3E
|
|
||||||
C0FF405BF3FF384DDBFF2E3CBCFF3E59F2FF3954EFFF95A2FFFF2838BDFF0000
|
|
||||||
00000000000000000011222D8AC5384EDCFF405BF3FF2E3EC0FF000000002F3E
|
|
||||||
C0FF3955F0FF3951EAFF3954EEFF3651EDFF9AA5FFFF2838BDFF000000080000
|
|
||||||
000D0000002510153F753041C8FF3A53EBFF3A55F0FF2F3EC0FF000000002E3D
|
|
||||||
BFFF3A54EFFF324DE9FF334DE9FF324DEBFF2A39BCFF070A1F5507091D510B0F
|
|
||||||
3065212D8AC52F41C8FF314CE4FF324DEBFF3A54EFFF2E3DBFFF000000002B3B
|
|
||||||
BFFF6A7DFDFF334EE8FF2643E4FF2642E3FF253CD4FF2739C7FF273AC8FF273A
|
|
||||||
C8FF263DD5FF2743E5FF2643E6FF334EE9FF6A7DFDFF2B3BBFFF000000002B3B
|
|
||||||
C0FF929DFCFFAAB3FFFFAAB3FFFFAAB3FFFFAAB4FFFFAAB4FFFFAAB4FFFFAAB4
|
|
||||||
FFFFAAB4FFFFAAB3FFFFAAB3FFFFAAB3FFFF929DFCFF2B3BC0FF000000001117
|
|
||||||
485E2A3AC0FF2838BFFF2737BEFF2737BEFF2737BEFF2737BFFF2737BFFF2737
|
|
||||||
BFFF2737BEFF2737BEFF2737BEFF2838BFFF2A3AC0FF1117485E}
|
|
||||||
end>
|
|
||||||
end
|
|
||||||
object imgTreeView: TcxImageList
|
|
||||||
FormatVersion = 1
|
|
||||||
DesignInfo = 2097288
|
|
||||||
ImageInfo = <
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000300000
|
|
||||||
0033000000330000003300000033000000330000003300000033000000330000
|
|
||||||
00330000003300000033000000330000002F00000000000000004190C6F24398
|
|
||||||
D2FF4094D0FF3E92CFFF3E92CEFF3F92CEFF3F92CEFF3F92CEFF3F92CEFF3F92
|
|
||||||
CEFF3F92CEFF3F92CEFF3F93CFFF3D8BC2F00000000E000000004499D2FF3F94
|
|
||||||
D0FFABFBFFFF9BF3FFFF92F1FFFF93F1FFFF93F1FFFF93F1FFFF93F1FFFF93F1
|
|
||||||
FFFF93F1FFFF93F1FFFFA6F8FFFF65B8E3FF122A3A5F000000004398D2FF4FA6
|
|
||||||
D9FF8EDAF5FFA2EEFFFF82E5FEFF84E5FEFF84E5FEFF85E6FEFF85E6FEFF85E6
|
|
||||||
FEFF85E6FEFF84E6FEFF96EBFFFF8CD8F5FF296088B8000000004296D1FF6BBE
|
|
||||||
E8FF6DBDE6FFBBF2FFFF75DEFDFF77DEFCFF78DEFCFF7BDFFCFF7DDFFCFF7DDF
|
|
||||||
FCFF7DDFFCFF7CDFFCFF80E0FDFFADF0FFFF4D9DD3FF0000000E4095D0FF8AD7
|
|
||||||
F5FF44A1D8FFDDFDFFFFDAFAFFFFDBFAFFFFDEFAFFFF74DCFCFF76DBFAFF75DA
|
|
||||||
FAFF74DAFAFF74DAFAFF72D9FAFFA1E8FFFF7CBFE6FF12293A5E3E94D0FFABF0
|
|
||||||
FFFF449DD6FF368CCBFF368CCBFF368CCBFF378BCBFF5CBEEAFF6FD9FBFF6AD6
|
|
||||||
FAFF68D5F9FF67D4F9FF66D4F9FF82DEFCFFAAE0F6FF296088B93D92CFFFB9F4
|
|
||||||
FFFF73DBFBFF6BCCF2FF6CCDF3FF6CCEF3FF6DCEF3FF479CD4FF56BAE9FFDAF8
|
|
||||||
FFFFD7F6FFFFD6F6FFFFD5F6FFFFD5F7FFFFDBFCFFFF3E94D0FF3C92CFFFC0F3
|
|
||||||
FFFF71DAFBFF74DBFBFF75DBFCFF75DBFCFF76DCFCFF73DAFAFF449CD4FF378C
|
|
||||||
CBFF368CCBFF358CCCFF348DCCFF3890CEFF3D94D0FF3E8CC2EB3B92CFFFCAF6
|
|
||||||
FFFF69D5F9FF6CD5F9FF6BD5F9FF69D5F9FF69D5FAFF6AD7FBFF68D4FAFF5EC7
|
|
||||||
F1FF5EC7F2FF5DC8F2FFB4E3F8FF3D94D0FF1A3B5269000000003B92CFFFD5F7
|
|
||||||
FFFF60D1F9FF61D0F8FFB4EBFDFFD9F6FFFFDAF8FFFFDAF8FFFFDBF9FFFFDCFA
|
|
||||||
FFFFDCFAFFFFDCFBFFFFE0FFFFFF3E95D0FF0E1F2A33000000003D94D0FFDCFC
|
|
||||||
FFFFD8F7FFFFD8F7FFFFDBFAFFFF358ECDFF3991CEFF3A92CFFF3A92CFFF3A92
|
|
||||||
CFFF3A92CFFF3B92CFFF3D94D0FF3880B1D700000000000000002E6991B03D94
|
|
||||||
D0FF3A92CFFF3A92CFFF3D94D0FF367CACD20000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000}
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000330000000000000033000000000000003300000000000000330000
|
|
||||||
000000000033000000000000003300000000000000330000000C000000000000
|
|
||||||
0000519DD5FF00000005519DD3FF00000005519DD3FF00000005519DD3FF0000
|
|
||||||
0005519DD3FF00000005519DD3FF000000055299CBFF14253046000000000000
|
|
||||||
002E50A0D9FF0A090947509FD8FF0A090947509FD8FF0A090947509FD8FF0A09
|
|
||||||
0947509FD8FF0A090947509FD8FF0A090947519CD2FF0F1D2755000000005C5B
|
|
||||||
5AEC666361FF676462FF676461FF676462FF676461FF676462FF676461FF6764
|
|
||||||
62FF676461FF676462FF676461FF676361FF67625EFF5D5653EA000000006565
|
|
||||||
65FF625F5DFF585554FF585554FF585554FF585554FF585554FF585554FF5855
|
|
||||||
54FF585554FF585654FF595655FF585554FF625E5DFF656564FF000000006565
|
|
||||||
65FF6E6C6BFF52504FFF4F4D4CFF4E4C4BFF4F4C4BFF4F4D4CFF4F4D4CFF4F4D
|
|
||||||
4CFF4F4D4CFF514F4EFF545251FF545251FF6F6C6BFF656565FF000000006364
|
|
||||||
64FF7B7A79FF4A4847FFC1C0C0FFB1B0AFFFA7A6A6FF878585FFCECDCDFFAAA9
|
|
||||||
A9FF939291FFC5C4C4FF4E4C4AFF504E4DFF7C7C7AFF636464FF000000006363
|
|
||||||
63FF888686FF424040FFDCDCDCFFD5D6D6FFC0C0C0FFBAB9B9FF3A3838FFBBBA
|
|
||||||
BBFF747373FFCDCCCCFF494747FF4C4A4AFF8A8888FF636363FF000000006262
|
|
||||||
62FF969595FF403E3EFFE1E0E0FFCFCECEFFC5C4C4FFA5A3A3FFA7A7A5FFC9C8
|
|
||||||
C8FFBEBDBDFF9F9F9FFF484646FF484646FF979696FF626262FF000000006161
|
|
||||||
61FFA5A4A4FF3E3C3CFF3D3B3BFF3C3A3AFF3C3A3AFF3E3C3CFF3F3D3DFF3E3B
|
|
||||||
3BFF3E3C3CFF413F3FFF444242FF423F3FFFA5A4A4FF616161FF000000006161
|
|
||||||
61FFB5B4B3FF8D8B8AFF8F8C8CFF8F8C8CFF8F8C8CFF8F8D8CFF8F8D8CFF8F8D
|
|
||||||
8CFF8F8D8CFF908D8DFF908D8DFF8E8B8BFFB5B4B3FF616161FF000000004341
|
|
||||||
40AA625F5CFF625F5CFF635F5DFF63605DFF63605DFF63605DFF63605DFF6360
|
|
||||||
5DFF63605DFF63605DFF635F5DFF625F5CFF625F5CFF535150D4000000000000
|
|
||||||
0000509CD3FF00000000509CD3FF00000000509CD3FF00000000509CD3FF0000
|
|
||||||
0000509CD3FF00000000509CD3FF00000000509CD3FF00000000000000000000
|
|
||||||
00005397C8FF000000005397C7FF000000005397C7FF000000005397C7FF0000
|
|
||||||
00005397C7FF000000005397C7FF000000005397C8FF00000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000}
|
|
||||||
end>
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
@ -1,270 +0,0 @@
|
||||||
unit formEditorX86Registers;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
|
|
||||||
System.UITypes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Zydis.InstructionEditor,
|
|
||||||
System.ImageList, Vcl.ImgList, cxGraphics, Vcl.StdCtrls, VirtualTrees;
|
|
||||||
|
|
||||||
type
|
|
||||||
TfrmEditorX86Registers = class(TForm)
|
|
||||||
GroupBox: TGroupBox;
|
|
||||||
btnCancel: TButton;
|
|
||||||
btnApply: TButton;
|
|
||||||
imgIcons16: TcxImageList;
|
|
||||||
VirtualTreeView: TVirtualStringTree;
|
|
||||||
imgTreeView: TcxImageList;
|
|
||||||
procedure btnApplyClick(Sender: TObject);
|
|
||||||
procedure btnCancelClick(Sender: TObject);
|
|
||||||
procedure FormCreate(Sender: TObject);
|
|
||||||
procedure VirtualTreeViewFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
|
|
||||||
procedure VirtualTreeViewGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
|
||||||
Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
|
|
||||||
var ImageIndex: System.UITypes.TImageIndex);
|
|
||||||
procedure VirtualTreeViewGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
|
||||||
Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
|
|
||||||
procedure VirtualTreeViewCollapsing(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
|
||||||
var Allowed: Boolean);
|
|
||||||
procedure VirtualTreeViewChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);
|
|
||||||
strict private
|
|
||||||
FApplyChanges: Boolean;
|
|
||||||
FRegisters: TX86RegisterSet;
|
|
||||||
strict private
|
|
||||||
procedure SetRegisters(const Value: TX86RegisterSet);
|
|
||||||
public
|
|
||||||
property ApplyChanges: Boolean read FApplyChanges;
|
|
||||||
property Registers: TX86RegisterSet read FRegisters write SetRegisters;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
frmEditorX86Registers: TfrmEditorX86Registers;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
System.TypInfo;
|
|
||||||
|
|
||||||
{$R *.dfm}
|
|
||||||
|
|
||||||
type
|
|
||||||
PNodeData = ^TNodeData;
|
|
||||||
TNodeData = record
|
|
||||||
public
|
|
||||||
IsCategory: Boolean;
|
|
||||||
Text: String;
|
|
||||||
Value: TX86Register;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TfrmEditorX86Registers }
|
|
||||||
|
|
||||||
procedure TfrmEditorX86Registers.btnApplyClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
FApplyChanges := true;
|
|
||||||
Close;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorX86Registers.btnCancelClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Close;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorX86Registers.FormCreate(Sender: TObject);
|
|
||||||
|
|
||||||
function AddCategory(Root: PVirtualNode; const Text: String): PVirtualNode;
|
|
||||||
var
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
Result := VirtualTreeView.AddChild(Root);
|
|
||||||
if (Assigned(Root)) then
|
|
||||||
begin
|
|
||||||
VirtualTreeView.CheckType[Result] := ctTriStateCheckBox;
|
|
||||||
end;
|
|
||||||
NodeData := VirtualTreeView.GetNodeData(Result);
|
|
||||||
NodeData^.IsCategory := true;
|
|
||||||
NodeData^.Text := Text;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure AddRegisterRange(Root: PVirtualNode; RegisterLow, RegisterHigh: TX86Register);
|
|
||||||
var
|
|
||||||
Node: PVirtualNode;
|
|
||||||
NodeData: PNodeData;
|
|
||||||
R: TX86Register;
|
|
||||||
S: String;
|
|
||||||
begin
|
|
||||||
for R := RegisterLow to RegisterHigh do
|
|
||||||
begin
|
|
||||||
Node := VirtualTreeView.AddChild(Root);
|
|
||||||
VirtualTreeView.CheckType[Node] := ctTriStateCheckBox;
|
|
||||||
NodeData := VirtualTreeView.GetNodeData(Node);
|
|
||||||
NodeData^.IsCategory := false;
|
|
||||||
S := GetEnumName(TypeInfo(TX86Register), Ord(R));
|
|
||||||
Delete(S, 1, 3);
|
|
||||||
NodeData^.Text := S;
|
|
||||||
NodeData^.Value := R;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
Root, N1, N2: PVirtualNode;
|
|
||||||
begin
|
|
||||||
FRegisters := [];
|
|
||||||
VirtualTreeView.NodeDataSize := SizeOf(TNodeData);
|
|
||||||
VirtualTreeView.BeginUpdate;
|
|
||||||
try
|
|
||||||
Root := AddCategory(nil, 'Root');
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'General Purpose Registers');
|
|
||||||
N2 := AddCategory(N1, '64-bit');
|
|
||||||
AddRegisterRange(N2, regRAX, regR15);
|
|
||||||
N2 := AddCategory(N1, '32-bit');
|
|
||||||
AddRegisterRange(N2, regEAX, regR15D);
|
|
||||||
N2 := AddCategory(N1, '16-bit');
|
|
||||||
AddRegisterRange(N2, regAX, regR15W);
|
|
||||||
N2 := AddCategory(N1, '8-bit');
|
|
||||||
AddRegisterRange(N2, regAL, regR15B);
|
|
||||||
VirtualTreeView.Expanded[N1] := true;
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Floating Point Registers');
|
|
||||||
N2 := AddCategory(N1, 'Legacy');
|
|
||||||
AddRegisterRange(N2, regST0, regST7);
|
|
||||||
N2 := AddCategory(N1, 'Multimedia');
|
|
||||||
AddRegisterRange(N2, regMM0, regMM7);
|
|
||||||
VirtualTreeView.Expanded[N1] := true;
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Vector Registers');
|
|
||||||
N2 := AddCategory(N1, '512-bit');
|
|
||||||
AddRegisterRange(N2, regZMM0, regZMM31);
|
|
||||||
N2 := AddCategory(N1, '256-bit');
|
|
||||||
AddRegisterRange(N2, regYMM0, regYMM31);
|
|
||||||
N2 := AddCategory(N1, '128-bit');
|
|
||||||
AddRegisterRange(N2, regXMM0, regXMM31);
|
|
||||||
VirtualTreeView.Expanded[N1] := true;
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Special Registers');
|
|
||||||
AddRegisterRange(N1, regRFLAGS, regXCR0);
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Segment Registers');
|
|
||||||
AddRegisterRange(N1, regES, regFS);
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Table Registers');
|
|
||||||
AddRegisterRange(N1, regGDTR, regTR);
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Test Registers');
|
|
||||||
AddRegisterRange(N1, regTR0, regTR7);
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Control Registers');
|
|
||||||
AddRegisterRange(N1, regCR0, regCR15);
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Debug Registers');
|
|
||||||
AddRegisterRange(N1, regDR0, regDR15);
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Mask Registers');
|
|
||||||
AddRegisterRange(N1, regK0, regK7);
|
|
||||||
|
|
||||||
N1 := AddCategory(Root, 'Bound Registers');
|
|
||||||
AddRegisterRange(N1, regBND0, regBNDSTATUS);
|
|
||||||
|
|
||||||
VirtualTreeView.Expanded[Root] := true;
|
|
||||||
finally
|
|
||||||
VirtualTreeView.EndUpdate;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorX86Registers.VirtualTreeViewChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);
|
|
||||||
var
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
NodeData := Sender.GetNodeData(Node);
|
|
||||||
if (Assigned(NodeData) and (not NodeData^.IsCategory)) then
|
|
||||||
begin
|
|
||||||
case Sender.CheckState[Node] of
|
|
||||||
csCheckedNormal:
|
|
||||||
FRegisters := FRegisters + [NodeData^.Value];
|
|
||||||
csUncheckedNormal:
|
|
||||||
FRegisters := FRegisters - [NodeData^.Value];
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorX86Registers.VirtualTreeViewCollapsing(Sender: TBaseVirtualTree;
|
|
||||||
Node: PVirtualNode; var Allowed: Boolean);
|
|
||||||
begin
|
|
||||||
Allowed := (Node.Parent <> Sender.RootNode);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorX86Registers.VirtualTreeViewFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
|
|
||||||
var
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
NodeData := Sender.GetNodeData(Node);
|
|
||||||
if (Assigned(NodeData)) then
|
|
||||||
begin
|
|
||||||
Finalize(NodeData^);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorX86Registers.VirtualTreeViewGetImageIndex(Sender: TBaseVirtualTree;
|
|
||||||
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
|
|
||||||
var ImageIndex: System.UITypes.TImageIndex);
|
|
||||||
var
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
ImageIndex := -1;
|
|
||||||
if (Kind in [ikNormal, ikSelected]) then
|
|
||||||
begin
|
|
||||||
NodeData := Sender.GetNodeData(Node);
|
|
||||||
if (Assigned(NodeData)) then
|
|
||||||
begin
|
|
||||||
if (NodeData^.IsCategory) then
|
|
||||||
begin
|
|
||||||
ImageIndex := 0;
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
ImageIndex := 1;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorX86Registers.VirtualTreeViewGetText(Sender: TBaseVirtualTree;
|
|
||||||
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
|
|
||||||
var
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
NodeData := Sender.GetNodeData(Node);
|
|
||||||
if (Assigned(NodeData)) then
|
|
||||||
begin
|
|
||||||
CellText := NodeData^.Text;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmEditorX86Registers.SetRegisters(const Value: TX86RegisterSet);
|
|
||||||
var
|
|
||||||
Node: PVirtualNode;
|
|
||||||
NodeData: PNodeData;
|
|
||||||
begin
|
|
||||||
VirtualTreeView.BeginUpdate;
|
|
||||||
try
|
|
||||||
Node := VirtualTreeView.GetFirst;
|
|
||||||
while (Assigned(Node)) do
|
|
||||||
begin
|
|
||||||
NodeData := VirtualTreeView.GetNodeData(Node);
|
|
||||||
if (Assigned(NodeData) and (not NodeData^.IsCategory)) then
|
|
||||||
begin
|
|
||||||
if (NodeData^.Value in Value) then
|
|
||||||
begin
|
|
||||||
VirtualTreeView.CheckState[Node] := csCheckedNormal;
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
VirtualTreeView.CheckState[Node] := csUncheckedNormal;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
Node := VirtualTreeView.GetNext(Node);
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
VirtualTreeView.EndUpdate;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
@ -1,203 +0,0 @@
|
||||||
object frmCodeGenerator: TfrmCodeGenerator
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
BorderStyle = bsDialog
|
|
||||||
Caption = 'Code Generator'
|
|
||||||
ClientHeight = 204
|
|
||||||
ClientWidth = 449
|
|
||||||
Color = clBtnFace
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
OldCreateOrder = False
|
|
||||||
Position = poScreenCenter
|
|
||||||
PixelsPerInch = 96
|
|
||||||
TextHeight = 13
|
|
||||||
object GroupBox: TGroupBox
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 162
|
|
||||||
Width = 443
|
|
||||||
Height = 39
|
|
||||||
Margins.Top = 0
|
|
||||||
Align = alBottom
|
|
||||||
TabOrder = 0
|
|
||||||
DesignSize = (
|
|
||||||
443
|
|
||||||
39)
|
|
||||||
object btnClose: TButton
|
|
||||||
Left = 323
|
|
||||||
Top = 7
|
|
||||||
Width = 112
|
|
||||||
Height = 25
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
Caption = 'Close'
|
|
||||||
ImageIndex = 1
|
|
||||||
ImageMargins.Left = 2
|
|
||||||
ImageMargins.Top = 2
|
|
||||||
Images = imgIcons16
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = btnCloseClick
|
|
||||||
end
|
|
||||||
object btnGenerate: TButton
|
|
||||||
Left = 205
|
|
||||||
Top = 7
|
|
||||||
Width = 112
|
|
||||||
Height = 25
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
Caption = 'Generate'
|
|
||||||
ImageIndex = 0
|
|
||||||
ImageMargins.Left = 2
|
|
||||||
ImageMargins.Top = 2
|
|
||||||
Images = imgIcons16
|
|
||||||
TabOrder = 0
|
|
||||||
OnClick = btnGenerateClick
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object PageControl1: TPageControl
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 443
|
|
||||||
Height = 156
|
|
||||||
ActivePage = TabSheet1
|
|
||||||
Align = alClient
|
|
||||||
TabOrder = 1
|
|
||||||
object TabSheet1: TTabSheet
|
|
||||||
Caption = 'Code Generator'
|
|
||||||
object GroupBox1: TGroupBox
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 429
|
|
||||||
Height = 122
|
|
||||||
Align = alClient
|
|
||||||
TabOrder = 0
|
|
||||||
DesignSize = (
|
|
||||||
429
|
|
||||||
122)
|
|
||||||
object Label1: TLabel
|
|
||||||
Left = 16
|
|
||||||
Top = 16
|
|
||||||
Width = 73
|
|
||||||
Height = 13
|
|
||||||
Caption = 'Total Progress:'
|
|
||||||
end
|
|
||||||
object Label2: TLabel
|
|
||||||
Left = 16
|
|
||||||
Top = 64
|
|
||||||
Width = 92
|
|
||||||
Height = 13
|
|
||||||
Caption = 'Current Operation:'
|
|
||||||
end
|
|
||||||
object lblOperationName: TLabel
|
|
||||||
Left = 114
|
|
||||||
Top = 64
|
|
||||||
Width = 3
|
|
||||||
Height = 13
|
|
||||||
end
|
|
||||||
object pbTotalProgress: TProgressBar
|
|
||||||
Left = 16
|
|
||||||
Top = 35
|
|
||||||
Width = 398
|
|
||||||
Height = 17
|
|
||||||
Anchors = [akLeft, akTop, akRight]
|
|
||||||
ParentShowHint = False
|
|
||||||
ShowHint = False
|
|
||||||
TabOrder = 0
|
|
||||||
end
|
|
||||||
object pbCurrentOperation: TProgressBar
|
|
||||||
Left = 16
|
|
||||||
Top = 83
|
|
||||||
Width = 398
|
|
||||||
Height = 17
|
|
||||||
Anchors = [akLeft, akTop, akRight]
|
|
||||||
ParentShowHint = False
|
|
||||||
ShowHint = False
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object imgIcons16: TcxImageList
|
|
||||||
FormatVersion = 1
|
|
||||||
DesignInfo = 524392
|
|
||||||
ImageInfo = <
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
20000000000000040000000000000000000000000000000000000000001B0000
|
|
||||||
0033000000330000003300000033000000330000003300000033000000330000
|
|
||||||
0033000000330000003300000033000000330000001B00000000004B29A00089
|
|
||||||
49FF008747FF008747FF008747FF008747FF008747FF008747FF008747FF0087
|
|
||||||
47FF008747FF008747FF008747FF008949FF004B29A000000000008949FF07E4
|
|
||||||
A4FF07E5A5FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4
|
|
||||||
A4FF07E4A4FF07E4A4FF07E5A5FF07E4A4FF008949FF00000000008747FF13E7
|
|
||||||
AAFF00DB9BFF00DA9AFF00DA99FF00DA99FF00DA99FF00DA99FF00DA9AFF00DA
|
|
||||||
9AFF00DA9AFF00DA9AFF00DB9BFF13E7AAFF008747FF00000000008746FF1EE7
|
|
||||||
AEFF00D699FF00D698FF00D495FF00D391FF00D391FF00D495FF00D698FF00D6
|
|
||||||
99FF00D699FF00D699FF00D699FF1EE7AEFF008746FF00000000008746FF2AE9
|
|
||||||
B3FF00D299FF00D095FF00CC8DFFFFFFFFFFFFFFFFFF00CC8DFF00D096FF00D2
|
|
||||||
99FF00D29AFF00D29AFF00D29AFF2AE9B3FF008746FF00000000008746FF35EA
|
|
||||||
B7FF00CD96FF00C98DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00C98DFF00CD
|
|
||||||
96FF00CF99FF00CF9AFF00CF9AFF36EAB8FF008746FF00000000008745FF3EEB
|
|
||||||
BBFF00C692FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00C4
|
|
||||||
8DFF00C995FF00CA99FF00CA99FF41ECBDFF008745FF00000000008745FF4BED
|
|
||||||
BFFF00C393FFFFFFFFFFFFFFFFFF00C08BFF00BF8BFFFFFFFFFFFFFFFFFFFFFF
|
|
||||||
FFFF00C18EFF00C596FF00C699FF4DEDC0FF008745FF00000000008744FF58EF
|
|
||||||
C5FF00C197FF00BF93FF00C093FF00C196FF00C196FF00BC8EFFFFFFFFFFFFFF
|
|
||||||
FFFFFFFFFFFF00BC8EFF00C096FF58EFC5FF008744FF00000000008744FF64F1
|
|
||||||
CAFF00BE99FF00C099FF00C09AFF00C19BFF00C19AFF00BE97FF00B98EFFFFFF
|
|
||||||
FFFFFFFFFFFFFFFFFFFF00BA92FF62F0C9FF008744FF00000000008744FF71F2
|
|
||||||
CFFF00BB99FF00BD9AFF00BE9BFF00BE9BFF00BE9BFF00BE9AFF00BB96FF00B6
|
|
||||||
8EFFFFFFFFFFFFFFFFFF00B792FF6EF2CDFF008744FF00000000008744FF7BF4
|
|
||||||
D3FF00B699FF00B89AFF00B99BFF00B99BFF00B99BFF00B99BFF00B89AFF00B7
|
|
||||||
98FF00B494FF00B493FF00B496FF7AF3D3FF008744FF00000000008744FF86F5
|
|
||||||
D8FF00B198FF00B299FF00B399FF00B399FF00B399FF00B399FF00B399FF00B2
|
|
||||||
99FF00B298FF00B297FF00B197FF86F5D8FF008744FF00000000008946FF8AF2
|
|
||||||
D9FF92F6DEFF93F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6
|
|
||||||
DDFF94F6DDFF93F6DDFF92F6DEFF8AF2D9FF008946FF00000000004B29880089
|
|
||||||
46FF008743FF008643FF008643FF008643FF008643FF008643FF008643FF0086
|
|
||||||
43FF008643FF008643FF008743FF008946FF004B298800000000}
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000000000
|
|
||||||
0013000000330000003300000033000000330000003300000033000000330000
|
|
||||||
0033000000330000003300000033000000330000003300000013000000001117
|
|
||||||
487E2D3CC0FF2B3BBEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3A
|
|
||||||
BEFF2A3ABEFF2A3ABEFF2A3ABEFF2B3BBEFF2D3CC0FF1117487E000000002D3D
|
|
||||||
C0FF6172FAFF6A7DFFFF697CFFFF6D80FFFF7485FFFF7788FFFF7788FFFF7788
|
|
||||||
FFFF7485FFFF6D7FFFFF697CFFFF6A7DFFFF6172FAFF2D3DC0FF000000002B3B
|
|
||||||
BEFF6578FFFF5F73FEFF6F80FFFF7989FFFF5868E6FF3E4ED0FF3F4FD1FF3E4E
|
|
||||||
D0FF5767E5FF7887FEFF6E7FFFFF5F73FEFF6578FFFF2B3BBEFF000000002B3B
|
|
||||||
BEFF5D72FFFF697BFEFF7785F8FF3949CAFF1E2A89B70B0F303F07091D26070A
|
|
||||||
1F552636B9FF5A6FFDFF576CFAFF687AFCFF5D71FFFF2B3BBEFF000000002C3B
|
|
||||||
BFFF586EFEFF8593FFFF3B4BCAFF0E143F530000000000000000000000332B3A
|
|
||||||
BDFF5970FEFF546AFBFF7F8FFFFF8290FDFF586EFEFF2C3BBFFF000000002C3C
|
|
||||||
BFFF536BFCFF707CE7FF1E2A89BB0000000000000000000000332C3BBEFF546B
|
|
||||||
FBFF5067F8FF8796FFFF3B4BCDFF6D79E5FF536AFCFF2C3CBFFF000000002D3D
|
|
||||||
BFFF4F68FBFF4E5BD1FF0B0F304500000000000000332C3BBEFF4E66F9FF4A63
|
|
||||||
F6FF8C99FFFF2737BCFF07091F314D5AD0FF4F68FBFF2D3DBFFF000000002E3D
|
|
||||||
C0FF4A64F9FF3446CDFF07091D2D000000332D3CBEFF4862F7FF445DF4FF8E9C
|
|
||||||
FFFF2838BDFF0000000007091D313446CDFF4A64F9FF2E3DC0FF000000002E3D
|
|
||||||
C0FF4660F7FF3445CCFF080A20552D3CBEFF445DF4FF3F59F1FF929FFFFF2838
|
|
||||||
BDFF00000000000000000C0F305B3445CDFF4660F7FF2E3DC0FF000000002E3E
|
|
||||||
C0FF405BF3FF384DDBFF2E3CBCFF3E59F2FF3954EFFF95A2FFFF2838BDFF0000
|
|
||||||
00000000000000000011222D8AC5384EDCFF405BF3FF2E3EC0FF000000002F3E
|
|
||||||
C0FF3955F0FF3951EAFF3954EEFF3651EDFF9AA5FFFF2838BDFF000000080000
|
|
||||||
000D0000002510153F753041C8FF3A53EBFF3A55F0FF2F3EC0FF000000002E3D
|
|
||||||
BFFF3A54EFFF324DE9FF334DE9FF324DEBFF2A39BCFF070A1F5507091D510B0F
|
|
||||||
3065212D8AC52F41C8FF314CE4FF324DEBFF3A54EFFF2E3DBFFF000000002B3B
|
|
||||||
BFFF6A7DFDFF334EE8FF2643E4FF2642E3FF253CD4FF2739C7FF273AC8FF273A
|
|
||||||
C8FF263DD5FF2743E5FF2643E6FF334EE9FF6A7DFDFF2B3BBFFF000000002B3B
|
|
||||||
C0FF929DFCFFAAB3FFFFAAB3FFFFAAB3FFFFAAB4FFFFAAB4FFFFAAB4FFFFAAB4
|
|
||||||
FFFFAAB4FFFFAAB3FFFFAAB3FFFFAAB3FFFF929DFCFF2B3BC0FF000000001117
|
|
||||||
485E2A3AC0FF2838BFFF2737BEFF2737BEFF2737BEFF2737BFFF2737BFFF2737
|
|
||||||
BFFF2737BEFF2737BEFF2737BEFF2838BFFF2A3AC0FF1117485E}
|
|
||||||
end>
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
@ -1,115 +0,0 @@
|
||||||
unit formCodeGenerator;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
||||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList, cxGraphics, Vcl.StdCtrls,
|
|
||||||
Vcl.ComCtrls, Zydis.InstructionEditor;
|
|
||||||
|
|
||||||
type
|
|
||||||
TfrmCodeGenerator = class(TForm)
|
|
||||||
GroupBox: TGroupBox;
|
|
||||||
btnClose: TButton;
|
|
||||||
btnGenerate: TButton;
|
|
||||||
imgIcons16: TcxImageList;
|
|
||||||
PageControl1: TPageControl;
|
|
||||||
TabSheet1: TTabSheet;
|
|
||||||
GroupBox1: TGroupBox;
|
|
||||||
pbTotalProgress: TProgressBar;
|
|
||||||
Label1: TLabel;
|
|
||||||
pbCurrentOperation: TProgressBar;
|
|
||||||
Label2: TLabel;
|
|
||||||
lblOperationName: TLabel;
|
|
||||||
procedure btnCloseClick(Sender: TObject);
|
|
||||||
procedure btnGenerateClick(Sender: TObject);
|
|
||||||
strict private
|
|
||||||
FEditor: TInstructionEditor;
|
|
||||||
strict private
|
|
||||||
procedure GeneratorWorkStart(Sender: TObject; const OperationName: String;
|
|
||||||
OperationCount, OperationNumber: Integer; MinWorkCount, MaxWorkCount: Integer);
|
|
||||||
procedure GeneratorWork(Sender: TObject; WorkCount: Integer);
|
|
||||||
procedure GeneratorWorkEnd(Sender: TObject);
|
|
||||||
public
|
|
||||||
property Editor: TInstructionEditor read FEditor write FEditor;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
frmCodeGenerator: TfrmCodeGenerator;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
Zydis.CodeGenerator, untHelperClasses;
|
|
||||||
|
|
||||||
{$R *.dfm}
|
|
||||||
|
|
||||||
{ TfrmGenerator }
|
|
||||||
|
|
||||||
procedure TfrmCodeGenerator.btnCloseClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Close;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmCodeGenerator.btnGenerateClick(Sender: TObject);
|
|
||||||
var
|
|
||||||
Generator: TCodeGenerator;
|
|
||||||
Statistics: TCodeGeneratorStatistics;
|
|
||||||
begin
|
|
||||||
pbTotalProgress.Min := 0;
|
|
||||||
pbTotalProgress.Max := 0;
|
|
||||||
pbTotalProgress.Position := 0;
|
|
||||||
Generator := TCodeGenerator.Create;
|
|
||||||
try
|
|
||||||
Generator.OnWorkStart := GeneratorWorkStart;
|
|
||||||
Generator.OnWork := GeneratorWork;
|
|
||||||
Generator.OnWorkEnd := GeneratorWorkEnd;
|
|
||||||
Generator.GenerateCode(FEditor, 'F:\Development\GitHub\zyan-disassembler-engine\', Statistics);
|
|
||||||
// TODO: Display statistics
|
|
||||||
finally
|
|
||||||
Generator.Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmCodeGenerator.GeneratorWork(Sender: TObject; WorkCount: Integer);
|
|
||||||
begin
|
|
||||||
pbTotalProgress.Position := pbTotalProgress.Max - pbCurrentOperation.Max + WorkCount;
|
|
||||||
pbCurrentOperation.Position := WorkCount;
|
|
||||||
if ((WorkCount mod pbCurrentOperation.Tag) = 0) then
|
|
||||||
begin
|
|
||||||
Application.ProcessMessages;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmCodeGenerator.GeneratorWorkEnd(Sender: TObject);
|
|
||||||
begin
|
|
||||||
lblOperationName.Caption := '';
|
|
||||||
pbTotalProgress.Position := pbTotalProgress.Max;
|
|
||||||
pbCurrentOperation.Position := pbCurrentOperation.Max;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmCodeGenerator.GeneratorWorkStart(Sender: TObject; const OperationName: String;
|
|
||||||
OperationCount, OperationNumber: Integer; MinWorkCount, MaxWorkCount: Integer);
|
|
||||||
begin
|
|
||||||
lblOperationName.Caption := OperationName;
|
|
||||||
pbTotalProgress.Position := pbTotalProgress.Max;
|
|
||||||
pbTotalProgress.Min := pbTotalProgress.Min + MinWorkCount;
|
|
||||||
pbTotalProgress.Max := pbTotalProgress.Max + MaxWorkCount;
|
|
||||||
pbCurrentOperation.Position := MinWorkCount;
|
|
||||||
pbCurrentOperation.Min := MinWorkCount;
|
|
||||||
pbCurrentOperation.Max := MaxWorkCount;
|
|
||||||
if ((MaxWorkCount - MinWorkCount) > 1000) then
|
|
||||||
begin
|
|
||||||
pbCurrentOperation.Tag := 100;
|
|
||||||
end else if ((MaxWorkCount - MinWorkCount) > 100) then
|
|
||||||
begin
|
|
||||||
pbCurrentOperation.Tag := 10;
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
pbCurrentOperation.Tag := 1;
|
|
||||||
end;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
@ -1,157 +0,0 @@
|
||||||
object frmCreateDefinition: TfrmCreateDefinition
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
BorderStyle = bsDialog
|
|
||||||
Caption = 'Create Definition'
|
|
||||||
ClientHeight = 446
|
|
||||||
ClientWidth = 644
|
|
||||||
Color = clBtnFace
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
OldCreateOrder = False
|
|
||||||
Position = poScreenCenter
|
|
||||||
OnCreate = FormCreate
|
|
||||||
PixelsPerInch = 96
|
|
||||||
TextHeight = 13
|
|
||||||
object GroupBox: TGroupBox
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 404
|
|
||||||
Width = 638
|
|
||||||
Height = 39
|
|
||||||
Margins.Top = 0
|
|
||||||
Align = alBottom
|
|
||||||
TabOrder = 1
|
|
||||||
DesignSize = (
|
|
||||||
638
|
|
||||||
39)
|
|
||||||
object btnCancel: TButton
|
|
||||||
Left = 518
|
|
||||||
Top = 7
|
|
||||||
Width = 112
|
|
||||||
Height = 25
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
Caption = 'Cancel'
|
|
||||||
ImageIndex = 1
|
|
||||||
ImageMargins.Left = 2
|
|
||||||
ImageMargins.Top = 2
|
|
||||||
Images = imgIcons16
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = btnCancelClick
|
|
||||||
end
|
|
||||||
object btnApply: TButton
|
|
||||||
Left = 400
|
|
||||||
Top = 7
|
|
||||||
Width = 112
|
|
||||||
Height = 25
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
Caption = 'Ok'
|
|
||||||
ImageIndex = 0
|
|
||||||
ImageMargins.Left = 2
|
|
||||||
ImageMargins.Top = 2
|
|
||||||
Images = imgIcons16
|
|
||||||
TabOrder = 0
|
|
||||||
OnClick = btnApplyClick
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object Inspector: TcxRTTIInspector
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 638
|
|
||||||
Height = 398
|
|
||||||
Align = alClient
|
|
||||||
Constraints.MinWidth = 350
|
|
||||||
InspectedObject = Owner
|
|
||||||
LookAndFeel.NativeStyle = True
|
|
||||||
OptionsView.PaintStyle = psdotNet
|
|
||||||
OptionsView.RowHeaderMinWidth = 120
|
|
||||||
OptionsView.RowHeaderWidth = 260
|
|
||||||
OptionsView.ShowReadOnlyProperties = True
|
|
||||||
OptionsView.Sorted = False
|
|
||||||
TabOrder = 0
|
|
||||||
Version = 1
|
|
||||||
end
|
|
||||||
object imgIcons16: TcxImageList
|
|
||||||
FormatVersion = 1
|
|
||||||
DesignInfo = 2097208
|
|
||||||
ImageInfo = <
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
20000000000000040000000000000000000000000000000000000000001B0000
|
|
||||||
0033000000330000003300000033000000330000003300000033000000330000
|
|
||||||
0033000000330000003300000033000000330000001B00000000004B29A00089
|
|
||||||
49FF008747FF008747FF008747FF008747FF008747FF008747FF008747FF0087
|
|
||||||
47FF008747FF008747FF008747FF008949FF004B29A000000000008949FF07E4
|
|
||||||
A4FF07E5A5FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4A4FF07E4
|
|
||||||
A4FF07E4A4FF07E4A4FF07E5A5FF07E4A4FF008949FF00000000008747FF13E7
|
|
||||||
AAFF00DB9BFF00DA9AFF00DA99FF00DA99FF00DA99FF00DA99FF00DA9AFF00DA
|
|
||||||
9AFF00DA9AFF00DA9AFF00DB9BFF13E7AAFF008747FF00000000008746FF1EE7
|
|
||||||
AEFF00D699FF00D698FF00D495FF00D391FF00D391FF00D495FF00D698FF00D6
|
|
||||||
99FF00D699FF00D699FF00D699FF1EE7AEFF008746FF00000000008746FF2AE9
|
|
||||||
B3FF00D299FF00D095FF00CC8DFFFFFFFFFFFFFFFFFF00CC8DFF00D096FF00D2
|
|
||||||
99FF00D29AFF00D29AFF00D29AFF2AE9B3FF008746FF00000000008746FF35EA
|
|
||||||
B7FF00CD96FF00C98DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00C98DFF00CD
|
|
||||||
96FF00CF99FF00CF9AFF00CF9AFF36EAB8FF008746FF00000000008745FF3EEB
|
|
||||||
BBFF00C692FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00C4
|
|
||||||
8DFF00C995FF00CA99FF00CA99FF41ECBDFF008745FF00000000008745FF4BED
|
|
||||||
BFFF00C393FFFFFFFFFFFFFFFFFF00C08BFF00BF8BFFFFFFFFFFFFFFFFFFFFFF
|
|
||||||
FFFF00C18EFF00C596FF00C699FF4DEDC0FF008745FF00000000008744FF58EF
|
|
||||||
C5FF00C197FF00BF93FF00C093FF00C196FF00C196FF00BC8EFFFFFFFFFFFFFF
|
|
||||||
FFFFFFFFFFFF00BC8EFF00C096FF58EFC5FF008744FF00000000008744FF64F1
|
|
||||||
CAFF00BE99FF00C099FF00C09AFF00C19BFF00C19AFF00BE97FF00B98EFFFFFF
|
|
||||||
FFFFFFFFFFFFFFFFFFFF00BA92FF62F0C9FF008744FF00000000008744FF71F2
|
|
||||||
CFFF00BB99FF00BD9AFF00BE9BFF00BE9BFF00BE9BFF00BE9AFF00BB96FF00B6
|
|
||||||
8EFFFFFFFFFFFFFFFFFF00B792FF6EF2CDFF008744FF00000000008744FF7BF4
|
|
||||||
D3FF00B699FF00B89AFF00B99BFF00B99BFF00B99BFF00B99BFF00B89AFF00B7
|
|
||||||
98FF00B494FF00B493FF00B496FF7AF3D3FF008744FF00000000008744FF86F5
|
|
||||||
D8FF00B198FF00B299FF00B399FF00B399FF00B399FF00B399FF00B399FF00B2
|
|
||||||
99FF00B298FF00B297FF00B197FF86F5D8FF008744FF00000000008946FF8AF2
|
|
||||||
D9FF92F6DEFF93F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6DDFF94F6
|
|
||||||
DDFF94F6DDFF93F6DDFF92F6DEFF8AF2D9FF008946FF00000000004B29880089
|
|
||||||
46FF008743FF008643FF008643FF008643FF008643FF008643FF008643FF0086
|
|
||||||
43FF008643FF008643FF008743FF008946FF004B298800000000}
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Image.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000000000000000
|
|
||||||
0013000000330000003300000033000000330000003300000033000000330000
|
|
||||||
0033000000330000003300000033000000330000003300000013000000001117
|
|
||||||
487E2D3CC0FF2B3BBEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3ABEFF2A3A
|
|
||||||
BEFF2A3ABEFF2A3ABEFF2A3ABEFF2B3BBEFF2D3CC0FF1117487E000000002D3D
|
|
||||||
C0FF6172FAFF6A7DFFFF697CFFFF6D80FFFF7485FFFF7788FFFF7788FFFF7788
|
|
||||||
FFFF7485FFFF6D7FFFFF697CFFFF6A7DFFFF6172FAFF2D3DC0FF000000002B3B
|
|
||||||
BEFF6578FFFF5F73FEFF6F80FFFF7989FFFF5868E6FF3E4ED0FF3F4FD1FF3E4E
|
|
||||||
D0FF5767E5FF7887FEFF6E7FFFFF5F73FEFF6578FFFF2B3BBEFF000000002B3B
|
|
||||||
BEFF5D72FFFF697BFEFF7785F8FF3949CAFF1E2A89B70B0F303F07091D26070A
|
|
||||||
1F552636B9FF5A6FFDFF576CFAFF687AFCFF5D71FFFF2B3BBEFF000000002C3B
|
|
||||||
BFFF586EFEFF8593FFFF3B4BCAFF0E143F530000000000000000000000332B3A
|
|
||||||
BDFF5970FEFF546AFBFF7F8FFFFF8290FDFF586EFEFF2C3BBFFF000000002C3C
|
|
||||||
BFFF536BFCFF707CE7FF1E2A89BB0000000000000000000000332C3BBEFF546B
|
|
||||||
FBFF5067F8FF8796FFFF3B4BCDFF6D79E5FF536AFCFF2C3CBFFF000000002D3D
|
|
||||||
BFFF4F68FBFF4E5BD1FF0B0F304500000000000000332C3BBEFF4E66F9FF4A63
|
|
||||||
F6FF8C99FFFF2737BCFF07091F314D5AD0FF4F68FBFF2D3DBFFF000000002E3D
|
|
||||||
C0FF4A64F9FF3446CDFF07091D2D000000332D3CBEFF4862F7FF445DF4FF8E9C
|
|
||||||
FFFF2838BDFF0000000007091D313446CDFF4A64F9FF2E3DC0FF000000002E3D
|
|
||||||
C0FF4660F7FF3445CCFF080A20552D3CBEFF445DF4FF3F59F1FF929FFFFF2838
|
|
||||||
BDFF00000000000000000C0F305B3445CDFF4660F7FF2E3DC0FF000000002E3E
|
|
||||||
C0FF405BF3FF384DDBFF2E3CBCFF3E59F2FF3954EFFF95A2FFFF2838BDFF0000
|
|
||||||
00000000000000000011222D8AC5384EDCFF405BF3FF2E3EC0FF000000002F3E
|
|
||||||
C0FF3955F0FF3951EAFF3954EEFF3651EDFF9AA5FFFF2838BDFF000000080000
|
|
||||||
000D0000002510153F753041C8FF3A53EBFF3A55F0FF2F3EC0FF000000002E3D
|
|
||||||
BFFF3A54EFFF324DE9FF334DE9FF324DEBFF2A39BCFF070A1F5507091D510B0F
|
|
||||||
3065212D8AC52F41C8FF314CE4FF324DEBFF3A54EFFF2E3DBFFF000000002B3B
|
|
||||||
BFFF6A7DFDFF334EE8FF2643E4FF2642E3FF253CD4FF2739C7FF273AC8FF273A
|
|
||||||
C8FF263DD5FF2743E5FF2643E6FF334EE9FF6A7DFDFF2B3BBFFF000000002B3B
|
|
||||||
C0FF929DFCFFAAB3FFFFAAB3FFFFAAB3FFFFAAB4FFFFAAB4FFFFAAB4FFFFAAB4
|
|
||||||
FFFFAAB4FFFFAAB3FFFFAAB3FFFFAAB3FFFF929DFCFF2B3BC0FF000000001117
|
|
||||||
485E2A3AC0FF2838BFFF2737BEFF2737BEFF2737BEFF2737BFFF2737BFFF2737
|
|
||||||
BFFF2737BEFF2737BEFF2737BEFF2838BFFF2A3AC0FF1117485E}
|
|
||||||
end>
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
@ -1,50 +0,0 @@
|
||||||
unit formCreateDefinition;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
||||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
|
|
||||||
cxLookAndFeelPainters, cxStyles, cxEdit, dxSkinsCore, cxInplaceContainer, cxVGrid, cxOI,
|
|
||||||
System.ImageList, Vcl.ImgList, Vcl.StdCtrls, dxSkinSeven;
|
|
||||||
|
|
||||||
type
|
|
||||||
TfrmCreateDefinition = class(TForm)
|
|
||||||
GroupBox: TGroupBox;
|
|
||||||
btnCancel: TButton;
|
|
||||||
btnApply: TButton;
|
|
||||||
imgIcons16: TcxImageList;
|
|
||||||
Inspector: TcxRTTIInspector;
|
|
||||||
procedure btnCancelClick(Sender: TObject);
|
|
||||||
procedure FormCreate(Sender: TObject);
|
|
||||||
procedure btnApplyClick(Sender: TObject);
|
|
||||||
private
|
|
||||||
FCanceled: Boolean;
|
|
||||||
public
|
|
||||||
property Canceled: Boolean read FCanceled;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
frmCreateDefinition: TfrmCreateDefinition;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
{$R *.dfm}
|
|
||||||
|
|
||||||
procedure TfrmCreateDefinition.btnApplyClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Close;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmCreateDefinition.btnCancelClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
FCanceled := true;
|
|
||||||
Close;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfrmCreateDefinition.FormCreate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
FCanceled := false;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -1,29 +0,0 @@
|
||||||
program InstructionEditor;
|
|
||||||
|
|
||||||
uses
|
|
||||||
Vcl.Forms,
|
|
||||||
formMain in 'Forms\formMain.pas' {frmMain},
|
|
||||||
Zydis.InstructionEditor in 'Zydis.InstructionEditor.pas',
|
|
||||||
Zydis.InstructionFilters in 'Zydis.InstructionFilters.pas',
|
|
||||||
untHelperClasses in 'untHelperClasses.pas',
|
|
||||||
formEditorCPUIDFeatureFlags in 'Forms\Editors\formEditorCPUIDFeatureFlags.pas' {frmEditorCPUIDFeatureFlags},
|
|
||||||
Vcl.Themes,
|
|
||||||
Vcl.Styles,
|
|
||||||
untPropertyHints in 'untPropertyHints.pas',
|
|
||||||
formCreateDefinition in 'Forms\formCreateDefinition.pas' {frmCreateDefinition},
|
|
||||||
formEditorX86Registers in 'Forms\Editors\formEditorX86Registers.pas' {frmEditorX86Registers},
|
|
||||||
formCodeGenerator in 'Forms\formCodeGenerator.pas' {frmCodeGenerator},
|
|
||||||
Zydis.CodeGenerator in 'Zydis.CodeGenerator.pas',
|
|
||||||
untPropertyEditors in 'untPropertyEditors.pas';
|
|
||||||
|
|
||||||
{$R *.res}
|
|
||||||
|
|
||||||
begin
|
|
||||||
{$IFDEF DEBUG}
|
|
||||||
ReportMemoryLeaksOnShutdown := true;
|
|
||||||
{$ENDIF}
|
|
||||||
Application.Initialize;
|
|
||||||
Application.MainFormOnTaskbar := True;
|
|
||||||
Application.CreateForm(TfrmMain, frmMain);
|
|
||||||
Application.Run;
|
|
||||||
end.
|
|
||||||
|
|
@ -1,590 +0,0 @@
|
||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
|
||||||
<PropertyGroup>
|
|
||||||
<ProjectGuid>{33BB8B7D-4980-458D-8786-1256495555AE}</ProjectGuid>
|
|
||||||
<ProjectVersion>18.1</ProjectVersion>
|
|
||||||
<FrameworkType>VCL</FrameworkType>
|
|
||||||
<MainSource>InstructionEditor.dpr</MainSource>
|
|
||||||
<Base>True</Base>
|
|
||||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
|
||||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
|
||||||
<TargetedPlatforms>3</TargetedPlatforms>
|
|
||||||
<AppType>Application</AppType>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
|
||||||
<Base_Win32>true</Base_Win32>
|
|
||||||
<CfgParent>Base</CfgParent>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
|
||||||
<Base_Win64>true</Base_Win64>
|
|
||||||
<CfgParent>Base</CfgParent>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
|
|
||||||
<Cfg_1>true</Cfg_1>
|
|
||||||
<CfgParent>Base</CfgParent>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
|
||||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
|
||||||
<CfgParent>Cfg_1</CfgParent>
|
|
||||||
<Cfg_1>true</Cfg_1>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
|
|
||||||
<Cfg_1_Win64>true</Cfg_1_Win64>
|
|
||||||
<CfgParent>Cfg_1</CfgParent>
|
|
||||||
<Cfg_1>true</Cfg_1>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
|
|
||||||
<Cfg_2>true</Cfg_2>
|
|
||||||
<CfgParent>Base</CfgParent>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
|
||||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
|
||||||
<CfgParent>Cfg_2</CfgParent>
|
|
||||||
<Cfg_2>true</Cfg_2>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
|
||||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
|
||||||
<CfgParent>Cfg_2</CfgParent>
|
|
||||||
<Cfg_2>true</Cfg_2>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Base)'!=''">
|
|
||||||
<VerInfo_Locale>1031</VerInfo_Locale>
|
|
||||||
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
|
|
||||||
<VerInfo_Keys>CompanyName=zYantific.com;FileDescription=Instruction Definition Editor;FileVersion=1.0.0.0;InternalName=;LegalCopyright=Copyright © 2015 by zYantific.com;LegalTrademarks=;OriginalFilename=;ProductName=Instruction Definition Editor;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
|
||||||
<SanitizedProjectName>InstructionEditor</SanitizedProjectName>
|
|
||||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
|
|
||||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
|
||||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
|
||||||
<DCC_E>false</DCC_E>
|
|
||||||
<DCC_N>false</DCC_N>
|
|
||||||
<DCC_S>false</DCC_S>
|
|
||||||
<DCC_F>false</DCC_F>
|
|
||||||
<DCC_K>false</DCC_K>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
|
||||||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
|
||||||
<VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
|
|
||||||
<Icon_MainIcon>InstructionEditor.ico</Icon_MainIcon>
|
|
||||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
|
||||||
<DCC_UsePackage>dxBarRS22;JvGlobus;JvMM;JvManagedThreads;dxSkinsdxRibbonPainterRS22;dxSkinOffice2010BlackRS22;FireDACPgDriver;dxPScxVGridLnkRS22;JvCrypt;DBXInterBaseDriver;DataSnapServer;DataSnapCommon;JvNet;dxWizardControlRS22;JvDotNetCtrls;DbxCommonDriver;vclimg;dbxcds;dxServerModeRS22;DatasnapConnectorsFreePascal;appanalytics;JvXPCtrls;vcldb;dxSkinDarkRoomRS22;dxSkinSilverRS22;dxGDIPlusRS22;CustomIPTransport;dxSkinOffice2010SilverRS22;dsnap;IndyIPServer;IndyCore;dxSkinSummer2008RS22;CloudService;dxSkinLondonLiquidSkyRS22;FireDACIBDriver;JvDB;JvRuntimeDesign;tmsdXE7;dxPScxPivotGridLnkRS22;dxComnRS22;cxPivotGridChartRS22;dsnapxml;dxSpellCheckerRS22;JclDeveloperTools;FireDACDb2Driver;dxPScxGridLnkRS22;dxPScxPCProdRS22;dxSkinVS2010RS22;dxorgcRS22;dxBarExtItemsRS22;dxRibbonRS22;dxSkinsdxBarPainterRS22;dxCoreRS22;cxVerticalGridRS22;bindcompfmx;dxSkinStardustRS22;dxSkinSevenClassicRS22;dxSkinsCoreRS22;dxSpreadSheetRS22;FireDACODBCDriver;RESTBackendComponents;cxSchedulerRS22;dbrtl;dxSkinDevExpressStyleRS22;FireDACCommon;bindcomp;inetdb;cxExportRS22;JvPluginSystem;dxSkinOffice2007BlackRS22;dxSkinXmas2008BlueRS22;dxSkinCoffeeRS22;DBXOdbcDriver;dxSkinscxSchedulerPainterRS22;ibmonitor;vclFireDAC;JvCmp;JvTimeFramework;xmlrtl;ibxpress;dxSkinOffice2013WhiteRS22;dxPSdxDBOCLnkRS22;cxDataRS22;FireDACCommonDriver;cxBarEditItemRS22;soaprtl;bindengine;vclactnband;bindcompvcl;dxBarExtDBItemsRS22;dxSkinOffice2010BlueRS22;Jcl;vclie;dxPSdxDBTVLnkRS22;cxPageControlRS22;dxPsPrVwAdvRS22;FireDACMSSQLDriver;DBXInformixDriver;dxSkinPumpkinRS22;dxSkinFoggyRS22;cxEditorsRS22;dxPScxExtCommonRS22;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;tmsexdXE7;inet;dxPSPrVwRibbonRS22;dxMapControlRS22;dxSkinSharpRS22;dxmdsRS22;JvPascalInterpreter;FireDACMySQLDriver;soapmidas;vclx;dxSkinOffice2007GreenRS22;dxSkinMetropolisDarkRS22;DBXSybaseASADriver;dxDockingRS22;RESTComponents;dxTabbedMDIRS22;dxdborRS22;dxSkinMoneyTwinsRS22;dbexpress;dxPScxTLLnkRS22;IndyIPClient;dxSkinSpringTimeRS22;FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;dxSkinHighContrastRS22;dxSkinOffice2007SilverRS22;fmx;dxPSdxFCLnkRS22;JvDlgs;IndySystem;dxLayoutControlRS22;dxSkinOffice2007PinkRS22;tethering;cxSchedulerGridRS22;dxSkinMcSkinRS22;vclib;DataSnapClient;dxSkinsdxNavBarPainterRS22;dxNavBarRS22;DataSnapProviderClient;DBXSybaseASEDriver;dxSkinGlassOceansRS22;dxSkinBlueprintRS22;dxSkinBlueRS22;vcldsnap;dxBarDBNavRS22;dxSkiniMaginaryRS22;dxPSCoreRS22;dxSkinLiquidSkyRS22;fmxFireDAC;DBXDb2Driver;dxSkinOffice2007BlueRS22;dxSkinCaramelRS22;DBXOracleDriver;cxGridRS22;JvCore;vclribbon;fmxase;vcl;DBXMSSQLDriver;IndyIPCommon;dxThemeRS22;DataSnapFireDAC;FireDACDBXDriver;dxPScxSchedulerLnkRS22;JvAppFrm;soapserver;cxPivotGridRS22;dxtrmdRS22;dxSkinscxPCPainterRS22;inetdbxpress;FireDACInfxDriver;JvDocking;adortl;tmswizdXE7;cxLibraryRS22;dxPSdxSpreadSheetLnkRS22;JvWizards;dxFireDACServerModeRS22;dxPSdxLCLnkRS22;FireDACASADriver;dxSkinOffice2013DarkGrayRS22;JvHMI;dxPScxCommonRS22;JvBands;emsclientfiredac;rtl;DbxClientDriver;dxSkinOffice2013LightGrayRS22;JclContainers;dxFlowChartRS22;dxPSLnksRS22;dxSkinSharpPlusRS22;dxSkinDarkSideRS22;JvSystem;DataSnapNativeClient;svnui;cxTreeListdxBarPopupMenuRS22;JvControls;dxSkinsdxDLPainterRS22;dxSkinValentineRS22;IndyProtocols;DBXMySQLDriver;dxSkinDevExpressDarkStyleRS22;dxPSdxOCLnkRS22;dxSkinMetropolisRS22;bindcompdbx;JvJans;JvPrintPreview;JvPageComps;JvStdCtrls;JvCustom;cxTreeListRS22;dxSkinTheAsphaltWorldRS22;FireDACADSDriver;vcltouch;dxADOServerModeRS22;emsclient;dxdbtrRS22;VclSmp;FireDAC;VCLRESTComponents;dxTileControlRS22;cxSchedulerRibbonStyleEventEditorRS22;dxSkinSevenRS22;DataSnapConnectors;dxSkinBlackRS22;fmxobj;JclVcl;dxSkinWhiteprintRS22;tmsxlsdXE7;cxPivotGridOLAPRS22;svn;cxSchedulerTreeBrowserRS22;FireDACOracleDriver;fmxdae;VirtualTreesR;FireDACMSAccDriver;DataSnapIndy10ServerTransport;$(DCC_UsePackage)</DCC_UsePackage>
|
|
||||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
|
||||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
|
||||||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
|
||||||
<VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
|
|
||||||
<Icon_MainIcon>InstructionEditor.ico</Icon_MainIcon>
|
|
||||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
|
||||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
|
||||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
|
||||||
<DCC_UsePackage>dxBarRS22;dxSkinsdxRibbonPainterRS22;dxSkinOffice2010BlackRS22;FireDACPgDriver;dxPScxVGridLnkRS22;DBXInterBaseDriver;DataSnapServer;DataSnapCommon;dxWizardControlRS22;DbxCommonDriver;vclimg;dbxcds;dxServerModeRS22;DatasnapConnectorsFreePascal;appanalytics;vcldb;dxSkinDarkRoomRS22;dxSkinSilverRS22;dxGDIPlusRS22;CustomIPTransport;dxSkinOffice2010SilverRS22;dsnap;IndyIPServer;IndyCore;dxSkinSummer2008RS22;CloudService;dxSkinLondonLiquidSkyRS22;FireDACIBDriver;tmsdXE7;dxPScxPivotGridLnkRS22;dxComnRS22;cxPivotGridChartRS22;dsnapxml;dxSpellCheckerRS22;FireDACDb2Driver;dxPScxGridLnkRS22;dxPScxPCProdRS22;dxSkinVS2010RS22;dxorgcRS22;dxBarExtItemsRS22;dxRibbonRS22;dxSkinsdxBarPainterRS22;dxCoreRS22;cxVerticalGridRS22;bindcompfmx;dxSkinStardustRS22;dxSkinSevenClassicRS22;dxSkinsCoreRS22;dxSpreadSheetRS22;FireDACODBCDriver;RESTBackendComponents;cxSchedulerRS22;dbrtl;dxSkinDevExpressStyleRS22;FireDACCommon;bindcomp;inetdb;cxExportRS22;dxSkinOffice2007BlackRS22;dxSkinXmas2008BlueRS22;dxSkinCoffeeRS22;DBXOdbcDriver;dxSkinscxSchedulerPainterRS22;ibmonitor;vclFireDAC;xmlrtl;ibxpress;dxSkinOffice2013WhiteRS22;dxPSdxDBOCLnkRS22;cxDataRS22;FireDACCommonDriver;cxBarEditItemRS22;soaprtl;bindengine;vclactnband;bindcompvcl;dxBarExtDBItemsRS22;dxSkinOffice2010BlueRS22;vclie;dxPSdxDBTVLnkRS22;cxPageControlRS22;dxPsPrVwAdvRS22;FireDACMSSQLDriver;DBXInformixDriver;dxSkinPumpkinRS22;dxSkinFoggyRS22;cxEditorsRS22;dxPScxExtCommonRS22;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;tmsexdXE7;inet;dxPSPrVwRibbonRS22;dxMapControlRS22;dxSkinSharpRS22;dxmdsRS22;FireDACMySQLDriver;soapmidas;vclx;dxSkinOffice2007GreenRS22;dxSkinMetropolisDarkRS22;DBXSybaseASADriver;dxDockingRS22;RESTComponents;dxTabbedMDIRS22;dxdborRS22;dxSkinMoneyTwinsRS22;dbexpress;dxPScxTLLnkRS22;IndyIPClient;dxSkinSpringTimeRS22;FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;dxSkinHighContrastRS22;dxSkinOffice2007SilverRS22;fmx;dxPSdxFCLnkRS22;IndySystem;dxLayoutControlRS22;dxSkinOffice2007PinkRS22;tethering;cxSchedulerGridRS22;dxSkinMcSkinRS22;vclib;DataSnapClient;dxSkinsdxNavBarPainterRS22;dxNavBarRS22;DataSnapProviderClient;DBXSybaseASEDriver;dxSkinGlassOceansRS22;dxSkinBlueprintRS22;dxSkinBlueRS22;vcldsnap;dxBarDBNavRS22;dxSkiniMaginaryRS22;dxPSCoreRS22;dxSkinLiquidSkyRS22;fmxFireDAC;DBXDb2Driver;dxSkinOffice2007BlueRS22;dxSkinCaramelRS22;DBXOracleDriver;cxGridRS22;vclribbon;fmxase;vcl;DBXMSSQLDriver;IndyIPCommon;dxThemeRS22;DataSnapFireDAC;FireDACDBXDriver;dxPScxSchedulerLnkRS22;soapserver;cxPivotGridRS22;dxtrmdRS22;dxSkinscxPCPainterRS22;inetdbxpress;FireDACInfxDriver;adortl;cxLibraryRS22;dxPSdxSpreadSheetLnkRS22;dxFireDACServerModeRS22;dxPSdxLCLnkRS22;FireDACASADriver;dxSkinOffice2013DarkGrayRS22;dxPScxCommonRS22;emsclientfiredac;rtl;DbxClientDriver;dxSkinOffice2013LightGrayRS22;dxFlowChartRS22;dxPSLnksRS22;dxSkinSharpPlusRS22;dxSkinDarkSideRS22;DataSnapNativeClient;cxTreeListdxBarPopupMenuRS22;dxSkinsdxDLPainterRS22;dxSkinValentineRS22;IndyProtocols;DBXMySQLDriver;dxSkinDevExpressDarkStyleRS22;dxPSdxOCLnkRS22;dxSkinMetropolisRS22;bindcompdbx;cxTreeListRS22;dxSkinTheAsphaltWorldRS22;FireDACADSDriver;vcltouch;dxADOServerModeRS22;emsclient;dxdbtrRS22;VclSmp;FireDAC;VCLRESTComponents;dxTileControlRS22;cxSchedulerRibbonStyleEventEditorRS22;dxSkinSevenRS22;DataSnapConnectors;dxSkinBlackRS22;fmxobj;dxSkinWhiteprintRS22;cxPivotGridOLAPRS22;cxSchedulerTreeBrowserRS22;FireDACOracleDriver;fmxdae;VirtualTreesR;FireDACMSAccDriver;DataSnapIndy10ServerTransport;$(DCC_UsePackage)</DCC_UsePackage>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
|
||||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
|
||||||
<DCC_DebugDCUs>true</DCC_DebugDCUs>
|
|
||||||
<DCC_Optimize>false</DCC_Optimize>
|
|
||||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
|
||||||
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
|
|
||||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
|
||||||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
|
||||||
<VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
|
|
||||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
|
||||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
|
||||||
<DCC_RemoteDebug>false</DCC_RemoteDebug>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
|
|
||||||
<Icon_MainIcon>DatabaseEditor.ico</Icon_MainIcon>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
|
||||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
|
||||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
|
||||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
|
||||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
|
||||||
<DCC_AssertionsAtRuntime>false</DCC_AssertionsAtRuntime>
|
|
||||||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
|
||||||
<DCC_MapFile>3</DCC_MapFile>
|
|
||||||
<VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
|
|
||||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
|
||||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
|
||||||
<VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
|
|
||||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
|
||||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
|
||||||
</PropertyGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<DelphiCompile Include="$(MainSource)">
|
|
||||||
<MainSource>MainSource</MainSource>
|
|
||||||
</DelphiCompile>
|
|
||||||
<DCCReference Include="Forms\formMain.pas">
|
|
||||||
<Form>frmMain</Form>
|
|
||||||
<FormType>dfm</FormType>
|
|
||||||
</DCCReference>
|
|
||||||
<DCCReference Include="Zydis.InstructionEditor.pas"/>
|
|
||||||
<DCCReference Include="Zydis.InstructionFilters.pas"/>
|
|
||||||
<DCCReference Include="untHelperClasses.pas"/>
|
|
||||||
<DCCReference Include="Forms\Editors\formEditorCPUIDFeatureFlags.pas">
|
|
||||||
<Form>frmEditorCPUIDFeatureFlags</Form>
|
|
||||||
<FormType>dfm</FormType>
|
|
||||||
</DCCReference>
|
|
||||||
<DCCReference Include="untPropertyHints.pas"/>
|
|
||||||
<DCCReference Include="Forms\formCreateDefinition.pas">
|
|
||||||
<Form>frmCreateDefinition</Form>
|
|
||||||
<FormType>dfm</FormType>
|
|
||||||
</DCCReference>
|
|
||||||
<DCCReference Include="Forms\Editors\formEditorX86Registers.pas">
|
|
||||||
<Form>frmEditorX86Registers</Form>
|
|
||||||
<FormType>dfm</FormType>
|
|
||||||
</DCCReference>
|
|
||||||
<DCCReference Include="Forms\formCodeGenerator.pas">
|
|
||||||
<Form>frmCodeGenerator</Form>
|
|
||||||
<FormType>dfm</FormType>
|
|
||||||
</DCCReference>
|
|
||||||
<DCCReference Include="Zydis.CodeGenerator.pas"/>
|
|
||||||
<DCCReference Include="untPropertyEditors.pas"/>
|
|
||||||
<BuildConfiguration Include="Release">
|
|
||||||
<Key>Cfg_2</Key>
|
|
||||||
<CfgParent>Base</CfgParent>
|
|
||||||
</BuildConfiguration>
|
|
||||||
<BuildConfiguration Include="Base">
|
|
||||||
<Key>Base</Key>
|
|
||||||
</BuildConfiguration>
|
|
||||||
<BuildConfiguration Include="Debug">
|
|
||||||
<Key>Cfg_1</Key>
|
|
||||||
<CfgParent>Base</CfgParent>
|
|
||||||
</BuildConfiguration>
|
|
||||||
</ItemGroup>
|
|
||||||
<ProjectExtensions>
|
|
||||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
|
||||||
<Borland.ProjectType>Application</Borland.ProjectType>
|
|
||||||
<BorlandProject>
|
|
||||||
<Delphi.Personality>
|
|
||||||
<Source>
|
|
||||||
<Source Name="MainSource">InstructionEditor.dpr</Source>
|
|
||||||
</Source>
|
|
||||||
<Excluded_Packages>
|
|
||||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k240.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver</Excluded_Packages>
|
|
||||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp240.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
|
|
||||||
</Excluded_Packages>
|
|
||||||
</Delphi.Personality>
|
|
||||||
<Deployment Version="3">
|
|
||||||
<DeployFile LocalName="Win32\Debug\InstructionEditor.exe" Configuration="Debug" Class="ProjectOutput">
|
|
||||||
<Platform Name="Win32">
|
|
||||||
<RemoteName>InstructionEditor.exe</RemoteName>
|
|
||||||
<Overwrite>true</Overwrite>
|
|
||||||
</Platform>
|
|
||||||
</DeployFile>
|
|
||||||
<DeployClass Name="ProjectiOSDeviceResourceRules">
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="ProjectOSXResource">
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>Contents\Resources</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="AndroidClassesDexFile">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>classes</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_LauncherIcon144">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="AdditionalDebugSymbols">
|
|
||||||
<Platform Name="Win32">
|
|
||||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="AndroidLibnativeMipsFile">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>library\lib\mips</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="iPad_Launch768">
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Required="true" Name="ProjectOutput">
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="Win32">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="Linux64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="DependencyFramework">
|
|
||||||
<Platform Name="Win32">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
<Extensions>.framework</Extensions>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="iPhone_Launch640">
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="AndroidLibnativeX86File"/>
|
|
||||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="iPad_Launch1024">
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="iPhone_Launch320">
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="ProjectiOSInfoPList">
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>library\lib\armeabi</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="DebugSymbols">
|
|
||||||
<Platform Name="Win32">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="iPad_Launch1536">
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_SplashImage470">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable-normal</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_LauncherIcon96">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable-xhdpi</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_SplashImage640">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable-large</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="iPhone_Launch640x1136">
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="ProjectiOSEntitlements">
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<RemoteDir>..\</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<RemoteDir>..\</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="AndroidGDBServer">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_LauncherIcon72">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable-hdpi</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="ProjectOSXInfoPList">
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>Contents</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="ProjectOSXEntitlements">
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>..\</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="iPad_Launch2048">
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="AndroidSplashStyles">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\values</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_SplashImage426">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable-small</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="AndroidSplashImageDef">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="ProjectiOSResource">
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="ProjectAndroidManifest">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_DefaultAppIcon">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="File">
|
|
||||||
<Platform Name="Win32">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="Android">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="AndroidServiceOutput">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Required="true" Name="DependencyPackage">
|
|
||||||
<Platform Name="Win32">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
<Extensions>.bpl</Extensions>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
<Extensions>.dylib</Extensions>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
<Extensions>.dylib</Extensions>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
<Extensions>.dylib</Extensions>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
<Extensions>.dylib</Extensions>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_LauncherIcon48">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable-mdpi</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_SplashImage960">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable-xlarge</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="Android_LauncherIcon36">
|
|
||||||
<Platform Name="Android">
|
|
||||||
<RemoteDir>res\drawable-ldpi</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<DeployClass Name="DependencyModule">
|
|
||||||
<Platform Name="Win32">
|
|
||||||
<Operation>0</Operation>
|
|
||||||
<Extensions>.dll;.bpl</Extensions>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice64">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
<Extensions>.dylib</Extensions>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="OSX32">
|
|
||||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
|
||||||
<Operation>1</Operation>
|
|
||||||
<Extensions>.dylib</Extensions>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSDevice32">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
<Extensions>.dylib</Extensions>
|
|
||||||
</Platform>
|
|
||||||
<Platform Name="iOSSimulator">
|
|
||||||
<Operation>1</Operation>
|
|
||||||
<Extensions>.dylib</Extensions>
|
|
||||||
</Platform>
|
|
||||||
</DeployClass>
|
|
||||||
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
|
|
||||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
|
||||||
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
|
|
||||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
|
||||||
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
|
|
||||||
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
|
|
||||||
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
|
|
||||||
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
|
|
||||||
</Deployment>
|
|
||||||
<Platforms>
|
|
||||||
<Platform value="Win32">True</Platform>
|
|
||||||
<Platform value="Win64">True</Platform>
|
|
||||||
</Platforms>
|
|
||||||
</BorlandProject>
|
|
||||||
<ProjectFileVersion>12</ProjectFileVersion>
|
|
||||||
</ProjectExtensions>
|
|
||||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
|
||||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
|
||||||
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
|
|
||||||
</Project>
|
|
||||||
Binary file not shown.
|
Before Width: | Height: | Size: 111 KiB |
Binary file not shown.
|
|
@ -1,55 +0,0 @@
|
||||||
[ExpressSkins]
|
|
||||||
Default=1
|
|
||||||
ShowNotifications=1
|
|
||||||
Enabled=1
|
|
||||||
dxSkinBlack=0
|
|
||||||
dxSkinBlue=0
|
|
||||||
dxSkinBlueprint=0
|
|
||||||
dxSkinCaramel=0
|
|
||||||
dxSkinCoffee=0
|
|
||||||
dxSkinDarkRoom=0
|
|
||||||
dxSkinDarkSide=0
|
|
||||||
dxSkinDevExpressDarkStyle=0
|
|
||||||
dxSkinDevExpressStyle=0
|
|
||||||
dxSkinFoggy=0
|
|
||||||
dxSkinGlassOceans=0
|
|
||||||
dxSkinHighContrast=0
|
|
||||||
dxSkiniMaginary=0
|
|
||||||
dxSkinLiquidSky=0
|
|
||||||
dxSkinLondonLiquidSky=0
|
|
||||||
dxSkinMcSkin=0
|
|
||||||
dxSkinMetropolis=0
|
|
||||||
dxSkinMetropolisDark=0
|
|
||||||
dxSkinMoneyTwins=0
|
|
||||||
dxSkinOffice2007Black=0
|
|
||||||
dxSkinOffice2007Blue=0
|
|
||||||
dxSkinOffice2007Green=0
|
|
||||||
dxSkinOffice2007Pink=0
|
|
||||||
dxSkinOffice2007Silver=0
|
|
||||||
dxSkinOffice2010Black=0
|
|
||||||
dxSkinOffice2010Blue=0
|
|
||||||
dxSkinOffice2010Silver=0
|
|
||||||
dxSkinOffice2013DarkGray=0
|
|
||||||
dxSkinOffice2013LightGray=0
|
|
||||||
dxSkinOffice2013White=0
|
|
||||||
dxSkinPumpkin=0
|
|
||||||
dxSkinSeven=0
|
|
||||||
dxSkinSevenClassic=0
|
|
||||||
dxSkinSharp=0
|
|
||||||
dxSkinSharpPlus=0
|
|
||||||
dxSkinSilver=0
|
|
||||||
dxSkinSpringTime=0
|
|
||||||
dxSkinStardust=0
|
|
||||||
dxSkinSummer2008=0
|
|
||||||
dxSkinTheAsphaltWorld=0
|
|
||||||
dxSkinsDefaultPainters=0
|
|
||||||
dxSkinValentine=0
|
|
||||||
dxSkinVS2010=0
|
|
||||||
dxSkinWhiteprint=0
|
|
||||||
dxSkinXmas2008Blue=0
|
|
||||||
dxSkinLilian=0
|
|
||||||
dxSkinOffice2016Colorful=0
|
|
||||||
dxSkinOffice2016Dark=0
|
|
||||||
dxSkinVisualStudio2013Blue=0
|
|
||||||
dxSkinVisualStudio2013Dark=0
|
|
||||||
dxSkinVisualStudio2013Light=0
|
|
||||||
|
|
@ -1,26 +0,0 @@
|
||||||
Zydis Instruction Editor
|
|
||||||
========================
|
|
||||||
|
|
||||||
The Zydis Instruction Editor was created to easily edit the Zydis instruction database.
|
|
||||||
|
|
||||||
:warning: A standalone table-generator written in Phython is on our todo-list and will be released soon.
|
|
||||||
|
|
||||||
## Features ##
|
|
||||||
|
|
||||||
- Shows all instruction definitions in an opcode tree.
|
|
||||||
- Provides an graphical interface with the functionality to add, change or remove instruction definitions.
|
|
||||||
- Compiles the instruction definitions into optimized disassembler-tables which are used by the Zyan Disassembler Engine (Zydis).
|
|
||||||
|
|
||||||
## Screenshot ##
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
## Compilation ##
|
|
||||||
|
|
||||||
The Zydis Instruction Editor requires a minimum version of Delphi XE8 and the following third-party component packages:
|
|
||||||
- VirtualTreeView
|
|
||||||
- DevExpress VCL Controls (commercial)
|
|
||||||
|
|
||||||
## License ##
|
|
||||||
|
|
||||||
The Zydis Instruction Editor is licensed under the MIT License. Dependencies are under their respective licenses.
|
|
||||||
|
|
@ -1,129 +0,0 @@
|
||||||
|
|
||||||
{
|
|
||||||
This file is part of Synopse mORMot framework.
|
|
||||||
|
|
||||||
Synopse mORMot framework. Copyright (C) 2016 Arnaud Bouchez
|
|
||||||
Synopse Informatique - http://synopse.info
|
|
||||||
|
|
||||||
*** BEGIN LICENSE BLOCK *****
|
|
||||||
Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
|
||||||
|
|
||||||
The contents of this file are subject to the Mozilla Public License Version
|
|
||||||
1.1 (the "License"); you may not use this file except in compliance with
|
|
||||||
the License. You may obtain a copy of the License at
|
|
||||||
http://www.mozilla.org/MPL
|
|
||||||
|
|
||||||
Software distributed under the License is distributed on an "AS IS" basis,
|
|
||||||
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|
||||||
for the specific language governing rights and limitations under the License.
|
|
||||||
|
|
||||||
The Original Code is Synopse mORMot framework.
|
|
||||||
|
|
||||||
The Initial Developer of the Original Code is Arnaud Bouchez.
|
|
||||||
|
|
||||||
Portions created by the Initial Developer are Copyright (C) 2016
|
|
||||||
the Initial Developer. All Rights Reserved.
|
|
||||||
|
|
||||||
Contributor(s):
|
|
||||||
|
|
||||||
Alternatively, the contents of this file may be used under the terms of
|
|
||||||
either the GNU General Public License Version 2 or later (the "GPL"), or
|
|
||||||
the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
|
||||||
in which case the provisions of the GPL or the LGPL are applicable instead
|
|
||||||
of those above. If you wish to allow use of your version of this file only
|
|
||||||
under the terms of either the GPL or the LGPL, and not to allow others to
|
|
||||||
use your version of this file under the terms of the MPL, indicate your
|
|
||||||
decision by deleting the provisions above and replace them with the notice
|
|
||||||
and other provisions required by the GPL or the LGPL. If you do not delete
|
|
||||||
the provisions above, a recipient may use your version of this file under
|
|
||||||
the terms of any one of the MPL, the GPL or the LGPL.
|
|
||||||
|
|
||||||
***** END LICENSE BLOCK *****
|
|
||||||
|
|
||||||
|
|
||||||
Version 1.18
|
|
||||||
- first public release, corresponding to mORMot Framework 1.18
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
{$ifdef FPC}
|
|
||||||
|
|
||||||
{.$MODE DELPHI} // we need e.g. auto-dereferenced pointers, as in Delphi
|
|
||||||
{$INLINE ON}
|
|
||||||
{$MINENUMSIZE 1}
|
|
||||||
{$PACKSET 1}
|
|
||||||
{$PACKENUM 1}
|
|
||||||
|
|
||||||
{$define HASINLINE}
|
|
||||||
{$define USEOBJECTINSTEADOFRECORD}
|
|
||||||
{$Q-} // disable overflow checking
|
|
||||||
{$R-} // disable range checking
|
|
||||||
|
|
||||||
{$ifdef VER2_7_1}
|
|
||||||
{$define ISFPC271}
|
|
||||||
// defined if the http://mantis.freepascal.org/view.php?id=26773 bug is fixed
|
|
||||||
// you should use 2.7.1/trunk branch in revision 28995 from 2014-11-05T22:17:54
|
|
||||||
// => this will change the TInvokeableVariantType.SetProperty() signature
|
|
||||||
{$define FPC_VARIANTSETVAR}
|
|
||||||
{$endif}
|
|
||||||
|
|
||||||
{$else}
|
|
||||||
|
|
||||||
{$ifdef DWSSCRIPT} // always defined since SMS 1.1.2
|
|
||||||
{$define ISDWS} // e.g. for SmartMobileStudio or Delphi Web Script
|
|
||||||
{$define ISSMS} // for SmartMobileStudio
|
|
||||||
{$else}
|
|
||||||
{$ifdef NEXTGEN}
|
|
||||||
{$define HASINLINE}
|
|
||||||
{$ZEROBASEDSTRINGS OFF} // we expect to share code among platforms
|
|
||||||
{$define ISDELPHI2010}
|
|
||||||
{$define ISDELPHIXE}
|
|
||||||
{$define USETMONITOR}
|
|
||||||
{$if CompilerVersion >= 29.0}
|
|
||||||
{$define ISDELPHIXE8} // e.g. for System.Net.HttpClient
|
|
||||||
{$ifend}
|
|
||||||
{$else}
|
|
||||||
{$ifdef CONDITIONALEXPRESSIONS} // Delphi 6 or newer
|
|
||||||
{$ifdef UNICODE}
|
|
||||||
{$ifdef CPUX64}
|
|
||||||
{$define CPU64}
|
|
||||||
{$endif}
|
|
||||||
{$else}
|
|
||||||
{$define USEOBJECTINSTEADOFRECORD}
|
|
||||||
{$endif}
|
|
||||||
{$ifdef VER140}
|
|
||||||
{$define ISDELPHI6}
|
|
||||||
{$endif}
|
|
||||||
{$if CompilerVersion >= 18} // Delphi 2006 or newer
|
|
||||||
{$define HASINLINE}
|
|
||||||
{$ifend}
|
|
||||||
{$if CompilerVersion >= 21.0}
|
|
||||||
{$define ISDELPHI2010}
|
|
||||||
{$ifend}
|
|
||||||
{$if CompilerVersion >= 22.0}
|
|
||||||
{$define ISDELPHIXE}
|
|
||||||
{$ifend}
|
|
||||||
{$if CompilerVersion >= 23.0}
|
|
||||||
{$define ISDELPHIXE2} // e.g. for Vcl.Graphics
|
|
||||||
{$ifndef MSWINDOWS}
|
|
||||||
{$define USETMONITOR}
|
|
||||||
{$endif}
|
|
||||||
{$ifend}
|
|
||||||
{$if CompilerVersion >= 25.0}
|
|
||||||
{$define ISDELPHIXE4}
|
|
||||||
{$ZEROBASEDSTRINGS OFF} // we expect to share code among platforms
|
|
||||||
{$warn DUPLICATE_CTOR_DTOR OFF} // avoid W1029 unneeded hints
|
|
||||||
{$ifend}
|
|
||||||
{$if CompilerVersion >= 29.0}
|
|
||||||
{$define ISDELPHIXE8} // e.g. for System.Net.HttpClient
|
|
||||||
{$ifend}
|
|
||||||
{$else}
|
|
||||||
{$define ISDELPHI5OROLDER}
|
|
||||||
{$define USEOBJECTINSTEADOFRECORD}
|
|
||||||
{$endif CONDITIONALEXPRESSIONS}
|
|
||||||
{$endif NEXTGEN}
|
|
||||||
{$Q-} // disable overflow checking
|
|
||||||
{$R-} // disable range checking
|
|
||||||
{$endif DELPHIWEBSCRIPT}
|
|
||||||
|
|
||||||
{$endif FPC}
|
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -1,607 +0,0 @@
|
||||||
unit Zydis.InstructionFilters;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Zydis.InstructionEditor;
|
|
||||||
|
|
||||||
type
|
|
||||||
TOpcodeFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TEncodingFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TVEXMapFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TXOPMapFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TModeFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TMandatoryPrefixFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TModrmModFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TModrmRegFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TModrmRmFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TOperandSizeFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TAddressSizeFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TRexWFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TVexLFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TEvexL2Filter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TEvexBFilter = class(TInstructionFilter)
|
|
||||||
public
|
|
||||||
class function GetNeutralElementType: TNeutralElementType; override;
|
|
||||||
class function GetCapacity: Cardinal; override;
|
|
||||||
class function GetInsertPosition(const Definition: TInstructionDefinition): Integer; override;
|
|
||||||
class function GetItemDescription(Index: Integer): String; override;
|
|
||||||
class function GetDescription: String; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
const
|
|
||||||
InstructionFilterClasses: array[0..14] of TInstructionFilterClass =
|
|
||||||
(
|
|
||||||
TOpcodeFilter,
|
|
||||||
TEncodingFilter,
|
|
||||||
TVEXMapFilter,
|
|
||||||
TXOPMapFilter,
|
|
||||||
TModeFilter,
|
|
||||||
TMandatoryPrefixFilter,
|
|
||||||
TModrmModFilter,
|
|
||||||
TModrmRegFilter,
|
|
||||||
TModrmRmFilter,
|
|
||||||
TOperandSizeFilter,
|
|
||||||
TAddressSizeFilter,
|
|
||||||
TRexWFilter,
|
|
||||||
TVexLFilter,
|
|
||||||
TEvexL2Filter,
|
|
||||||
TEvexBFilter
|
|
||||||
);
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
System.SysUtils, System.TypInfo;
|
|
||||||
|
|
||||||
{$REGION 'Class: TOpcodeFilter'}
|
|
||||||
class function TOpcodeFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 256;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TOpcodeFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'Opcode';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TOpcodeFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Result := Definition.Opcode;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TEncodingFilter'}
|
|
||||||
class function TEncodingFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 5;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEncodingFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'Encoding';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEncodingFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Result := Integer(Definition.Encoding);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEncodingFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
Result := GetEnumName(TypeInfo(TInstructionEncoding), Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEncodingFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netValue;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TVEXMapFilter'}
|
|
||||||
class function TVEXMapFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 16;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TVEXMapFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'VEX';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TVEXMapFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Assert(Definition.OpcodeMap < omXOP8);
|
|
||||||
Result := (Integer(Definition.OpcodeExtensions.MandatoryPrefix)) * 4 + Byte(Definition.OpcodeMap);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TVEXMapFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
case (Index div 4) of
|
|
||||||
0: Result := '##';
|
|
||||||
1: Result := '66';
|
|
||||||
2: Result := 'F3';
|
|
||||||
3: Result := 'F2';
|
|
||||||
end;
|
|
||||||
case (Index mod 4) of
|
|
||||||
0: Result := Result + ' default';
|
|
||||||
1: Result := Result + ' 0F';
|
|
||||||
2: Result := Result + ' 0F 38';
|
|
||||||
3: Result := Result + ' 0F 3A';
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TXOPMapFilter'}
|
|
||||||
class function TXOPMapFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 4;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TXOPMapFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'XOP';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TXOPMapFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Assert(Definition.Encoding = ieXOP);
|
|
||||||
Assert(Definition.OpcodeMap >= omXOP8);
|
|
||||||
Result := Integer(Definition.OpcodeMap) - Integer(omXOP8) + 1;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TXOPMapFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
if (Index = 0) then
|
|
||||||
begin
|
|
||||||
Result := 'Non-XOP-Placeholder';
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Result := GetEnumName(TypeInfo(TOpcodeMap), Integer(omXOP8) + Index - 1);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TModeFilter'}
|
|
||||||
class function TModeFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 3;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModeFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'Mode';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModeFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Result := Integer(Definition.OpcodeExtensions.Mode);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModeFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
Result := GetEnumName(TypeInfo(TExtInstructionMode), Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModeFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netPlaceholder;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TMandatoryPrefixFilter'}
|
|
||||||
class function TMandatoryPrefixFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 4;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TMandatoryPrefixFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'MandatoryPrefix';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TMandatoryPrefixFilter.GetInsertPosition(
|
|
||||||
const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Result := Integer(Definition.OpcodeExtensions.MandatoryPrefix);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TMandatoryPrefixFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
Result := GetEnumName(TypeInfo(TExtMandatoryPrefix), Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TMandatoryPrefixFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netValue;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TModrmModFilter'}
|
|
||||||
class function TModrmModFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 3;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmModFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'ModrmMod';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmModFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Result := Integer(Definition.OpcodeExtensions.ModrmMod);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmModFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
Result := GetEnumName(TypeInfo(TExtModrmMod), Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmModFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netPlaceholder;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TModrmRegFilter'}
|
|
||||||
class function TModrmRegFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 9;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmRegFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'ModrmReg';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmRegFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Result := Integer(Definition.OpcodeExtensions.ModrmReg);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmRegFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
Result := GetEnumName(TypeInfo(TExtModrmReg), Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmRegFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netPlaceholder;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TModrmRmFilter'}
|
|
||||||
class function TModrmRmFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 9;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmRmFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'ModrmRm';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmRmFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Result := Integer(Definition.OpcodeExtensions.ModrmRm);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmRmFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
Result := GetEnumName(TypeInfo(TExtModrmRm), Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TModrmRmFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netPlaceholder;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TOperandSizeFilter'}
|
|
||||||
class function TOperandSizeFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 3;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TOperandSizeFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'OperandSize';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TOperandSizeFilter.GetInsertPosition(
|
|
||||||
const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Result := Integer(Definition.OpcodeExtensions.OperandSize);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TOperandSizeFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
Result := GetEnumName(TypeInfo(TExtOperandSize), Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TOperandSizeFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netPlaceholder;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TAddressSizeFilter'}
|
|
||||||
class function TAddressSizeFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 4;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TAddressSizeFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'AddressSize';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TAddressSizeFilter.GetInsertPosition(
|
|
||||||
const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
Result := Integer(Definition.OpcodeExtensions.AddressSize);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TAddressSizeFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Assert((Index >= 0) and (Index < Integer(GetCapacity)));
|
|
||||||
Result := GetEnumName(TypeInfo(TExtAddressSize), Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TAddressSizeFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netPlaceholder;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TRexWFilter'}
|
|
||||||
class function TRexWFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TRexWFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'REXW';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TRexWFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
if (bfRexW in Definition.OpcodeExtensions.BitFilters) then
|
|
||||||
begin
|
|
||||||
Result := 1;
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Result := 0;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TRexWFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Result := 'REX.W ' + IntToStr(Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TRexWFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netValue;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TVexLFilter'}
|
|
||||||
class function TVexLFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TVexLFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'VEXL';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TVexLFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
if (bfVexL in Definition.OpcodeExtensions.BitFilters) then
|
|
||||||
begin
|
|
||||||
Result := 1;
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Result := 0;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TVexLFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Result := 'VEX.L ' + IntToStr(Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TVexLFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netValue;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TEvexL2Filter'}
|
|
||||||
class function TEvexL2Filter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEvexL2Filter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'EVEXL2';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEvexL2Filter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
if (bfEvexL2 in Definition.OpcodeExtensions.BitFilters) then
|
|
||||||
begin
|
|
||||||
Result := 1;
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Result := 0;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEvexL2Filter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Result := 'EVEX.L'' ' + IntToStr(Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEvexL2Filter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netValue;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
{$REGION 'Class: TEvexBFilter'}
|
|
||||||
class function TEvexBFilter.GetCapacity: Cardinal;
|
|
||||||
begin
|
|
||||||
Result := 2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEvexBFilter.GetDescription: String;
|
|
||||||
begin
|
|
||||||
Result := 'EVEXB';
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEvexBFilter.GetInsertPosition(const Definition: TInstructionDefinition): Integer;
|
|
||||||
begin
|
|
||||||
if (bfEvexB in Definition.OpcodeExtensions.BitFilters) then
|
|
||||||
begin
|
|
||||||
Result := 1;
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Result := 0;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEvexBFilter.GetItemDescription(Index: Integer): String;
|
|
||||||
begin
|
|
||||||
Result := 'EVEX.B ' + IntToStr(Index);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class function TEvexBFilter.GetNeutralElementType: TNeutralElementType;
|
|
||||||
begin
|
|
||||||
Result := netValue;
|
|
||||||
end;
|
|
||||||
{$ENDREGION}
|
|
||||||
|
|
||||||
end.
|
|
||||||
Binary file not shown.
|
Before Width: | Height: | Size: 157 KiB |
|
|
@ -1,302 +0,0 @@
|
||||||
unit untHelperClasses;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
System.Classes, System.Generics.Collections, System.Generics.Defaults, SynCrossPlatformJSON;
|
|
||||||
|
|
||||||
type
|
|
||||||
TSizeFormatter = record
|
|
||||||
public
|
|
||||||
class function Format(Size: UInt64): String; static;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TStringHelper = record
|
|
||||||
public
|
|
||||||
{**
|
|
||||||
* Fast alternative to the @c System.StrUtils.IndexStr function
|
|
||||||
*
|
|
||||||
* @param S The string to search for.
|
|
||||||
* @param Values The array of strings to search in.
|
|
||||||
*
|
|
||||||
* @return The index of @c S in the @c Values array or -1, if not found.
|
|
||||||
*}
|
|
||||||
class function IndexStr(const S: String; const Values: array of String): Integer; static;
|
|
||||||
{**
|
|
||||||
* Fast alternative to the @c System.SysUtils.AnsiLowerCase function
|
|
||||||
*
|
|
||||||
* @param S A reference to the target string.
|
|
||||||
*}
|
|
||||||
class procedure AnsiLowerCase(var S: String); static;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TListHelper<T> = record
|
|
||||||
public
|
|
||||||
class procedure BubbleSort(var List: TList<T>; const Comparer: IComparer<T>); static;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TJSONHelper = record
|
|
||||||
public
|
|
||||||
class function JSONToString(JSON: PJSONVariantData; const Ident: String = ''): String; static;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TStringBuffer = class(TObject)
|
|
||||||
strict private
|
|
||||||
FBuffer: array of Char;
|
|
||||||
FPosition: Integer;
|
|
||||||
FCapacity: Integer;
|
|
||||||
FChunkSize: Cardinal;
|
|
||||||
strict private
|
|
||||||
function GetValue: String; inline;
|
|
||||||
public
|
|
||||||
procedure Append(const S: String);
|
|
||||||
procedure AppendLn(const S: String);
|
|
||||||
public
|
|
||||||
constructor Create(ChunkSize: Cardinal = 1024 * 16);
|
|
||||||
public
|
|
||||||
property Value: String read GetValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
System.SysUtils, System.Variants;
|
|
||||||
|
|
||||||
{ TSizeFormatter }
|
|
||||||
|
|
||||||
class function TSizeFormatter.Format(Size: UInt64): String;
|
|
||||||
const
|
|
||||||
SZ_KB = 1024;
|
|
||||||
SZ_MB = 1024 * 1024;
|
|
||||||
SZ_GB = 1024 * 1024;
|
|
||||||
var
|
|
||||||
Format: TFormatSettings;
|
|
||||||
begin
|
|
||||||
Format := System.SysUtils.FormatSettings;
|
|
||||||
Format.DecimalSeparator := '.';
|
|
||||||
if (Size >= SZ_GB) then
|
|
||||||
begin
|
|
||||||
Result := FormatFloat('0.00 GiB', Size / SZ_GB, Format);
|
|
||||||
end else if (Size >= SZ_MB) then
|
|
||||||
begin
|
|
||||||
Result := FormatFloat('0.00 MiB', Size / SZ_MB, Format);
|
|
||||||
end else if (Size >= SZ_KB) then
|
|
||||||
begin
|
|
||||||
Result := FormatFloat('0.00 KiB', Size / SZ_KB, Format);
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Result := FormatFloat('0.00 Byte', Size, Format);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TStringHelper }
|
|
||||||
|
|
||||||
class function TStringHelper.IndexStr(const S: String; const Values: array of String): Integer;
|
|
||||||
var
|
|
||||||
L, I, J: Integer;
|
|
||||||
B: Boolean;
|
|
||||||
begin
|
|
||||||
Result := -1;
|
|
||||||
L := Length(S);
|
|
||||||
for I := Low(Values) to High(Values) do
|
|
||||||
begin
|
|
||||||
if (L <> Length(Values[I])) then Continue;
|
|
||||||
B := true;
|
|
||||||
for J := 1 to Length(S) do
|
|
||||||
begin
|
|
||||||
if (S[J] <> Values[I][J]) then
|
|
||||||
begin
|
|
||||||
B := false;
|
|
||||||
Continue;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
if (B) then
|
|
||||||
begin
|
|
||||||
Result := I;
|
|
||||||
Break;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
class procedure TStringHelper.AnsiLowerCase(var S: String);
|
|
||||||
const
|
|
||||||
Lower: array of Char =
|
|
||||||
['a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's',
|
|
||||||
't', 'u', 'v', 'w', 'x', 'y', 'z'];
|
|
||||||
var
|
|
||||||
I: Integer;
|
|
||||||
begin
|
|
||||||
for I := 1 to Length(S) do
|
|
||||||
begin
|
|
||||||
if (CharInSet(S[I], ['A'..'Z'])) then
|
|
||||||
begin
|
|
||||||
S[I] := Lower[Ord(S[I]) - Ord('A')];
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TListHelper<T> }
|
|
||||||
|
|
||||||
class procedure TListHelper<T>.BubbleSort(var List: TList<T>; const Comparer: IComparer<T>);
|
|
||||||
var
|
|
||||||
I: Integer;
|
|
||||||
Done: Boolean;
|
|
||||||
begin
|
|
||||||
repeat
|
|
||||||
Done := true;
|
|
||||||
for I := 0 to List.Count - 2 do
|
|
||||||
begin
|
|
||||||
if (Comparer.Compare(List[I], List[I + 1]) > 0) then
|
|
||||||
begin
|
|
||||||
List.Exchange(I, I + 1);
|
|
||||||
Done := false;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
until Done;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJSONHelper }
|
|
||||||
|
|
||||||
class function TJSONHelper.JSONToString(JSON: PJSONVariantData; const Ident: String = ''): String;
|
|
||||||
|
|
||||||
// TODO: This helper function needs refactoring
|
|
||||||
|
|
||||||
procedure JSONToString(Buffer: TStringBuffer; JSON: PJSONVariantData; const Ident: String = '');
|
|
||||||
|
|
||||||
procedure ValueToJSON(Buffer: TStringBuffer; const Value: Variant);
|
|
||||||
var
|
|
||||||
I64: Int64;
|
|
||||||
B: Boolean;
|
|
||||||
S: String;
|
|
||||||
begin
|
|
||||||
if (TVarData(Value).VType = JSONVariantType.VarType) then
|
|
||||||
begin
|
|
||||||
JSONToString(Buffer, @TJSONVariantData(Value), Ident + ' ');
|
|
||||||
end else if (TVarData(Value).VType = varByRef or varVariant) then
|
|
||||||
begin
|
|
||||||
ValueToJSON(Buffer, PVariant(TVarData(Value).VPointer)^)
|
|
||||||
end else if (TVarData(Value).VType <= varNull) then
|
|
||||||
begin
|
|
||||||
Buffer.Append('null');
|
|
||||||
end else if (TVarData(Value).VType = varBoolean) then
|
|
||||||
begin
|
|
||||||
B := Value;
|
|
||||||
Buffer.Append(LowerCase(BoolToStr(B, true)));
|
|
||||||
end else if (VarIsOrdinal(Value)) then
|
|
||||||
begin
|
|
||||||
I64 := Value;
|
|
||||||
Buffer.Append(IntToStr(I64));
|
|
||||||
end else if (TVarData(Value).VType = varDate) then
|
|
||||||
begin
|
|
||||||
Buffer.Append(DateTimeToJSON(TVarData(Value).VDouble));
|
|
||||||
end else if (VarIsFloat(Value)) then
|
|
||||||
begin
|
|
||||||
DoubleToJSON(Value, S);
|
|
||||||
Buffer.Append(S);
|
|
||||||
end else if (VarIsStr(Value)) then
|
|
||||||
begin
|
|
||||||
Buffer.Append(StringToJSON(Value));
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Buffer.Append(Value);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
I: Integer;
|
|
||||||
begin
|
|
||||||
case JSON.Kind of
|
|
||||||
jvObject:
|
|
||||||
begin
|
|
||||||
Buffer.AppendLn('{');
|
|
||||||
for I := 0 to JSON.Count - 1 do
|
|
||||||
begin
|
|
||||||
Buffer.Append(Ident);
|
|
||||||
Buffer.Append(' ');
|
|
||||||
Buffer.Append(StringToJSON(JSON.Names[I]) + ': ');
|
|
||||||
ValueToJSON(Buffer, JSON.Values[I]);
|
|
||||||
if (I = JSON.Count - 1) then
|
|
||||||
begin
|
|
||||||
Buffer.AppendLn('');
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Buffer.AppendLn(',');
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
Buffer.Append(Ident);
|
|
||||||
Buffer.Append('}');
|
|
||||||
end;
|
|
||||||
jvArray:
|
|
||||||
begin
|
|
||||||
Buffer.AppendLn('[');
|
|
||||||
for I := 0 to JSON.Count - 1 do
|
|
||||||
begin
|
|
||||||
Buffer.Append(Ident);
|
|
||||||
Buffer.Append(' ');
|
|
||||||
ValueToJSON(Buffer, JSON.Values[I]);
|
|
||||||
if (I = JSON.Count - 1) then
|
|
||||||
begin
|
|
||||||
Buffer.AppendLn('');
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Buffer.AppendLn(',');
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
Buffer.Append(Ident);
|
|
||||||
Buffer.Append(']');
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
Buffer.Append('null');
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
Buffer: TStringBuffer;
|
|
||||||
begin
|
|
||||||
Buffer := TStringBuffer.Create;
|
|
||||||
try
|
|
||||||
JSONToString(Buffer, JSON, Ident);
|
|
||||||
Result := Buffer.Value;
|
|
||||||
finally
|
|
||||||
Buffer.Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TStringBuffer }
|
|
||||||
|
|
||||||
procedure TStringBuffer.Append(const S: String);
|
|
||||||
var
|
|
||||||
L: Integer;
|
|
||||||
begin
|
|
||||||
L := Length(S);
|
|
||||||
while (FPosition + L > FCapacity) do
|
|
||||||
begin
|
|
||||||
Inc(FCapacity, FChunkSize);
|
|
||||||
SetLength(FBuffer, FCapacity);
|
|
||||||
end;
|
|
||||||
Move(S[1], FBuffer[FPosition], L * SizeOf(FBuffer[0]));
|
|
||||||
Inc(FPosition, L);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TStringBuffer.AppendLn(const S: String);
|
|
||||||
begin
|
|
||||||
Append(S);
|
|
||||||
Append(sLineBreak);
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TStringBuffer.Create(ChunkSize: Cardinal);
|
|
||||||
begin
|
|
||||||
inherited Create;
|
|
||||||
FChunkSize := ChunkSize;
|
|
||||||
FCapacity := FChunkSize;
|
|
||||||
SetLength(FBuffer, FChunkSize);
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TStringBuffer.GetValue: String;
|
|
||||||
begin
|
|
||||||
SetLength(Result, FPosition);
|
|
||||||
Move(FBuffer[0], Result[1], FPosition * SizeOf(FBuffer[0]));
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
@ -1,349 +0,0 @@
|
||||||
unit untPropertyEditors;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
cxOI;
|
|
||||||
|
|
||||||
type
|
|
||||||
TOpcodeByteProperty = class(TcxOrdinalProperty)
|
|
||||||
public
|
|
||||||
function GetValue: String; override;
|
|
||||||
procedure SetValue(const Value: String); override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TCPUIDFeatureFlagsProperty = class(TcxClassProperty)
|
|
||||||
public
|
|
||||||
procedure Edit; override;
|
|
||||||
function GetAttributes: TcxPropertyAttributes; override;
|
|
||||||
function GetValue: String; override;
|
|
||||||
procedure SetValue(const Value: String); override;
|
|
||||||
function IsDefaultValue: Boolean; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TX86RegistersProperty = class(TcxClassProperty)
|
|
||||||
public
|
|
||||||
procedure Edit; override;
|
|
||||||
function GetAttributes: TcxPropertyAttributes; override;
|
|
||||||
function GetValue: String; override;
|
|
||||||
procedure SetValue(const Value: String); override;
|
|
||||||
function IsDefaultValue: Boolean; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TInstructionOperandProperty = class(TcxClassProperty)
|
|
||||||
public
|
|
||||||
function GetAttributes: TcxPropertyAttributes; override;
|
|
||||||
function GetValue: String; override;
|
|
||||||
procedure SetValue(const Value: String); override;
|
|
||||||
function IsDefaultValue: Boolean; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
System.SysUtils, System.TypInfo, System.Classes, Vcl.Forms, Zydis.InstructionEditor,
|
|
||||||
untHelperClasses, formEditorCPUIDFeatureFlags, formEditorX86Registers, cxButtonEdit;
|
|
||||||
|
|
||||||
{ TOpcodeByteProperty }
|
|
||||||
|
|
||||||
function TOpcodeByteProperty.GetValue: String;
|
|
||||||
begin
|
|
||||||
Result := IntToHex(GetOrdValue, 2);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TOpcodeByteProperty.SetValue(const Value: String);
|
|
||||||
var
|
|
||||||
V: Integer;
|
|
||||||
begin
|
|
||||||
if (not TryStrToInt('$' + Value, V)) then
|
|
||||||
begin
|
|
||||||
raise Exception.CreateFmt('"%s" is not a valid hexadecimal value.', [Value]);
|
|
||||||
end;
|
|
||||||
if (V < 0) or (V > 255) then
|
|
||||||
begin
|
|
||||||
raise Exception.Create('Value has to be between 0 and 255.');
|
|
||||||
end;
|
|
||||||
SetOrdValue(V);
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TCPUIDFeatureFlagsProperty }
|
|
||||||
|
|
||||||
procedure TCPUIDFeatureFlagsProperty.Edit;
|
|
||||||
var
|
|
||||||
Form: TfrmEditorCPUIDFeatureFlags;
|
|
||||||
begin
|
|
||||||
Form := TfrmEditorCPUIDFeatureFlags.Create(Application);
|
|
||||||
try
|
|
||||||
Form.Caption := GetComponent(0).GetNamePath + '.' + GetName;
|
|
||||||
Form.FeatureFlags := TCPUIDFeatureFlags(GetOrdValue).FeatureFlags;
|
|
||||||
Form.ShowModal;
|
|
||||||
if (Form.ApplyChanges) then
|
|
||||||
begin
|
|
||||||
TCPUIDFeatureFlags(GetOrdValue).FeatureFlags := Form.FeatureFlags;
|
|
||||||
PostChangedNotification;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
Form.Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TCPUIDFeatureFlagsProperty.GetAttributes: TcxPropertyAttributes;
|
|
||||||
begin
|
|
||||||
Result := [ipaDialog];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TCPUIDFeatureFlagsProperty.GetValue: String;
|
|
||||||
var
|
|
||||||
CPUIDFeatureFlags: TCPUIDFeatureFlagSet;
|
|
||||||
CPUIDFeatureFlag: TCPUIDFeatureFlag;
|
|
||||||
S: String;
|
|
||||||
begin
|
|
||||||
Result := 'NONE';
|
|
||||||
CPUIDFeatureFlags := TCPUIDFeatureFlags(GetOrdValue).FeatureFlags;
|
|
||||||
if (CPUIDFeatureFlags <> []) then
|
|
||||||
begin
|
|
||||||
Result := '';
|
|
||||||
for CPUIDFeatureFlag in CPUIDFeatureFlags do
|
|
||||||
begin
|
|
||||||
S := GetEnumName(TypeInfo(TCPUIDFeatureFlag), Ord(CPUIDFeatureFlag));
|
|
||||||
Delete(S, 1, 2);
|
|
||||||
Result := Result + S + ', ';
|
|
||||||
end;
|
|
||||||
if (Result <> '') then
|
|
||||||
begin
|
|
||||||
Delete(Result, Length(Result) - 1, 2);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TCPUIDFeatureFlagsProperty.IsDefaultValue: Boolean;
|
|
||||||
begin
|
|
||||||
Result := (TCPUIDFeatureFlags(GetOrdValue).FeatureFlags = []);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TCPUIDFeatureFlagsProperty.SetValue(const Value: String);
|
|
||||||
var
|
|
||||||
S: String;
|
|
||||||
I: Integer;
|
|
||||||
C: Char;
|
|
||||||
A: TArray<String>;
|
|
||||||
F: TCPUIDFeatureFlag;
|
|
||||||
FeatureFlags: TCPUIDFeatureFlagSet;
|
|
||||||
begin
|
|
||||||
if (Value = '') then
|
|
||||||
begin
|
|
||||||
TCPUIDFeatureFlags(GetOrdValue).FeatureFlags := [];
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
SetLength(S, Length(Value));
|
|
||||||
I := 1;
|
|
||||||
for C in Value do
|
|
||||||
begin
|
|
||||||
if (CharInSet(C, ['a'..'z', 'A'..'Z', '0'..'9', ','])) then
|
|
||||||
begin
|
|
||||||
S[I] := C;
|
|
||||||
Inc(I);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
SetLength(S, I - 1);
|
|
||||||
TStringHelper.AnsiLowerCase(S);
|
|
||||||
A := S.Split([',']);
|
|
||||||
FeatureFlags := [];
|
|
||||||
for F := Low(TCPUIDFeatureFlag) to High(TCPUIDFeatureFlag) do
|
|
||||||
begin
|
|
||||||
S := GetEnumName(TypeInfo(TCPUIDFeatureFlag), Ord(F));
|
|
||||||
Delete(S, 1, 2);
|
|
||||||
TStringHelper.AnsiLowerCase(S);
|
|
||||||
for I := Low(A) to High(A) do
|
|
||||||
begin
|
|
||||||
if (A[I] = S) then
|
|
||||||
begin
|
|
||||||
Include(FeatureFlags, F);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
TCPUIDFeatureFlags(GetOrdValue).FeatureFlags := FeatureFlags;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TX86RegistersProperty }
|
|
||||||
|
|
||||||
procedure TX86RegistersProperty.Edit;
|
|
||||||
var
|
|
||||||
Form: TfrmEditorX86Registers;
|
|
||||||
begin
|
|
||||||
Form := TfrmEditorX86Registers.Create(Application);
|
|
||||||
try
|
|
||||||
Form.Caption := GetComponent(0).GetNamePath + '.' + GetName;
|
|
||||||
Form.Registers := TX86Registers(GetOrdValue).Registers;
|
|
||||||
Form.ShowModal;
|
|
||||||
if (Form.ApplyChanges) then
|
|
||||||
begin
|
|
||||||
TX86Registers(GetOrdValue).Registers := Form.Registers;
|
|
||||||
PostChangedNotification;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
Form.Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TX86RegistersProperty.GetAttributes: TcxPropertyAttributes;
|
|
||||||
begin
|
|
||||||
Result := [ipaDialog];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TX86RegistersProperty.GetValue: String;
|
|
||||||
var
|
|
||||||
X86Registers: TX86RegisterSet;
|
|
||||||
X86Register: TX86Register;
|
|
||||||
S: String;
|
|
||||||
begin
|
|
||||||
Result := 'NONE';
|
|
||||||
X86Registers := TX86Registers(GetOrdValue).Registers;
|
|
||||||
if (TX86Registers(GetOrdValue).Registers <> []) and
|
|
||||||
(TX86Registers(GetOrdValue).Registers <> [regNone]) then
|
|
||||||
begin
|
|
||||||
Result := '';
|
|
||||||
for X86Register in X86Registers do
|
|
||||||
begin
|
|
||||||
S := GetEnumName(TypeInfo(TX86Register), Ord(X86Register));
|
|
||||||
Delete(S, 1, 3);
|
|
||||||
Result := Result + S + ', ';
|
|
||||||
end;
|
|
||||||
if (Result <> '') then
|
|
||||||
begin
|
|
||||||
Delete(Result, Length(Result) - 1, 2);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TX86RegistersProperty.IsDefaultValue: Boolean;
|
|
||||||
begin
|
|
||||||
Result := (TX86Registers(GetOrdValue).Registers = []) or
|
|
||||||
(TX86Registers(GetOrdValue).Registers = [regNone])
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TX86RegistersProperty.SetValue(const Value: String);
|
|
||||||
var
|
|
||||||
S: String;
|
|
||||||
I: Integer;
|
|
||||||
C: Char;
|
|
||||||
A: TArray<String>;
|
|
||||||
R: TX86Register;
|
|
||||||
Registers: TX86RegisterSet;
|
|
||||||
begin
|
|
||||||
if (Value = '') then
|
|
||||||
begin
|
|
||||||
TX86Registers(GetOrdValue).Registers := [];
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
SetLength(S, Length(Value));
|
|
||||||
I := 1;
|
|
||||||
for C in Value do
|
|
||||||
begin
|
|
||||||
if (CharInSet(C, ['a'..'z', 'A'..'Z', '0'..'9', ','])) then
|
|
||||||
begin
|
|
||||||
S[I] := C;
|
|
||||||
Inc(I);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
SetLength(S, I - 1);
|
|
||||||
TStringHelper.AnsiLowerCase(S);
|
|
||||||
A := S.Split([',']);
|
|
||||||
Registers := [];
|
|
||||||
for R := Low(TX86Register) to High(TX86Register) do
|
|
||||||
begin
|
|
||||||
S := GetEnumName(TypeInfo(TX86Register), Ord(R));
|
|
||||||
Delete(S, 1, 3);
|
|
||||||
TStringHelper.AnsiLowerCase(S);
|
|
||||||
for I := Low(A) to High(A) do
|
|
||||||
begin
|
|
||||||
if (A[I] = S) then
|
|
||||||
begin
|
|
||||||
Include(Registers, R);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
TX86Registers(GetOrdValue).Registers := Registers;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TInstructionOperandProperty }
|
|
||||||
|
|
||||||
function TInstructionOperandProperty.GetAttributes: TcxPropertyAttributes;
|
|
||||||
begin
|
|
||||||
Result := [ipaSubProperties];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInstructionOperandProperty.GetValue: String;
|
|
||||||
begin
|
|
||||||
Result := TInstructionOperand(GetOrdValue).GetDescription;
|
|
||||||
if (TInstructionOperand(GetOrdValue).OperandType = optUnused) then
|
|
||||||
begin
|
|
||||||
Result := 'unused';
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInstructionOperandProperty.IsDefaultValue: Boolean;
|
|
||||||
begin
|
|
||||||
Result := (TInstructionOperand(GetOrdValue).OperandType = optUnused);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInstructionOperandProperty.SetValue(const Value: String);
|
|
||||||
var
|
|
||||||
S, R: String;
|
|
||||||
I: Integer;
|
|
||||||
C: Char;
|
|
||||||
A: TArray<String>;
|
|
||||||
T: TOperandType;
|
|
||||||
begin
|
|
||||||
if (Value = '') then
|
|
||||||
begin
|
|
||||||
TInstructionOperand(GetOrdValue).OperandType := optUnused;
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
SetLength(S, Length(Value));
|
|
||||||
I := 1;
|
|
||||||
for C in Value do
|
|
||||||
begin
|
|
||||||
if (CharInSet(C, ['a'..'z', 'A'..'Z', '0'..'9', '('])) then
|
|
||||||
begin
|
|
||||||
S[I] := C;
|
|
||||||
Inc(I);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
SetLength(S, I - 1);
|
|
||||||
TStringHelper.AnsiLowerCase(S);
|
|
||||||
A := S.Split(['(']);
|
|
||||||
for T := Low(TOperandType) to High(TOperandType) do
|
|
||||||
begin
|
|
||||||
R := GetEnumName(TypeInfo(TOperandType), Ord(T));
|
|
||||||
Delete(R, 1, 3);
|
|
||||||
TStringHelper.AnsiLowerCase(R);
|
|
||||||
if (A[0] = R) then
|
|
||||||
begin
|
|
||||||
TInstructionOperand(GetOrdValue).OperandType := T;
|
|
||||||
Break;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
if (Length(A) >= 1) then
|
|
||||||
begin
|
|
||||||
if (A[1] = 'r') then TInstructionOperand(GetOrdValue).Action := opaRead
|
|
||||||
else if (A[1] = 'w') then TInstructionOperand(GetOrdValue).Action := opaWrite
|
|
||||||
else if (A[1] = 'rw') then TInstructionOperand(GetOrdValue).Action := opaReadWrite;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
// Register custom property editor for hexadecimal display of TOpcodeByte values
|
|
||||||
cxRegisterPropertyEditor(TypeInfo(TOpcodeByte), nil, '', TOpcodeByteProperty);
|
|
||||||
|
|
||||||
// Register custom property editors for easy modification of the instruction-operands
|
|
||||||
cxRegisterPropertyEditor(TypeInfo(TInstructionOperand), nil, '', TInstructionOperandProperty);
|
|
||||||
|
|
||||||
// Delphi does not allow sets > 4 bytes as published values, so we have to use a wrapper class
|
|
||||||
// and a custom editor
|
|
||||||
cxRegisterPropertyEditor(TypeInfo(TCPUIDFeatureFlags), nil, '', TCPUIDFeatureFlagsProperty);
|
|
||||||
cxRegisterEditPropertiesClass(TCPUIDFeatureFlagsProperty, TcxButtonEditProperties);
|
|
||||||
cxRegisterPropertyEditor(TypeInfo(TX86Registers), nil, '', TX86RegistersProperty);
|
|
||||||
cxRegisterEditPropertiesClass(TX86RegistersProperty, TcxButtonEditProperties);
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
@ -1,75 +0,0 @@
|
||||||
unit untPropertyHints;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
function GetPropertyHint(const PropertyId: String): String;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
type
|
|
||||||
TPropertyHint = record
|
|
||||||
public
|
|
||||||
PropertyId: String;
|
|
||||||
PropertyHint: String;
|
|
||||||
end;
|
|
||||||
|
|
||||||
const
|
|
||||||
PropertyHints: array[0..7] of TPropertyHint =
|
|
||||||
(
|
|
||||||
(
|
|
||||||
PropertyId : 'Filter.FilterType';
|
|
||||||
PropertyHint: 'The filter type.'
|
|
||||||
),
|
|
||||||
(
|
|
||||||
PropertyId : 'Filter.FilterFlags';
|
|
||||||
PropertyHint: 'The filter flags.'
|
|
||||||
),
|
|
||||||
(
|
|
||||||
PropertyId : 'Filter.FilterFlags.iffIsRootTable';
|
|
||||||
PropertyHint: 'This is the root table.'
|
|
||||||
),
|
|
||||||
(
|
|
||||||
PropertyId : 'Filter.FilterFlags.iffIsStaticFilter';
|
|
||||||
PropertyHint: 'This is a static filter that should not be removed.'
|
|
||||||
),
|
|
||||||
(
|
|
||||||
PropertyId : 'Filter.FilterFlags.iffIsDefinitionContainer';
|
|
||||||
PropertyHint: 'This is a definition container and not an actual filter.'
|
|
||||||
),
|
|
||||||
(
|
|
||||||
PropertyId : 'Filter.NeutralElementType';
|
|
||||||
PropertyHint: 'The neutral element type of the filter. Possible values:' + #13#10#13#10 +
|
|
||||||
'- netNotAvailable' + #13#10 +
|
|
||||||
'The neutral "zero" element is not supported.' + #13#10 +
|
|
||||||
'- netPlaceholder' + #13#10 +
|
|
||||||
'The neutral "zero" element is supported and used as a placeholder. ' +
|
|
||||||
'The filter will signal a conflict, if the neutral element AND at least one ' +
|
|
||||||
'regular value is set.' + #13#10 +
|
|
||||||
'- netValue' + #13#10 +
|
|
||||||
'The neutral "zero" element is supported and can be used as a regular value.'
|
|
||||||
),
|
|
||||||
(
|
|
||||||
PropertyId : 'Filter.Capacity';
|
|
||||||
PropertyHint: 'The maximum capacity of the filter.'
|
|
||||||
),
|
|
||||||
(
|
|
||||||
PropertyId : 'Filter.ItemCount';
|
|
||||||
PropertyHint: 'The actual number of non-empty slots in the filter.'
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
function GetPropertyHint(const PropertyId: String): String;
|
|
||||||
var
|
|
||||||
I: Integer;
|
|
||||||
begin
|
|
||||||
Result := 'No info text available.';
|
|
||||||
for I := Low(PropertyHints) to High(PropertyHints) do
|
|
||||||
begin
|
|
||||||
if (PropertyHints[I].PropertyId = PropertyId) then
|
|
||||||
begin
|
|
||||||
Exit(PropertyHints[I].PropertyHint);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
262364
assets/instructions.json
262364
assets/instructions.json
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue