Минимальная RTL. Проблемы с DLL

[TimK]

Я, честно говоря, не совсем понимаю, что там творится: ну вычли из стека чуть побольше - это неоптимально, но вроде как работать должно по-прежнему. Или же причина в том, что Win64 предъявляет определенные требования к выравниванию стека, а Win32 - нет?
Это явление удается воспроизвести с оригинальным модулем System?

Вот у меня тоже смутные сомнения, что кастрация была через-чур радикальной Хотя ничего касающегося стека в оригинале DLL EntryPoint я не заметил. Асемблерный код с оригинальным System у DoProcessAttach одинаковый, но не запускал. Щас проверю.

Добавлено спустя 2 минуты 54 секунды:

Асемблерный код с оригинальным System у DoProcessAttach одинаковый, но не запускал. Щас проверю.

С оригинальным все хорошо

[coyot.rush]

Sergei I. Gorelkin 11.02.2010 20:59:38
Я, честно говоря, не совсем понимаю, что там творится: ну вычли из стека чуть побольше - это неоптимально, но вроде как работать должно по-прежнему. Или же причина в том, что Win64 предъявляет определенные требования к выравниванию стека, а Win32 - нет?

Насчет выравнивания стека незнаю, но параметры в 64 битной версии передаються немного по другому. Количество регистров увеличелось

Как радикальное средство по уменьшень dll писать часть кода на асме

[Sergei I. Gorelkin]

С оригинальным все хорошо

Тогда похоже на то, что действительно рубанул сплеча и выкинул что-то вроде CheckInitialStkLen (вызывается из инициализации system). С этим нужно поаккуратнее

[TimK]

Тогда похоже на то, что действительно рубанул сплеча и выкинул что-то вроде CheckInitialStkLen (вызывается из инициализации system). С этим нужно поаккуратнее

Добавил - не помогает

Код: Выделить всё

function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;assembler;
asm
  movq  %gs:(8),%rax
  subq  %gs:(16),%rax
end;

procedure FPC_LibInitializeUnits; [public, alias: 'FPC_LIBINITIALIZEUNITS'];
begin
  CheckInitialStkLen($1000000);
end;

StackTop, StackBottom, StackLength используется в менеджере памяти и обработке исключений - у меня этого нет...

[v-t-l]

код состоит из 10 вызовов WinAPI.

http://flatassembler.net/

[Max Rusov]

Подниму старую тему, так как сегодня весь день боролся с подобным. Выяснил, что причина в неправильном описании MapViewOfFile в FPC. Последний параметр (dwNumberOfBytesToMap) должен иметь тип SIZE_T а не DWORD. В последней версии (2.4.2) ошибка до сих пор не поправлена. Пожалуйста, отрепортите.

[Sergei I. Gorelkin]

В trunk уже исправлено.

Добавлено спустя 1 минуту 49 секунд:
(если быть точным, то ревизия 15630 от 24 июля прошлого года)