This commit is contained in:
f1iwq2
2024-02-12 17:11:02 +01:00
parent b4d968c6ea
commit c116b8c933
10 changed files with 196 additions and 153 deletions
+2 -2
View File
@@ -14,8 +14,8 @@
-$N+
-$O-
-$P+
-$Q+
-$R+
-$Q-
-$R-
-$S-
-$T-
-$U-
+2 -2
View File
@@ -17,8 +17,8 @@ M=0
N=1
O=0
P=1
Q=1
R=1
Q=0
R=0
S=0
T=0
U=0
+120 -120
View File
@@ -1,104 +1,104 @@
Start Length Name Class
0001:00000000 001AF198H .text CODE
0002:00000000 00002CB0H .data DATA
0002:00002CB0 045E33F1H .bss BSS
0001:00000000 0017B6DCH .text CODE
0002:00000000 00002C84H .data DATA
0002:00002C84 045E33F9H .bss BSS
Detailed map of segments
0001:00000000 00005F07 C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005F08 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9
0001:00006048 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9
0001:00006150 00000F38 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:00007088 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:000070C0 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:000073F8 00006FF8 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E3F0 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000EC0C 0000809E C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016CAC 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016E4C 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:00017688 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:000179E0 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:000221CC 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:0002253C 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002C138 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002C25C 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C514 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C6AC 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CE34 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CE6C 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DE64 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DEBC 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002EF84 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F2A4 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F694 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:00030050 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:00030088 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:000300C0 00000048 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:00030108 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:00030140 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:00030198 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:000301D0 0000007C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:0003024C 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:000302AC 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:000302E4 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:000339B8 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:00038494 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:00038524 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:00038CC4 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:00038DEC 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003C610 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003C648 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003C6B0 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003C718 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003C784 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003C7DC 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003C814 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:0004615C 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00046FFC 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:00053694 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:000537FC 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:0005451C 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:00065920 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:00066BB4 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:00068750 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:0006EE34 0000CF8C C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007BDC0 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0007BE20 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:0007D07C 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:0007D0B4 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:0007E848 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:0007E8A8 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:00081DC4 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:00081E14 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:00095200 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:00095514 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:0009563C 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:000990B4 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:000999A0 00000598 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:00099F38 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:00099F78 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:00099FB0 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009A9C8 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009CAD0 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A5D1C 0000191C C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A7638 00000574 C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000A7BAC 000192C0 C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000C0E6C 00002D2C C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000C3B98 00000D78 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000C4910 00004FA0 C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000C98B0 00045960 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:0010F210 000031F0 C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:00112400 00002950 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:00114D50 000029E7 C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:00117738 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:00118908 00046C78 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:0015F580 00002B74 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:001620F4 00000D2C C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:00162E20 000029DC C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:001657FC 000494DB C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:001AECD8 000004C0 C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9
0001:00000000 00005EC7 C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005EC8 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9
0001:00006008 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9
0001:00006110 00000F38 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:00007048 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:00007080 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:000073B8 00006FF8 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E3B0 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000EBCC 0000809E C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016C6C 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016E0C 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:00017648 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:000179A0 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:0002218C 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:000224FC 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002C0F8 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002C21C 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C4D4 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C66C 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CDF4 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CE2C 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DE24 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DE7C 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002EF44 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F264 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F654 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:00030010 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:00030048 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:00030080 00000048 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:000300C8 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:00030100 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:00030158 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:00030190 0000007C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:0003020C 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:0003026C 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:000302A4 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:00033978 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:00038454 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:000384E4 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:00038C84 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:00038DAC 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003C5D0 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003C608 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003C670 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003C6D8 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003C744 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003C79C 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003C7D4 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:0004611C 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00046FBC 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:00053654 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:000537BC 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:000544DC 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:000658E0 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:00066B74 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:00068710 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:0006EDF4 0000CF8C C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007BD80 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0007BDE0 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:0007D03C 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:0007D074 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:0007E808 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:0007E868 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:00081D84 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:00081DD4 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:000951C0 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:000954D4 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:000955FC 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:00099074 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:00099960 00000598 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:00099EF8 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:00099F38 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:00099F70 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009A988 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009CA90 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A5CDC 00002A08 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:000A86E4 000017B8 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A9E9C 00000574 C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000AA410 000147BC C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000BEBCC 000027E0 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000C13AC 00000C64 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000C2010 00003BEC C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000C5BFC 000312F0 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:000F6EEC 00002D1C C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:000F9C08 00002594 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:000FC19C 0003C444 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:001385E0 0000284B C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:0013AE2C 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:0013BFFC 00000C00 C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:0013CBFC 00002670 C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:0013F26C 0003BFAF C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:0017B21C 000004C0 C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9
0002:00000000 000000CC C=DATA S=.data G=DGROUP M=System ACBP=A9
0002:000000CC 00000020 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9
0002:000000EC 00000254 C=DATA S=.data G=DGROUP M=SysUtils ACBP=A9
@@ -126,12 +126,12 @@ Detailed map of segments
0002:00001260 00000030 C=DATA S=.data G=DGROUP M=ComObj ACBP=A9
0002:00001290 0000002C C=DATA S=.data G=DGROUP M=OleCtrls ACBP=A9
0002:000012BC 00000908 C=DATA S=.data G=DGROUP M=jpeg ACBP=A9
0002:00001BC4 00000080 C=DATA S=.data G=DGROUP M=MSCommLib_TLB ACBP=A9
0002:00001C44 00000009 C=DATA S=.data G=DGROUP M=MaskUtils ACBP=A9
0002:00001C50 00000004 C=DATA S=.data G=DGROUP M=Mask ACBP=A9
0002:00001C54 00000006 C=DATA S=.data G=DGROUP M=Grids ACBP=A9
0002:00001C5C 000000D4 C=DATA S=.data G=DGROUP M=UnitTCO ACBP=A9
0002:00001D30 0000060D C=DATA S=.data G=DGROUP M=UnitPrinc ACBP=A9
0002:00001BC4 00000058 C=DATA S=.data G=DGROUP M=MSCommLib_TLB ACBP=A9
0002:00001C1C 00000009 C=DATA S=.data G=DGROUP M=MaskUtils ACBP=A9
0002:00001C28 00000004 C=DATA S=.data G=DGROUP M=Mask ACBP=A9
0002:00001C2C 00000006 C=DATA S=.data G=DGROUP M=Grids ACBP=A9
0002:00001C34 000000D4 C=DATA S=.data G=DGROUP M=UnitTCO ACBP=A9
0002:00001D08 0000060D C=DATA S=.data G=DGROUP M=UnitPrinc ACBP=A9
0002:00003000 00000664 C=BSS S=.bss G=DGROUP M=System ACBP=A9
0002:00003664 00000010 C=BSS S=.bss G=DGROUP M=SysInit ACBP=A9
0002:00003674 00000004 C=BSS S=.bss G=DGROUP M=Types ACBP=A9
@@ -207,28 +207,29 @@ Detailed map of segments
0002:00003E58 00000004 C=BSS S=.bss G=DGROUP M=MaskUtils ACBP=A9
0002:00003E5C 00000004 C=BSS S=.bss G=DGROUP M=Mask ACBP=A9
0002:00003E60 00000004 C=BSS S=.bss G=DGROUP M=Grids ACBP=A9
0002:00003E64 00000010 C=BSS S=.bss G=DGROUP M=UnitPilote ACBP=A9
0002:00003E74 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9
0002:00003E84 000148B0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:00018734 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00018748 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:0001875C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:00018770 00418700 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:00430E70 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:00430E80 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:00430E94 00000020 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:00430EB4 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:00430EB8 00000558 C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:00431410 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9
0002:0043143C 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:00431448 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:00431450 041B4FA0 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9
0002:00003E64 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9
0002:00003E90 00000010 C=BSS S=.bss G=DGROUP M=UnitPilote ACBP=A9
0002:00003EA0 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9
0002:00003EB0 000148B0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:00018760 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00018774 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:00018788 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:0001879C 00418700 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:00430E9C 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:00430EAC 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:00430EC0 00000560 C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:00431420 00000020 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:00431440 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:00431444 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:00431450 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:00431458 041B4FA0 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9
Bound resource files
c:\program files (x86)\borland\delphi7\Lib\Buttons.res
c:\program files (x86)\borland\delphi7\Lib\ExtDlgs.res
c:\program files (x86)\borland\delphi7\Lib\Controls.res
UnitDebug.dfm
UnitPilote.dfm
Importation.dfm
UnitAnalyseSegCDM.dfm
@@ -238,9 +239,8 @@ UnitConfigCellTCO.dfm
UnitTCO.dfm
UnitSR.dfm
UnitCDF.dfm
verif_version.dfm
UnitConfig.dfm
UnitDebug.dfm
verif_version.dfm
UnitSimule.dfm
Unitplace.dfm
UnitPrinc.dfm
@@ -248,4 +248,4 @@ Signaux_complexes_GL.res
Signaux_complexes_GL.drf
Program entry point at 0001:001AEFE8
Program entry point at 0001:0017B52C
+15 -5
View File
@@ -1,8 +1,8 @@
unit UnitAnalyseSegCDM;
// importation des données de CDM
// Affichage de la page du réseau CDM
// les Tjs ne sont pas traitées, de même que les bretelles double jonction
//
// les Tjs ne sont pas traitées
// fichier source CDM générateur de l'export : cd_cdb.c version 2.0
interface
uses
@@ -292,7 +292,7 @@ begin
Segment[nSeg-1].periph[nperiph-1].location:=i;
s:=AnsiLowerCase(lignes[nligne]);
inc(nLigne);
// ne pas faire inc(nligne) car on va regarder la ligne suivante en indiçant en +1
s2:=isole_valeur(s,'address',true);
val(s2,i,erreur);
@@ -318,9 +318,14 @@ begin
// peut être suivi de 'On device port'
Segment[nSeg-1].periph[nperiph-1].OnDevicePort:=-1; // marqueur d'invalidité
s:=AnsiLowerCase(lignes[nligne]);
s:=AnsiLowerCase(lignes[nligne+1]);
if pos('on device port',s)<>0 then
begin
if nDet_cdm<>0 then
begin
Affiche('Detecteur '+intToSTR(Det_CDM[nDet_cdm])+' sur appareil de voie ',clorange);
AfficheDebug('Detecteur '+intToSTR(Det_CDM[nDet_cdm])+' sur appareil de voie ',clorange);
end;
s2:=isole_valeur(s,'on device port #',true);
inc(nLigne);
val(s2,i,erreur);
@@ -4163,7 +4168,12 @@ begin
inc(i);
until i>=nseg-1;
Affichage(false);
Affichage(false);
Affiche('Nombre de détecteurs='+intToSTR(NDet_cdm),clyellow);
if debugAnalyse then
begin
AfficheDebug('Nombre de détecteurs='+intToSTR(NDet_cdm),clyellow);
for i:=1 to Ndet_cdm do AfficheDebug(intToSTR(Det_cdm[i]),clYellow);
end;
formAnalyseCDM.Show;
+6 -6
View File
@@ -681,7 +681,7 @@ object FormConfig: TFormConfig
Top = 8
Width = 633
Height = 505
ActivePage = TabSheetAct
ActivePage = TabSheetTrains
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
@@ -3884,35 +3884,35 @@ object FormConfig: TFormConfig
TabOrder = 0
object Label51: TLabel
Left = 16
Top = 48
Top = 50
Width = 38
Height = 13
Caption = 'Adresse'
end
object Label52: TLabel
Left = 16
Top = 120
Top = 122
Width = 80
Height = 13
Caption = 'Vitesse maximale'
end
object Label53: TLabel
Left = 16
Top = 24
Top = 26
Width = 22
Height = 13
Caption = 'Nom'
end
object Label56: TLabel
Left = 16
Top = 72
Top = 74
Width = 215
Height = 13
Caption = 'Vitesse '#224' l'#39'avertissement ou au ralentissement'
end
object Label57: TLabel
Left = 16
Top = 96
Top = 98
Width = 79
Height = 13
Caption = 'Vitesse nominale'
+29 -4
View File
@@ -669,14 +669,14 @@ var
EditZdet1V4F,EditZdet2V4F,EditZdet1V4O,EditZdet2V4O,
EditZdet1V5F,EditZdet2V5F,EditZdet1V5O,EditZdet2V5O,EditOuvreEcran,
EditNbDetDist,EditNbCantons,EditFiltrDet,EditAlgo,
EditMaxSignalSens,EditnCantonsRes : Tedit;
EditMaxSignalSens,EditnCantonsRes,EditAntiTO : Tedit;
EditT : Array[1..10] of Tedit;
TextBoxCde : array[1..19] of Tedit;
LabelPortCde,LbPnVoie1,LbAPnVoie1,LbAPnVoie2,LbAPnVoie3,LbAPnVoie4,LbAPnVoie5,LbATitre,
LbZTitre,LbZPnVoie1,LbZPnVoie2,LbZPnVoie3,LbZPnVoie4,LbZPnVoie5,LabelMP,LabelNumeroP,
LabelStyle,LabelOuvreEcran,LabelAvance1,LabelAvance2,
LabelStyle,LabelOuvreEcran,LabelAvance1,LabelAvance2,LabelAntiTO,
LabelTD,LabelNC,LabelFiltre,LabelAlgo,LabelNbSignBS,LabelnCantonsRes : Tlabel;
RadioReserve : TradioGroup;
@@ -4030,6 +4030,10 @@ begin
if (i<1) or (i>5) then i:=2;
nCantonsRes:=i;
val(EditAntiTO.Text,i,erreur);
if (i<0) or (i>1) then i:=0;
AntiTimeoutEthLenz:=i;
Val(editTempoAig.Text,i,erreur);
if i>3000 then begin labelInfo.Caption:='Temporisation de séquencement incorrecte ';ok:=false;end;
Tempo_Aig:=i;
@@ -4252,6 +4256,7 @@ begin
EditTempoAig.Text:=IntToSTR(Tempo_Aig);
EditFiltrDet.text:=intToSTR(filtrageDet0);
EditnCantonsRes.Text:=intToSTR(nCantonsRes);
EditAntiTO.Text:=intToSTR(AntiTimeoutEthLenz);
{$IF CompilerVersion >= 28.0}
ComboStyle.itemIndex:=Style_Aff;
@@ -5841,7 +5846,7 @@ begin
GroupBoxAvance:=TGroupBox.Create(FormConfig.TabAvance);
with GroupBoxAvance do
begin
Left:=20;Top:=40;Width:=350;Height:=120; // maxi=580
Left:=20;Top:=40;Width:=350;Height:=150; // maxi=580
caption:='Jeu de paramètres avancés';
name:='GroupBoxAvance';
parent:=TabAvance;
@@ -5928,6 +5933,26 @@ begin
ShowHint:=true;
end;
LabelAntiTO:=TLabel.Create(FormConfig.TabAvance);
with LabelAntiTO do
begin
Left:=10;Top:=110;Width:=170;Height:=12;
caption:='Utilisation de l''anti timeout Lenz Ethernet';
name:='LabelAntiTO';
parent:=GroupBoxAvance;
end;
EditAntiTO:=TEdit.Create(TabAvance);
with EditAntiTO do
begin
Left:=x;Top:=108;Width:=30;Height:=15;
name:='EditAntiTO';
text:='';
parent:=GroupBoxAvance;
hint:='Si 1, envoie un caractère chaque minute à la centrale '+#13+
'pour éviter sa déconnexion (uniquement en Ethernet)';
ShowHint:=true;
end;
RadioReserve:=TRadioGroup.Create(TabAvance);
with RadioReserve do
begin
@@ -5936,7 +5961,7 @@ begin
Caption:='Réservation des aiguillages';
parent:=TabAvance;
hint:='Choix du mode de réservation des aiguillages par les trains.'+#13+
'La réservation des aiguillages est fonctionelle en mode roulage (mode autonome) ou en mode réservation';
'La réservation des aiguillages est fonctionnelle en mode roulage (mode autonome) ou en mode réservation';
ShowHint:=true;
items.Add('Réservation par canton');
items.Add('Réservation par détecteurs');
+5 -4
View File
@@ -13331,8 +13331,7 @@ begin
cheminWin:=GetCurrentProcessEnvVar('windir')+'\System32';
end;
//DirList:=TStringList.Create;
if FindFirst(chemin_dest+ '*.*', faAnyFile, SR) = 0 then
if FindFirst('*.*', faAnyFile, SR) = 0 then
begin
repeat
s:=sr.Name;
@@ -13863,14 +13862,15 @@ begin
fenRich.Width:=PosSplitter;
positionne_elements(PosSplitter);
end;
end;
end;
end;
if (tick=30) or (tick=100) then
begin
// raz du flag "fenetre confcellTCO affichée"
ConfCellTCO:=false;
end;
// envoi timeout
// envoi timeout socket ethernet centrale lenz
if parSocketLenz and (AntiTimeoutEthLenz=1) then
begin
dec(TpsTimeoutSL);
@@ -13880,6 +13880,7 @@ begin
ClientSocketInterface.Socket.SendText(' ');
end;
end;
if tempoSouris>0 then dec(Temposouris);
if Tdoubleclic>0 then dec(Tdoubleclic);
if Tempo_init>0 then dec(Tempo_init);
+15 -10
View File
@@ -25,7 +25,7 @@ var
verifVersion,notificationVersion,essai : boolean;
chemin_Dest,chemin_src,date_creation,nombre_tel : string;
Const Version='8.42'; // sert à la comparaison de la version publiée
Const Version='8.43'; // sert à la comparaison de la version publiée
SousVersion=' '; // A B C ... en cas d'absence de sous version mettre un espace
// pour unzip
SHCONTCH_NOPROGRESSBOX = 4;
@@ -174,6 +174,7 @@ end;
// dézipe copie les fichiers et lance la nouvelle version
// s : chemin etfichier à déziper
procedure dezipe_copie(s : string);
var fichier,nomPDF : string;
dirList : tStrings;
@@ -195,10 +196,10 @@ begin
i:=pos('.zip',chemin_src);
if i=0 then
begin
affiche('Zip invalide',clred);
affiche('nom du zip invalide',clred);
exit;
end;
delete(chemin_src,i,4);
delete(chemin_src,i,4); // transforme en chemin
// Vérifier si répertoire dest existe
chemin_Dest:=CheminProgrammes+'\Signaux_complexes';
@@ -210,7 +211,6 @@ begin
chemin_dest:=chemin_dest+'\';
chemin_src:=chemin_src+'\';
// remplit dirlist avec les noms de fichiers du chemin dest
nombre:=0;
DirList:=TStringList.Create;
@@ -227,19 +227,18 @@ begin
FindClose(SR);
end;
// supprimer les fichiers signaux_complexes_gl.Exe et versions.txt et pdf
// supprimer les fichiers *.Exe et versions.txt et pdf
nomPdf:='';
for i:=0 to nombre-1 do
begin
s:=DirList.Strings[i];
s:=lowercase(s);
pdf:=pos('.pdf',s)<>0;
if pdf then
nomPDF:=s;
if pdf then nomPDF:=s;
//Affiche(s,clyellow);
// fichiers à supprimer dans répertoire destination
if (pos('.exe',s)<>0) or (s='versions.txt') or (s='signaux_complexes_gl_d11.exe') or pdf then
if (pos('.exe',s)<>0) or (s='versions.txt') or pdf then
begin
fichier:=chemin_dest+s;
if sysutils.FileExists((fichier)) then
@@ -259,7 +258,7 @@ begin
copie_fichier('signaux_complexes_gl_d11.exe');
copie_fichier('versions.txt');
// trouver du nom du pdf
// trouver du nom du pdf dans le chemin source
nombre:=0;
// remplit dirlist avec les noms de fichiers du chemin src
if FindFirst(chemin_src+ '*.*', faAnyFile, SR) = 0 then
@@ -531,7 +530,13 @@ begin
else
begin
result:=-1;
affiche('Le dépôt github ne comprend aucune version diffusée.',clOrange);
affiche('Le dépôt ',clOrange);
formprinc.FenRich.SelStart:=length(formprinc.FenRich.Text);
formprinc.FenRich.SelAttributes.Style:=[fsUnderline];
Affiche('https://github.com/f1iwq2/Signaux_complexes_GL/releases',clAqua);
Affiche('ne comprend aucune version diffusée.',clOrange);
end;
end
else
+2
View File
@@ -232,4 +232,6 @@ version 8.41 : Am
Auto-installation des nouvelles versions au choix.
version 8.42 : Création d'un onglet de paramètres avancés.
Fichier d'aide affichable depuis le menu.
version 8.43 : Correction d'un bug sur l'importation des détecteurs depuis CDM rail.