mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 18:47:54 +02:00
3bb41dcf9a
Not sure how it ever worked, nor how exactly symtable ppu entries
work -- but it's now stored with the recorddef (which also means
that bitpacking is disabled currently for objects and classes,
since they are based on tabstractrecorddef rather than trecorddef)
git-svn-id: trunk@4679 -
13 lines
111 B
ObjectPascal
13 lines
111 B
ObjectPascal
{ %fail }
|
|
|
|
{$mode macpas}
|
|
|
|
uses
|
|
tw7438;
|
|
|
|
var
|
|
t: tr;
|
|
begin
|
|
writeln(ptruint(@t.l2) - ptruint(@t.l1));
|
|
end.
|