Commit 13add2f6 authored by Denis Budyak's avatar Denis Budyak

пересобрал релиз/rebuilt release

parent f69496f4
No preview for this file type
MODULE BtDbgPanel;
IMPORT SYSTEM, KernelLog, WMComponents, Modules, WM := WMWindowManager, WMGraphics, WMRectangles, Strings, Streams, WMProperties, WMStandardComponents, WMTrees, Kernel32, Machine, Heaps, WMMessages, WMGrids, WMStringGrids, BtDecoder, Inputs;
IMPORT SYSTEM, KernelLog, WMComponents, Modules, WM := WMWindowManager, WMGraphics, WMRectangles, Strings, Streams, WMProperties, WMStandardComponents, WMTrees, Kernel32, WMMessages, WMGrids, WMStringGrids, BtDecoder, Inputs;
CONST
AlignTop = WMComponents.AlignTop;
AlignNone = WMComponents.AlignNone;
AlignLeft = WMComponents.AlignLeft;
AlignClient = WMComponents.AlignClient;
AlignRight = WMComponents.AlignRight;
AlignBottom = WMComponents.AlignBottom;
DataLen = 1024;
mouseWheelScrollSpeedI = 3;
FlCount = 15;
clrSelection* = LONGINT(8080FFFFH);
......@@ -15,20 +10,19 @@ CONST
clrBackGround* = LONGINT(33023);
clrText* = 16777215;
TYPE
String = Strings.String;
Canvas = WMGraphics.Canvas;
VariablesPanel* = OBJECT {EXCLUSIVE} (WMComponents.VisualComponent)
VAR
owner: WMComponents.FormWindow;
trv*: WMTrees.TreeView;
nodeSelected: ANY;
PROCEDURE ^ & Init*;
PROCEDURE ^ SetNewRoot*(r: WMTrees.TreeNode);
PROCEDURE ^ DrawNode(canvas: WMGraphics.Canvas; w, h: LONGINT; node: WMTrees.TreeNode; state: SET);
PROCEDURE ^ NodeSelected(sender, data: ANY);
PROCEDURE ^ Handle*(VAR m: WMMessages.Message);
PROCEDURE ^ ControlKeyDown(flags: SET): BOOLEAN;
PROCEDURE ^ HandleVariablesPanelShortcut(ucs: LONGINT; flags: SET; keysym: LONGINT): BOOLEAN;
END VariablesPanel;
FlOfsArr = ARRAY FlCount OF LONGINT;
......@@ -58,7 +52,6 @@ TYPE
MemPanel* = OBJECT {EXCLUSIVE} (WMComponents.VisualComponent)
VAR
font: WMGraphics.Font;
editState: EditState;
selectionColor-, backGroundColor-, textColor-: LONGINT;
fontHeight: LONGINT;
fontWidth: LONGINT;
......@@ -103,7 +96,6 @@ TYPE
Window* = OBJECT {EXCLUSIVE} (WMComponents.FormWindow)
VAR
memPanel: MemPanel;
varPanel: VariablesPanel;
PROCEDURE ^ CreateForm(): WMComponents.VisualComponent;
PROCEDURE ^ & New*;
......
No preview for this file type
......@@ -158,21 +158,19 @@ VAR
PROCEDURE ^ WriteValueString*(w: Streams.Writer; adr: ADDRESS; maxLen: LONGINT; low, high: ADDRESS);
PROCEDURE ^ WriteValueHexWords*(w: Streams.Writer; adr: ADDRESS; numWords: LONGINT);
PROCEDURE ^ WriteRecord*(VAR k: KontekstPechati; VAR offset: LONGINT; adr: ADDRESS);
PROCEDURE ^ WriteRecordFromTheSTArray*(VAR k: KontekstPechati; firstElemAdr: ADDRESS; i: LONGINT; offsetNoVar: LONGINT);
PROCEDURE ^ WriteRecordFromTheSTArray*(VAR k: KontekstPechati; firstElemAdr: ADDRESS; i: LONGINT; offsetTipaElementaMassivaNoVar, offsetRecordTypeDeclNoVar: LONGINT);
PROCEDURE ^ WritePointerToRecord*(VAR k: KontekstPechati; type: CHAR; size: SIZE; VAR offset: LONGINT; adr: ADDRESS);
PROCEDURE ^ ZadajjKontekstPechatiPoUmolch*(VAR k: KontekstPechati);
PROCEDURE ^ Pech*(w: Streams.Writer; x: ANY);
PROCEDURE ^ PechVKontekste*(VAR k: KontekstPechati; x: ANY);
PROCEDURE ^ PechPoAdr*(w: Streams.Writer; xAddress, typeDescAddress: ADDRESS);
PROCEDURE ^ PechPoAdrVKontekste*(VAR k: KontekstPechati; xAddress, typeDescAddress: ADDRESS);
PROCEDURE ^ WriteValueUsingSvedenijaOTipe(VAR k: KontekstPechati; VAR sOT: svedenijaOTipe; xAddress: ADDRESS; neUkaz: BOOLEAN);
PROCEDURE ^ WriteZapisqVMassiveUsingModulesDotTypeDesc*(VAR k: KontekstPechati; typeAdr, value: ADDRESS; index: LONGINT);
PROCEDURE ^ PechVKontekste*(VAR k: KontekstPechati; x: ANY; nePechIneAdr: BOOLEAN);
PROCEDURE ^ WriteValueUsingSvedenijaOTipe(VAR k: KontekstPechati; VAR sOT: svedenijaOTipe; xAddress: ADDRESS; neUkaz: BOOLEAN; nePechAdr: BOOLEAN);
PROCEDURE ^ WriteZapisqVMassiveUsingModulesDotTypeDesc*(VAR k: KontekstPechati; typeAdr, value: ADDRESS; index, offsetTipaElementaMassivaNoVar: LONGINT);
PROCEDURE ^ WriteValueUsingModulesDotTypeDesc*(VAR k: KontekstPechati; typeAdr, value: ADDRESS);
PROCEDURE ^ NapechatajjAdres(VAR k: KontekstPechati; adr: ADDRESS; VAR spa: StatusPechatiAdresa);
PROCEDURE ^ WriteValueAndItsScope*(VAR k: KontekstPechati; VAR offset: LONGINT; value: ADDRESS; zashhitaOtCiklov: BOOLEAN);
PROCEDURE ^ WriteScopeByTypeDecl*(VAR k: KontekstPechati; VAR offset: LONGINT; value: ADDRESS; zashhitaOtCiklov: BOOLEAN);
PROCEDURE ^ Otstup(VAR k: KontekstPechati; delta: INTEGER);
PROCEDURE ^ WriteScopeContentsForValue*(VAR k: KontekstPechati; VAR offset: LONGINT; value: ADDRESS);
PROCEDURE ^ WriteValue*(VAR k: KontekstPechati; VAR offset: LONGINT; adr: ADDRESS);
PROCEDURE ^ WriteScopeVarsForValue*(VAR k: KontekstPechati; VAR offset: LONGINT; value: ADDRESS);
PROCEDURE ^ WriteAValue*(VAR k: KontekstPechati; VAR offset: LONGINT; adr: ADDRESS);
PROCEDURE ^ WriteVariable*(VAR k: KontekstPechati; VAR offset: LONGINT; base: ADDRESS; prefiks: ARRAY 3 OF CHAR);
PROCEDURE ^ WriteVariables*(VAR k: KontekstPechati; VAR offset: LONGINT; base: ADDRESS; prefiks: ARRAY 3 OF CHAR);
PROCEDURE ^ ModuleState*(w: Streams.Writer; mod: Modules.Module);
......
MODULE WMDebugger;
IMPORT SYSTEM, WMMessages, KernelLog, Kernel32, Machine, Reflection, Objects, Modules, WMComponents, WM := WMWindowManager, WMStandardComponents, Strings, WMGraphics, WMRectangles, Files, Commands, WMWindowManager, UTF8Strings, WMTextView := WMTextView2, Texts, TextUtilities, Streams, WMTabComponents, BtDTraps, BtMenus, WMTrees, BtDbgPanel, WMComboBox, CompilerInterface, WMDiagnostics, BtDecoder;
IMPORT SYSTEM, WMMessages, KernelLog, Kernel32, Machine, Reflection, Objects, Modules, WMComponents, WM := WMWindowManager, WMStandardComponents, Strings, WMGraphics, WMRectangles, Files, Commands, WMWindowManager, UTF8Strings, WMTextView := WMTextView2, Texts, TextUtilities, Streams, WMTabComponents, BtDTraps, BtMenus, WMTrees, BtDbgPanel, WMComboBox, CompilerInterface, WMDiagnostics, BtDecoder, PodrobnajaPechatq;
CONST
Trace = TRUE;
MaxNbrOfTabs = 100;
......@@ -25,10 +25,10 @@ CONST
TYPE
Name = ARRAY 128 OF CHAR;
Variable = Reflection.Variable;
PVariable = POINTER TO RECORD
adr: ADDRESS;
mod: Modules.Module;
offset: LONGINT;
END;
Filename = ARRAY 256 OF CHAR;
......@@ -124,6 +124,7 @@ TYPE
PROCEDURE ^ & New;
PROCEDURE ^ Close*;
PROCEDURE ^ ClickNode(sender, data: ANY);
PROCEDURE ^ Inspektirujj(nodeCaption: Strings.String; pv: PVariable);
PROCEDURE ^ GetLocalVars(int: Kernel32.Context; mod: Modules.Module);
PROCEDURE ^ ToFront*;
PROCEDURE ^ DbgHandler(VAR int: Kernel32.Context; VAR exc: Kernel32.ExceptionRecord; VAR handled: BOOLEAN);
......
No preview for this file type
......@@ -3,9 +3,9 @@ MODULE r;
CONST
PROCEDURE ^ ZagruziModulqIliObjqjasnisq(imjaModulja: ARRAY 256 OF CHAR; ktoVyzval: ARRAY 256 OF CHAR; VAR o: Streams.Writer): Modules.Module;
PROCEDURE ^ STz1*(context: Commands.Context);
PROCEDURE ^ STz2*(context: Commands.Context);
PROCEDURE ^ STz(vid: INTEGER; context: Commands.Context);
PROCEDURE ^ RazberiAdres(o: Streams.Writer; CONST adresSPrefiksom: ARRAY OF CHAR; VAR adres: ADDRESS): BOOLEAN;
PROCEDURE ^ STz*(context: Commands.Context);
PROCEDURE ^ Pech*(context: Commands.Context);
PROCEDURE ^ PokazhiSostojanieModulja*(context: Commands.Context);
PROCEDURE ^ ReportModuleByName*(context: Commands.Context);
BEGIN
......
set -xe
cd /mnt/c/ob/jaos/WinAos
mv a2.exe a2host.exe
rm -f *.Dpi *.Obw SystemTrace*.txt
mkdir obgn
......
......@@ -2,6 +2,7 @@ cd /mnt/c/ob/jaos/WinAos
echo A2.
echo zapusti-vnutri-a2host-exe.txt
echo .
set -xe
./a2host.exe C:\\ob\\jaos\\WinAos\\wsl-build\\zapusti-vnutri-a2host-exe.txt
......@@ -4,7 +4,6 @@ mv Work/a2.exe a2.exe
mv Work/a2.log a2.log
mv obg obg.old
mv obgn obg
rm -rf xym
mkdir xym
mv Work/xym/* xym
......
set -xe
cd /mnt/c/ob/jaos/WinAos
bash wsl-build/wsl-build-ehtap-1.sh
bash wsl-build/wsl-build-ehtap-2.sh
......
No preview for this file type
No preview for this file type
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment