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 ответов

28 просмотров

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

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

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

Интересно, нет ли какого-то способа получить из dll не адрес самой метки, а адрес со смещением?
The Bird of Hermes
54
generic procedure function test<T>(param: T); type case T of longint: NewT = word; longword: NewT = byte; end; var v1: NewT; Как это можно сделать? Чтобы у меня...
notme
21
Делал задачу вот такую https://stepik.org/lesson/4985/step/9?unit=1083 получилось такое https://play.haskell.org/saved/ipKrepqe оно работает, тестов много не писал, но работае...
Fedor
22
Всем добрый вечер. Нужна помощь с прикруткой telegram-vapor-bot к проекту Vapor. Удалось после старта приложения отправить тестовое сообщение в бот, вот только сразу после это...
advanc3d
3
program Project1; procedure generic_proc<T>(); begin end; begin generic_proc<Int64>(0); end. Я чет не понял, а как в Delphi сделать такое? процедуру-дженерик... PS: а на...
notme
10
Кстати, что FPC мешает сделать нормальные проперти в юнитаз, завызанные на переменные? Нет, инлайнинг геттеров и геттеров кажется работает в принципе, но это же сколько лишн...
Arioch The
8
Sometimes I like to solve problems the hard way. What do I mean? You know many problems can be fixed by restarting the system, but how much do you learn about the system? P...
Matthias Hoffmann
2
Хотел уточнить: копирование из одного рекорда в другой однотипный рекорд можно только по полям отдельно или можно чохом, типа Assign?
Ed Doc
9
Похоже опять туплю задача https://stepik.org/lesson/5431/step/8?unit=1132 код и его работа https://play.haskell.org/saved/lmYTShXM на мой взгляд все правильно, и даже избыто...
Fedor
8
Anyone here suffers from unexplained aural migraines, who would be up for talking for a bit? Doesn't *have* to be aural, but I am not asking about headaches, I mean actual mi...
Martin Rys
58
Карта сайта