FreePascal.ru

Вы обращаетесь из unit1 к переменной основного модуля программы. Это нельзя делать ни в дельфе не в FPC, ни в прочих паскалях. И с настройками лазаруса это никак не связано - нет таких. На самом деле ваша переменная не глобальная, а локальная переменная процедуры PascalMain - точки входа программы ...

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

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

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

coyot.rush писал(а):Как я понял стоит задача по написанию маленькой dll, используй kol. лично сам юзал kol+ mck на lazarus пустое окошко 45 kb должно сработать и с dll

Ну она и так маленькая, 4К. KOL не нужен - код состоит из 10 вызовов WinAPI. Вот бы еще с глюками разобраться

Ну насчет смартлинка не знаю, но неиспользуемые переменные точно на генерируемый код влиять не должны. Проверил с оригинальной RTL - те же различия. В Win32 тоже. С другой стороны такой баг уже бы вылез везде-вокруг

Отличия есть, да... Выделил жирным:

С переменными:
.386p
DGROUP GROUP _BSS,_DATA
ASSUME CS:_CODE,ES:DGROUP,DS:DGROUP,SS:DGROUP
_CODE SEGMENT PARA PUBLIC USE32 'CODE'
ALIGN 16
PUBLIC P$DLL_DOPROCESSATTACH
P$DLL_DOPROCESSATTACH:
push rbp
mov rbp,rsp
sub rsp,272
mov qword ptr [rbp-184],rbx ...

В том и беда что по теории юзаеться одна деклорация а на практике подключаеться каойнибудь JwaWinVer.pas
Да нет же Только Windows и Messages в uses.

Имхо попроюуй Ollydbg посмотри за Access denied. судя по всему непрвильный дескриптор для отображения файла
CreateFileMapping отрабатывает ...

попробуй поищи VersionInfo в исходниках fpc у меня 14 совпадений версия 2.4.0
возможно 2) вариант

Не, отпадает... Юзается правильная декларация. TOSVersionInfo только одна, в struct.inc. И потом так работает (TOSVersionInfo и TSecurityAttributes в отдельной функции):

function FakeFunc&#58 ...

1)Возможно ошибки с типами данных. типо под win32 работает и integer и int64 , а под win64 только int64.
2)Нечто подобное встречалось в delphi глюк заключался в том что если имена переменых совпадают с именами в других модулях (входящих в комплект среды). то возникают "чудеса в решете"

Типы ...

Требуется длл минимального размера (глобальный хук). Код длл состоит только из API-вызовов. Для этого имеется урезанная RTL состоящая из оригинальных Windows, Messages и порезанного System:

unit System;

interface

{$I-,Q-,H-,R-,V-,S-}
{$mode objfpc}


{systemh.inc}

type
DWord = LongWord ...

Собсна это даже компилироваться не должно.
program procedure_;
...
begin
...
c:=summaTWU(a,b); // Где декларация функции из длл?
// Почему summaTWU, если ее имя в длл ADD?
// Почему c:=summaTWU, а не summaTWU(с, a, b)?
// Почему TWU? :)
...
end ...

Пасиба. Наверно make поддерживает только компиляцию RTL текущей платформы. В принципе понятно, слишком жирно обеспечить все варианты кросскомпиляции. Вобщем, проблема решена в лоб: fpc -TWin64 -Px86_64 -Us ololo system.pp и т.д.. Благо из RTL, кроме system, нужны только windows и messages. Размер ...

Выкинуть ненужное, какой еще может быть?

У когонить получалось перекомпилировать Win64 RTL из под Win32?

Запускаю make в \source\rtl\win64, пишет:
makefile:187: *** The Makefile doesn't support target i386-win64, please run fpc make first. Stop.

Win32 RTL собирается без проблем.

Нет, это не помогает. Теоритически, нужно иметь RTL скомпиленную с отладочной информацией и где-то в опциях проекта задавать ее путь...