mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 06:29:32 +02:00
f38d29cfab
* fixed storing/loading of setdefs to/from ppu + test (Thorsten Engler) * fixed ppudump for new setdef format in ppus git-svn-id: trunk@6363 -
17 lines
192 B
ObjectPascal
17 lines
192 B
ObjectPascal
program SetsFUBAR;
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
var
|
|
FCommentChars: TSysCharSet;
|
|
s: string;
|
|
|
|
begin
|
|
s := '#';
|
|
FCommentChars := [';','#'];
|
|
if not (s[1] in FCommentChars) then
|
|
halt(1);
|
|
end.
|
|
|