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

Сам думал о такой программе и даже делал, где-то в теме про борду есть.

"Hello" дальше на этой строке сообщение от Kernel
"world"

И этот момент продумывал. Для этого дать возможность программам задавать метки.
APP1: Hello
APP2: world
И иметь возможность фильтровать по этим меткам. Для этого сверху например добавить тулбар с метками... и переключение по Ctrl+N. Надо подумать.

Ну по идее так: #13#10.

У меня тут(пример с выводом на доску отладки) вроде и так работало.

Только зачем было в процедуре _RunError хардкодить ковертирование чисел, да к тому же ещё и дважды: десятичные и шестнадцатеричные по отдельности?
Ведь потом всё равно нужно будет добавлять такие функции как IntToStr, IntToHex...
На фоне этого экономия на байтах с IsConsole кажется ну совсем уж абсурдной
Здесь приводил уже пример более универсальной процедуры для конвертации.
В отличии от того, что есть в _RunError, эта процедура поддерживает 64-битные числа, система счисления от 2 до 36.
Но при этом объём кода почти такой же.

Также в этой процедуре используется, но не сохраняется регистр EBX, хотя всё равно это заканчивается "JMP _Halt0", но на всякий случай.

После замены

-function DebugRead(var Data: Byte): LongWord; stdcall;
+function DebugRead(var Data: KolibriChar): Boolean; stdcall

стало работать неправильно.
Раньше проверка была на равенство единице, а теперь на неравенство нулю.
Но причина похоже в ядре.
Вот из справки

----------------------------- Read byte ------------------------------
Takes away byte from the buffer.
Parameters:
  * eax = 63 - function number
  * ebx = 2 - subfunction number
Returned value:
  * eax = ebx = 0 - the buffer is empty
  * eax = byte, ebx = 1 - byte was successfully read

В нашем случае возвращается значение ebx = 2, похоже просто из-за того, что ядро оставило ebx без изменения, а до этого он был равен 2, потому что "ebx = 2 - subfunction number".
Ядро должно устанавливать ebx = 0, если буфер пуст, а этого не происходит.
Хм.. и почему же до сих пор никто не заметил баг, ведь приложением BOARD все разработчики(да и не только) наверняка пользовались и не раз?
А там просто проверка на равенство единице

Добавлено 2021-01-06 в 07:50

Вывести строку текста с символами перехода на новую строку на доску отладки можно вот так:

program DebugPrintLineTest;

procedure DebugPrintLine(Text: PAnsiChar);
asm
        PUSH   EBX
        PUSH   ESI
        MOV    ESI, EAX // Text
        MOV    EAX, 63
        MOV    EBX, 1
        XOR    ECX, ECX
@next:
        MOV    CL, [ESI]
        JECXZ  @done
        INT    64
        INC    ESI
        JMP    @next
@done:
        MOV    CL, 13
        INT    64
        MOV    CL, 10
        INT    64
        POP    ESI
        POP    EBX
end;

begin
  DebugPrintLine('        PUSH   EBX');
  DebugPrintLine('        PUSH   ESI');
  DebugPrintLine('        MOV    ESI, EAX // Text');  
  DebugPrintLine('        MOV    EAX, 63');
  DebugPrintLine('        MOV    EBX, 1');
  DebugPrintLine('        XOR    ECX, ECX');
  DebugPrintLine('@next:');
  DebugPrintLine('        MOV    CL, [ESI]');
  DebugPrintLine('        JECXZ  @done');
  DebugPrintLine('        INT    64');
  DebugPrintLine('        INC    ESI');
  DebugPrintLine('        JMP    @next');
  DebugPrintLine('@done:');
  DebugPrintLine('        MOV    CL, 13');
  DebugPrintLine('        INT    64');
  DebugPrintLine('        MOV    CL, 10');
  DebugPrintLine('        INT    64');
  DebugPrintLine('        POP    ESI');
  DebugPrintLine('        POP    EBX');
end.

        cmp    al, 1 // kernel bug workaround
        sete   al

Тогда уж регистр BL надо сравнивать с единицей.

Так и я  о том же
В System также присутствует процедура Str, которая представлена в том числе такими функциями _StrLong и _StrInt64.
Ну и, как ты сам написал, аналоги сидят в SysUtils — получается дублирование кода.
Дублирования не будет только если мы не будем использовать функцию Str — а она очень даже используется, ну, к примеру, вызов происходит в _WriteInt64, а Console в KolibriOS как раз не поддерживает вывод 64-битных чисел.

То есть, я хочу сказать, что конвертирование из-за _RunError  будет тянуться везде в любом случае.
Но иногда(а скорее всего часто) будет ещё и дублирование из-за процедуры Str и IntToStr.

Добавлено 2021-01-06 в 15:37

https://github.com/vapaamies/KolibriOS/ … 24975b3a96

           LongWord(Prefix) := 0; // Prefix := #0#0#0#0

Мне кажется, это не очень хорошая идея.
Да, сейчас этот хак сработает, но что если потом мы захотим поддерживать ещё какие-то более длинные префиксы?
Да и вообще, думаю, в приложениях желательно поменьше хаков — компилятор ведь и так оптимизирующий, зато код будет более понятным.

  if CmdLine^ <> #0 then
    LogFilePath := CmdLine;

Опять же предлагаю использовать стандартную ParamStr