mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-10 23:20:29 +02:00
045ae3ab69
* test now tests both ansistring and widestring constants, instead of only
ansistring
* fixed writing of widestring constants to ppu file
* fixed setting length of read widestring constants (don't only set maxlen)
* handle cross-endian reading of widestring constants
git-svn-id: trunk@13034 -
14 lines
231 B
ObjectPascal
14 lines
231 B
ObjectPascal
{ %recompile }
|
|
|
|
uses
|
|
uw13583;
|
|
|
|
begin
|
|
writeln(DEFAULT_SIGNATURE);
|
|
if ('edb_signature' <> DEFAULT_SIGNATURE) then
|
|
halt(1);
|
|
writeln(DEFAULT_SIGNATURE2);
|
|
if ('edb_signature2' <> DEFAULT_SIGNATURE2) then
|
|
halt(1);
|
|
end.
|