169 похожих чатов

@MrMiscipitlick Это ближе к решению? macro END { } macro segment line& {

if line eq flat
segment readable writeable executable
else
segment line
end if
}

macro FN line& {
__previous_end__ fix END
macro END \{
\}
END fix __previous_end__
match fname=(fargs=)=[flocs=], line \{
matched = 1
fname:
fargscount fargs
flocscount flocs
push rbp
mov rbp, rsp
sub rsp, flocscount * 8
\}
match fname=(fargs=), line \{
matched = 1
fname:
fargscount fargs
push rbp
mov rbp, rsp
sub rsp, fargscount * 8
\}
if ~defined matched
display "Error: Invalid function definition"
err
end if
purge matched
}

macro CLASS cname {
__previous_end__ fix END
macro END \{
__current_class__ equ
\}
END fix __previous_end__
__current_class__ equ cname
}

macro FIELDS {
__previous_end__ fix END
macro END \{
\\}
\}
END fix __previous_end__
struct __current_class__ \{
.__vtable__ equ __current_class__\#.__real_vtable__
}

macro EXPAND_CLASS cname {
__previous_end__ fix END
macro END \{
\}
END fix __previous_end__
__current_class__ equ cname
}

macro METHOD line& {
match fname=(fargs=)=[flocs=], line \{
matched = 1
\#__current_class__.__real_vtable__.\#fname:
fargscount fargs
flocscount flocs
push rbp
mov rbp, rsp
sub rsp, flocscount * 8
\}
match fname=(fargs=), line \{
matched = 1
fname:
fargscount fargs
push rbp
mov rbp, rsp
sub rsp, fargscount * 8
\}
if ~defined matched
display "Error: Invalid function definition"
err
end if
purge matched
}

1 ответов

49 просмотров

fix не стоит использовать в макросах. Эта штука обрабатывается отдельно, до всех остальных выражений

Похожие вопросы

Обсуждают сегодня

а через ESC-код ?
Alexey Kulakov
29
30500 за редактор? )
Владимир
47
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
5
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Ребят в СИ можно реализовать ООП?
Николай
33
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Карта сайта