mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-03 04:58:48 +02:00
14 lines
183 B
ObjectPascal
14 lines
183 B
ObjectPascal
{$asmmode intel}
|
|
|
|
TYPE something = RECORD big:LONGINT; small:BYTE; END;
|
|
|
|
FUNCTION typesize:INTEGER; ASSEMBLER;
|
|
ASM
|
|
MOV EAX, TYPE something
|
|
END;
|
|
|
|
BEGIN
|
|
writeln(typesize);
|
|
END.
|
|
|