Commit fdd859e2 authored by Denis Budyak's avatar Denis Budyak

Отладчик более-менее заработал (не хуже, чем раньше)

parent c1823c2f
TFPETUCS32.Open TFAOParserUCS32.Mod ПошаговыйОтладчик.ярм LisScanner.Mod BimboScannerUCS32.Mod ~
TFPETUCS32.Open ПереводыЭлементовКода.Mod TFAOParserUCS32.Mod ПошаговыйОтладчик.ярм LisScanner.Mod BimboScannerUCS32.Mod ~
TFPETUCS32.Open СборщикВыпускаЯос.Mod LisПереводчик.Mod ~
......@@ -22,6 +22,7 @@ System.DoCommands System.FreeDownTo Proba~ Decoder.Open Proba ~~
LisCompiler.Compile LisIntermediateBackend.Mod ~
WMDebugger.Open LisПереводчик.Mod ~
ПошаговыйОтладчик.Открой LisПереводчик.Mod ~
WMDebugger.Open LisSemanticChecker.Mod ~
WMDebugger.Open LisSyntaxTree.Mod ~
Compiler.Compile LisGlobal.Mod LisSemanticChecker.Mod LisIntermediateBackend.Mod~
......
......@@ -1536,7 +1536,7 @@
KernelLog.String(mn);
KernelLog.Ln;
если pn="@Body" то
BtDTraps.GetProcedure(mn,"@Body", ВариантыПеревода.Uppercase (* "$$" *),adr);
BtDTraps.GetProcedure(mn,"@Body", ВариантыПеревода.Unknown (* "$$" *),adr);
иначе
BtDTraps.GetProcedure(mn,pn,ВариантыПеревода.Unknown, adr);
кн;
......
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