+ 229

bugs/bug0229.pp

@@ -0,0 +1,34 @@
+{$mode objfpc}
+{$X-}
+
+const
+   CRLF = #13#10;
+   c =
+        '1-----------------'+CRLF+
+        '2/PcbDict 200 dict'+CRLF+
+        '3PcbDicljkljkljk b'+CRLF+
+        '4PcbDict /DictMaix'+CRLF+
+        '5% draw a pin-poll'+CRLF+
+        '6% get x+CRLF+ y s'+CRLF+
+        '7/thickness exch h'+CRLF+
+        '8gsave x y transls'+CRLF+
+        '9---------jljkljkl'+crlf+
+        '10----------2jkljk'+crlf+
+        '11----------jkllkk'+crlf+
+        'eeeeeeeeeeeeeeeeee'+crlf+
+        '2-----------------'+CRLF+
+        '2/PcbDict 200 dice'+CRLF+
+        'END____.XXXXXxjk b'+CRLF+
+        '4PcbDict /DictMaix'+CRLF+
+        '5% draw a pin-poll'+CRLF+
+        '6% get x+CRLF+ y s'+CRLF+
+        '7/thickness exch h'+CRLF+
+        '8gsave x y transls'+CRLF+
+        '9---------jljkljkl'+crlf+
+        '10----------2jkljk'+crlf+
+        '11----------jkllkk'+crlf+
+        'eeeeeeeeeeeeeeeeee12';
+
+begin
+   write(c);
+end.

bugs/readme.txt

@@ -310,3 +310,4 @@ bug0221.pp   syntax parsing incompatibilities with tp7
 bug0222.pp   an record field can't be the counter index (compiles with TP)
 bug0225.pp   Sigsegv when run with range checks on open arrays
 bug0227.pp   external var does strange things when declared in localsymtable
+bug0229.pp   consts > 255 are truncated (should work in -S2,-Sd)