OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Понедельник, 23 Октябрь, 2017 16:35

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
СообщениеДобавлено: Среда, 06 Ноябрь, 2013 16:09 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4404
Откуда: Россия, Орёл
Вызов Kernel.PopTrapCleaner из t(StdTabViews.TrapCleaner).Cleanup

Код:
StdCoder.Decode ..,, ..PS1...3QwdONl9RhOO9vRbf9b8R7fJHPNGomCrlAyIhgs,CbKBhZ
 xi2,CoruKu4qouqm8rtuGfa4.hOO9vRb1Y66wb8RTfQ9vQRtIdvPZHWKqtCa.E.U5Ucw42U.Qk
 lbeZ3DPuP7PNNvQRtId9NPuP7X2hgnRAXDJ.QCPuP7PNG2sET1.PuP.MHT9N9nt.G2sIdvPZnt
 gcghghZcZRC8T0E.kwH1T.XDB2U.U,oZkU00.bnUGLu8ro8quGrmCLWKqt.2.IB6.I16.M.,.J
 FA0z.U.2m,.Vzzzzz8.Izzzzz956.p54.oxzzzz1oyzzzz1ozzzzzf,E.ENJ.rc93E,5zdGLmm
 oouqpCLLmoouqpGomC5C.0E.sKE.cIE.AU8VdJalQitRi1BggZhnpZD3iZphcwYcZio3iuwZjo
 gjJiphhiwhWhgmxhiRgjJiZpZmhijoidhAdvPVPO5f9V9OVvDBPDXNAhd7dPDd7BnNBDN84E,9
 T3E.0.b,0.p.0.z50EJ.3.V2g.6.cg.Iy9.,Ue6.0E.606..Y.2Uu11E.6uzzzz5IU0Ky8.,UQ
 A.2U.c4E.k.0.eWMU,UE0,c6k.UgzzzzT2.eD.uC.mzzzzz,OD.WCI.czk.UszzzzTE,O.A.2U
 g13.0D.WDA.6tzzzz56v.6u.cz.IU7U.IU.UmzzzzTUozzzzTUezzzzTUo1Uu1Um1Uo15.5cUZ
 j0E.6C6.c4E.k.Ue.E.mP,Us11.0.WMP9UERe0cUXDF9fR5uPPPP1fP7PNZvQRtIdHfEWE.4TW
 KKv.Uio8.,cwE.0.Z00.B.0UJUuV1g.2UPW1Q.2UkW.YSM,EyV,.R58.0E.E2,cwN.,.,,,.B.
 0UJU8.,.F2.E.E0F.E1U.M3606.d54.0Ey,ErV0.l54.YTc.Eu,EqV,.d5.p58.YRs.E.E2,.2
 .222.o.6.K,e.2.ow6I.r.4zdcFT9P7vQRdFT9P79F9vQ51E.cNLVAUAR36.U1Ky36.0E..yU.
 c9LV.2U.k.mMIE,9T3U.kHU.EBU.U,2.I3.0E6,1.1cUZ52.m00.e,2.AU.E.e0.,6jUT.1.3c
 U.,Ui2.2.e,2.A.2Ue.E.0dQC46.mLT5Uwpr,cUXDFYcZJgpxgiIeZpgKBhZ,.2.q02.C,2.56
 .7ONhvE.E.K08E.EyEyE,9z5U.kW0.,6.w06.8U4p.GomO5.Z1F,,cyk.Uw17.,.OC.Zj1E.cM
 BUAU6pU.U..C6E..y.eG16.0.O1IEU...p.0.4.IZ..6.VI.EpL.zT1VtEVNE58KN76jNF5uBl
 89,7A98FdtEl89,d61f6N76VdEldEl7KN76j7FlNBl89,7Al89,7AkW..dtAd7Bl89,FXSHPKH
 gmGEg6.kO0nWGHgmGESnWSnNWJK0GM4IgmGE290HVanM0HgmGESHW.X7AV7Al890HgcBhtB18K
 N76jNF5uAl89Uk.10V7KMF0nVWJKI26AGHNOIgmGESXr2bMZZUcEl7F58KNlPG2kVaHNCIgm0.
 6Bd7KNlP.OnNWnUWJKwa3R66A9OFd7Al898WuJYg2Yl2fg6AGoNCIgmGE8WWkP4nW4IgmGES1f
 7KN763dS379,,2YWYZU2aMV8LYg22MAlWm2al2fgc6Pd6N76V,e5UkEO.11fdFB8Bl89,tBw42
 490I2p1.78C58KNFFI2WnVKoVWJKw4K1KnNKnWW33tnpf6N,66.KHVCoMWJK0mP8oVCHgmWlUm
 .410HgsABeFd7Kwa3xao2fg2Ypo6kPQcrUs2ak2aMV4pc23fgMB.jNFUkg6UWAAg4..KJFmGE0
 18GZ,UtQcMZ344WHM8IMWJK0mP6Bl898GEkPKY03fg2YWID.6F58KMM6A18AddFl89,tBg425n
 NCl89,tBY4g4UrkPEMcE58KI2MCZdAl7KN,G10X37Ac6kOC1c6Ti6N76VNFQ6MMEX.jVr.J4..
 0X2Z6kkkQ2b43fg.d,3dm.410Hg6A9OF.11fdAjdFl89,FV.eA.l0kW2a13fgkkEMIc4paMZZU
 MF3uEl0J4kO.SX1x42490IYVVs6CV7KN,G18GE.82410Hg6A9eFftEl89AAga4,S1j,lFPaHgm
 GES1d,f,sBw42498F58KNFFUkocpoas2fgU0,00sE30f,.j,V7K24A4I4EFeA.,,V7KIYu,6C3
 8AV7KNFMOoU0HVWJK0GFeAUW22.W3EFeA..25b7BlWrEOEMKY1RcMZ33NMsBBOF58KNlP.410H
 gc6p1EF00Uk.c6J4kO.S1j,VdFXtE58KIYVVkgc1Bb13fgsB8IXWJK2bk2941SHW2aMlPKYt2f
 gsA..8Gx.2a03anYaMZ3cBl89SHW.KYtUn..cB.jlVC10HWGHMKHgmWk29anP0HgmGE4nMCHg6
 C01YakQak2fgc6,,W3b,sB82MEB8Fn7KN76jVqUk29014HWWJK24,76,l,2.,6.ct..2.y,m.4
 ,2.1.06,.c.0U1IEE.0.l,,.p.0.4.I3k.E6V.Y.2UG,,.B5.U.Equ,N.Ze5E..520U..w,YaS
 2.,E.kGr,86E.sA0U.2.e,2.A.2Ue.0.,6YUP.,.B5.U.EMb.N.hQ0,.,.QEU..w,2j7E.2.Ii
 5U002.S00E.c4E.k.Ue.E.07cD,U,IEE.0.R,0.p.0.4E.EJ.6.VIC,,EyEyE,,0.z.0.9.0.Q
 g,.,Ua1.E.sOBE.m.4J1U..C6E..y.CH12U.6.cBE,,0..I16.M.EJ.6.VI.ktL.zLFyIsKaWY
 ZU24NlMW3VdFBeFd7K24ocMZ3KIX.3NM6C1eB18KNlPQcm2fg2Yp.w4S1WXMlMEM6F58KNFFUr
 IcoYaMZ3jFVK2W1A4IY8XlUlUm.4181MB3mMEMW3jdFUrgc1Z46F.9eEn,fdF.CoPEF0HFmGEU
 s.X,VNFOnVWJKMMMB.j,6ABeA38Bl89802a3R650jFVO20Hg6AMB30wa0R66Ca1MF58BEX.jVr
 Ukgc43b13fgc6kO81sB30gam..2b0,g6d,b,sB8oQkOO2U1x4A42aMlO.S1EMKY,RcMZ33,WHM
 W1UoUW22wa3dEEX.jNFG1C1kPI6sB70MFUs2aq.jlVUp.w4S101708mkkOO2.EMOoN4HOWJKI2
 6ACoQUrcEB0fdAUrI6EQ8IMUkMEUs2aMlMkOO2sB9uEEMKIXKoVW33,K1.Us.X,3766AlWkock
 Ia13fgc611ldB5OAlWrcE90Z7KNFMW3l,418GE.24.3dm.418HMUn.w4a10nU.S1h,b,.n,VdF
 KHQWJK0GF44010HgEVGHQWHgmGE29.EXYas2fgc6EQKHP8IgmWrcE90f,sBC2A42aMFF00Uko6
 5uEl898mkEMGoPOHQWJKw40HgmWs.X,376Egc6J4kMEN.VNESHMWJKwa2NBEXwas2fgc611OYp
 2aMZ3UpI6kP826Bl890HgMB.jNFS10HXwa13fgc6..3066sBI6IY816A2b139AAcF.9mPEOEMW
 3f,sB.VdFanVW33,anUSnPWJKw4G18meEMW3eA.4HNGHgm011EMW3OYn.3,8nNOoMWJKkP.A4d
 7KNFFUkUk29o6dtEl0EN.sB.0nVC2.fdAUrI6UcIYg2Ym294129YcqYa03fgsB9GMkO.S1j,Vd
 FZtAV7KIYVVs24A4EMOoVW33,0HX4HNUW.IamQcM,,e6NFMW3VlM.3FF6B.VlP.37E379,,SnN
 0Hgm03mPWJKgaMZ3V7K2a4J4EF4KU.wan.820GE006.,.B5.U.kJE4k6U.M.E.7..5,1.m5m58
 66.,..K.2.MAszPM0,76,76RtPV9RbP0bOFdO0rvAvP1H66,,ZPO7PNZP0dONl1K48pm4KmKKt
 QfoIcsYcpIck2a6hfUIUBAVU22Yit3iZBV7pdIhc5hcGBVm2aBAVU22QioBgmZi7AdCZ8EOanP
 qk200YhdphZRi7AdCZ8EMqk2002iVJiVRi7A7..QgcBgmBV13d,Je7IYiIYBA,kouKuakY..El
 4qtKq2aIb.OHO4HQ4nP8n4aEEUgFuaEayIbSoYuIeaEM0HM0HMMAjNF3uEB8C18CFO1H66EtKq
 kmq28pW4IaakMumNanN8nOanQaHPGnN8nM8nPKoKCHMan4aEEUWxhjZh7IcDxdAhc,pd7giiZg
 ZpgdphZZgu2YmYaogV722sQ99RHsI98J2ag2Yloag2YmgaxhV7226P9fPHMGR8JUogV722sQdf
 QHfPDP0dONlXV3ikhgmRiiQ8ZPOc6T8Q66,763c9Rd93M1H.oidhAHcJHPNC5M0r8B3OCV7BZt
 EV7Gv86.wi7AdC,Aarwas2akgV7226OHMGR0kO8HO0HM0GE2U46.2.oQ..0.L,N.X.,6.4.2E0
 .EHU.Ua1.E.MRBE.m.iJ10.0.sU6.2.UDUxo.0U.Uq.326..EBU.U,.J,U.2GkyL.zLFGpmCLu
 8GK00I23Vkocm..CIXOIOkPMCl89,Fg6AEX4nN.U4JakYaMZ33,QcqgcMZ3jVr698Hg6AlWkoc
 l.806K6KsE..V7K...kO8Yl.Q4.V,.25VFgsBBeFkO81lWrI6U4tB58KNFFUpo6kPK2keEMkOO
 2sB.d,V7Kg4Ur.2a4NCd7KNFF44WXs.jVoUW22w4820178Bl011GoPWHgMA58KNlMWHgmWk29W
 Xq.6BMB.jVrUko638Bl8980AbmYar2fg2YrEOkOW3V7K2b2,4nVkMW101KHX.jVrUW23IaMlMW
 3EMOY2,3NMU03aMZ3jVoUW23.UMFMOoNSHQWJKIYVVkQc4,SHVA5IYc.6AOoP4Ig6Ao6UmAbo2
 fgc611OoV8HgmWrg6fFKIYc.6A4nWCIgkkEQOnU4HgmWrI6d7KNFQKoPWHgMA50Z,W3l,MAEM8
 oQ8IgmGES1j,C2kPMCMAd7KNlM4Hg6C7GMWJKsEEX8nOGHgmWW.aHQWHgmWrEOkM0HQWJK2aMV
 4dB58KI26AI6c6kPGHWKIgmGES1EMcA50UksAX,806KAalUl2ak2fg6Al0..EX8nQWHgmWW.fd
 EUrkNEMW3V,..U1,w4a10HgMAX,C2kP.o63080Qa4,SnW8oQUMFMU0Z4UMV4,I2MBZ,cEC1SHW
 24wa3,K1.5uB6AAboUW.82sB30IYUUrg630b,sB9eEEMcEEF440HV01sBo4wa2,g6n,W3V,j7F
 .90Q4Uk.B8BV,.Y4UMV4Ja4ZaMFFUn.w4UkAc4Z6sBo4Q4.A52a4RakYaMFFUkYc,Jcr2fg2Yr
 kNWJK2a0,2aM,.OIN.3,K1kP82sB70wa3NC6A78FbdFl890HXSnOOIgsA.2bq2fg6CZNFl89SX
 roaMZ3XFOCIgEWoaMZ3VFNQcMZ33,GHg6AlWpI4kP8oVUkocp6Cl89802a,pcr.j7FK10XnI4c
 6U4J4EFUt2fgEg6A9GXG1SnWaHOW3VdFb,I20GE0G.C.0E.En,.6.Q3Y,A06.4.2E0.kLE.0.O
 C..,UpZ,m.iJ4E..C6E..y.qH46.,.O1IEU...p.0.4.I3.0E6,vz00kzr.c9T8Q9Xg6AlWmga
 rAbMZ3jVm2fg6A90sBY42a4Z4d7KNFF69SnOOIPWJKw4ldFl890nU.SHW.WHV0Hgm078Ad7KQa
 n2a2390HgEXCHQWHgmWW.VNEG2MF3eBsAB0w4a10118BlWW.Z7BXdBl89S1l7K2a0NCV7KNVMF
 QWJK24cFldEl890HgsA.jlPG101.6BVlQWJKcFb,NFFUooasAaMlPsA6AlWkUqoc03bMZ3jlQK
 HgmWko6UW.btBddBl89SX1Z424OoVWJKI2MCXtEV7KAat2fgcAlWk29CX4,jFQO1A6j,Ycs.j7
 C.78AEMOY2ZaMZ33,W1l89SnWSHPkM4HO0HgEWWHPEMW3V,OIO8HOW33,0Hg6AlWl29010HX2a
 1,U4Ra4,Up.wa0,GnQ4IgmWk298mU8GK0GMW3VdFd7BEF44CHX.jNFl,Ac4,Y6f,j7C.78AEMO
 Ym.3,Qc2RcMlPKoP.10sB78CUs.Yck.V7K.f,sB302a4ha23bMZ33,0HXGHMUW.XdEh7K2aMlO
 4nMWHgmWrYcso42b,Ba33fgkWanNWJK2a3,UoUko6Z,80IapAbk2fgsBI4Ia,Zak29kOUs.Yck
 .V7K.K2kPKYoUmgar.cA6A.S1d,VdFhtAd7KI2sA18BV7Kw4l7FMCb7Cl7KAatUl290HgsBl,6
 FUoAck29014nW2fg22kNW3Uk2fg6AMAl0cBV7AV7KAaqQaMZ3Ul29UkUpI6kP82sA.jNF3OC6A
 6AMCdNEl7KAao29KHN.jdEUmoa1BaMlPKYsUkUlA42424MFO2w4n,8Go8GK2aMFM.w4UkocoAc
 o2fgc611ZlQUrENEN42.f,X7K2aMFM.ga0,SHV.KnPa1g6Z,VNF.jVoUko678BlWW.d7AWJKw4
 4HgmWkAc4,SHWWnOEFW4Ukoc4,.sA.jNF3OC6AlWk.3GQ.l0BOBX,8mkkO.SHV.GYkUrg6kQC1
 MAn,VVo.3,4nN4nMW3jlQUkI6Uk29C1kPI6EXA4c6kNO2sB.CIg6AlWW2fWYZU.VdFG1IYVVpI
 4kP82sB70wa3,8Hg6AlWk...1GWUrEPkN.S1n,VdF.3,0HV01sBo4wa2,g6n,37KEgEW.K2MBZ
 ,I4wa2,g6kM4nNWHgm07GPEMKoW8IMWJKAa33fgsA.jNFUkAc4,S1h,b,.n,VdFSHOW33NMEVK
 oP0HgsBQ4IYM,lWnoak2fgMAZ7KNFMC20HgMB30.37O.0nWO2sBaHOEMOYsYaMZ33NMMB30wa0
 ,8Gg.24h7AV7KIYVVkocpQ6.cEd7FV,jNF3eBc6l0W3VtE6Al0BeBUWAAQ4UrkQkQ4nVUlA5IY
 IJYg226AKnWGHgc611fdAUrI6kPGYkUrg6kNO2.EM6Fd7KI2cABOBd7Kw4UW29.b,sB.VV3,3N
 M6A38AUrEPU2,g6n,ntAUl.j7FUrg6UnQa13fg6AlWlIaMFMEMC229ocq.80Q4Urg6EM42kPcB
 sA.MC6ABGNGHgc6EMCoNSHQW3jVqUWY86K2aM,cF.3NMEV01sB.j7F.9mQkMW3V7K24.KIMCIO
 W3jVnUW296K2aM,cEd7C50V7KQ4UrkQkQ41MAn,b,sB.VdFK1IYV,3eFZ7FlWrkNkQ.41IYM,l
 WrY6U3NCMC8oVW3V7KA55041oaMZ3V,4IPWJK.37J.29.VdEdFQUMV4NEd7KIYV,3eAf7BsBo4
 IYM,lWkIco.298mmKOFmWnw4lWkUl24cEV7Kga4,SX1x4.V,X7K242a4NC58KNFF440HVGoNKI
 gmWrcEb,n,MAn,ZdFUrkQEMGoUCoUWJKcFB024hFMWJKI2EXQc13980ga4,SX1,V7F.OIX.oat
 .3,015080I4KHgmWW2pWY38IO.V7KIYM,lWl29010HXA5c619J379UkI6.l05OBf7Al89GHVaH
 MW3X,W3VdFOIQW33FFMASnUWJKIYwIYg229uBb7AlWoQ6b7Ko46KAa,,UtUk.3eB.0HXO2..l0
 EX2ak29EXUmgangaMZ3W3XNF38KNFMUqoak2fg6B30A4Z7AlWo.AakQc23fU22U.2.oQ..0.E4
 k6U.M.E.7..56.wTHEEumtaEeK4.sM1fPRPNZP03cNHPNN9Nbf.PM0,VdZgZphoBV,JeGBcN3Y
 mgaq2YDpcUQc6BcGB,dONIYU2YUI..AiploGqmu4.fNAX76TeF,,.u066.0GE2U4.,.B5.U.kJ
 E4k6U.M.E.7..3V.I.2UwVwV000E.s5E.M,E.UMU0.t1t1326.g36.Q00U.s.G2.IC,kFE,UwV
 wV000E.MAE.s3E.I.nB0YcZpC.85CX.c.0.t1t1322U.kDU.k0U..T,3.m5m5866.,UT.,U3.,
 .u58.0EyEyE,,0.z.0.9.0.25I.6T6TcU.,Uh.,UHE.2.5...C18.YDYDIEE.0..w06.8UeJ,G
 Yq,Etk.Uy11.zLe8pU0JE4HM4HE0GIaKrOrk8ro4KrGLEOroyKq4KuYgdgVBIUUYcZpC.8bigc
 shgXhiohgU2YUQfk2ak2akoaooa6hfUI.uGlKqnakYu2kO0nMqk2umlqKmaEWaqkmqrSKLCJu8
 56f,ulxDHPPMlBC9Qz376,F,UBc99fP7P0HeH.nNCfN1Hc9VvPbP0HeH.dNCXN1Hc9ZPNbP0.I
 alIapwaloalgalgV7sQH6F9fR50.C3.B1M1Hc9dP0dONlXj,q29n2iJO82XdBZFYqJEUpphgxh
 VZg7IcD,aEX4IaCpWqE,00h1UmFe8rkCqp0GE0mhUk2b0Bb6hfUI.IgpZioxhiRi7Qe3Vloaxh
 V7oZXBVBxhYltQcjphohgsZi7QfoUocFV7Gv0gA.kQ.BP0hOO9ntocmBghhg7QfoYcmQc3Ja03
 a6h9EoakY.A4k4oZdph7IcDx7M0deIfOFPM0RNO0n28ob..sQ7uPjfPHcET0cFU7oZhBVHhcIl
 yqk2uGvaEWKKv..h0H.kV27,,Sr2a2.j,EwakYu2EQWnQ0HMqk2Aj7AdC,.IUUY6h1UmldGLmO
 3uGY4KrGKqKqVGLtmqaCrn0GE006A1eB18Gv86oYUi,lzzzb.6.,ct..2.UAUFU.2.1.06,.M.
 szZ6VL8VT8VZ7Vr7Vf7Vv7Vx7V,7837Vf6VP7V,7Ahd9XNARdAVNAb76XtApNAhdCb7B,t8V7B
 V7AH76z7V,8Vl7V,ND7AA7wD7AC7QE7AA7QD7AC7AC7IVGsOGsUGMVGMMGMEeH01GV4nQ0GI8E
 uGXtga0AZugVBwX24c2W,Zk.ZkkYklYkkYk0Zk9dA7AA7QD.d98b8R79J1fMhOO9ntYem7Q58P
 9PMRPNZP8RtENPN1nu0LEuH05H01I0VyYk0Zk5ZksYkuYkUQc2qa2ia24YmYk9Zk0ZkyYkvYku
 YkxYk1Zk0ZkU2b2ya24Y,Zk0NH7gC7AA7A6x7V...x7VZ7VN76l7V,tD7gD7wCKXUYiioiiYiX
 3YxYkpYkyYklMF7gD7AB7AC7AD7gD7A63NE7QA7AEuH05I0XH09I0nI09GE0I01XoYks6626f7
 Vd7Vx7V3GNGMUGMMAd2ia2i5llbGMEyH0vXmcE7gD0I0rH0vXnYkyYkUIa20VlRGMR2b2Ka244
 vFQUmYkUYiiEdKqtKKumGEeH0vX0V.dDKH0Za2q5rFPGsSGMT22iYzYkysCqH0XX0V,ZkDZkUI
 c2q5rFaGMRG6,tD7AEW1F8V38VVFVgb2mQGME0I01XlU0NBum4qEFGsOGsUk48EWKKvC2VPONP
 NZf95uPP1CpmmqmCKuaqruq4qobGoemoW0GeKqtGrRqk4akYqIcyIdGJEOpoK4N76b8R71.Gpm
 cJkRqk4aEf4Id0GuOLR0mdGLm.c9h0rN1PEc8pbCoWGoe8pW0mb0rmuKJin4aEVKoXaIbqk2aE
 uOLEenS0mdGLm.QC7POZf9RONj98HtCPM0H6RumdKKuuorOKe4KlCLI4nIiHEGLvumdMGdPNP9
 8V79,d6Jd6NFeK4..od7ZddAZvgV7cJHPNsHVX,his3Zopig2YWYeZRC3N8PM09eH786T8Q9nR
 qk4a..YcjJZvgV7.kdGLmG3.3ONDPORvEFPMRvN9vQF7RhP8rN1HM0d1o7.VN8r76d1.kMM1.A
 7.WLFmGEG3.G4..Q8.kWuKmCIo4Kr.gV7.7uPrN1PMFR8FGZnd9PM1F737QB7wC7AH8I01XUIc
 l66v7VfFEyH012mXpYkxMBqXkM8Pc.dONbXDVBIUIhAYcjhVIYkpYkv.kSg4,,.qXpMD0Xu2Yu
 YkvYksYE0mTo5,78r7VR8VX7VxFSGsVGsI0GRGMTY5t7VV7VvFOGsOGMUGsVGMEGH0LXv6A7QB
 7gE7A6f7Vb7VxVWgb2ia2Ka244rFQYa2ib2Sd2ab2KYigV0Y8sHUoYkkYkwYkzYk0gV0CyIhgs
 tETfPdfQT9PNPNZvQ6N58RZ9P7ONbH.4Te..c95uP.YcZRiX3.501HrIin,85...CLL.U2V.Iy
 2U.UIU.U76.0E..k.8ssH38pumqm8rtumdcIf9PY62Ulb8.CLL8pumqmY62UmT.6.QJw.QI2U.
 sUX5.bf9bWHZitZhZZcZRiX3Ul1.RVtZBE.8T2E..2,I96.Ikl1.RNEd9RIAKa2hA59.G.0..6
 7,U.AU.U.UUQoO7.2UlSw,sbTX,U,U.2.8MtF.2..c4E.k.Ue.E.0t.2.0..PV....
 --- end of encoding ---


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Среда, 06 Ноябрь, 2013 16:20 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4404
Откуда: Россия, Орёл
Хотя вопрос, где ошибка, открыт. Поскольку логика, заложенная Ominc в Kernel.PushTrapCleaner и Kernel.PopTrapCleaner не известна.

PushTrapCleaner не даёт повторно регистрировать обработчик.
Код:
   PROCEDURE PushTrapCleaner* (c: TrapCleaner);
      VAR t: TrapCleaner;
   BEGIN
      t := trapStack; WHILE (t # NIL) & (t # c) DO t := t.next END;
      ASSERT(t = NIL, 20);
      c.next := trapStack; trapStack := c
   END PushTrapCleaner;

PopTrapCleaner выталкивае все до данного (тут логика есть). Но если данный в стэке не присутствует, выкидывается всё. Это приводит к означенной в теме проблеме.
Код:
   PROCEDURE PopTrapCleaner* (c: TrapCleaner);
      VAR t: TrapCleaner;
   BEGIN
      t := NIL;
      WHILE (trapStack # NIL) & (t # c) DO
         t := trapStack; trapStack := trapStack.next
      END
   END PopTrapCleaner;
Либо c IN trapStack нужно сделать предусловием, чтобы обеспечить отлов несбалансированных вызовов Push.../Pop... Либо нужно игнорировать такой вызов и ничего не выталкивать вообще. Третий вариант --- трудноуловимая логическая ошибка, пример которой в этой теме.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Вторник, 12 Январь, 2016 19:41 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 1922
Откуда: Красноярск
А какое тут решение в итоге? Не совсем понятно из этих двух сообщений...


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Понедельник, 18 Январь, 2016 18:09 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 1922
Откуда: Красноярск
Иван Денисов писал(а):
А какое тут решение в итоге? Не совсем понятно из этих двух сообщений...


Разобрался.
Добавляется строка t.v.tc := NIL; вот в эту процедуру.
Код:
  PROCEDURE (t: TrapCleaner) Cleanup;
  BEGIN
    t.v.tc := NIL;
    t.v.Reset
  END Cleanup;


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2017, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB