|
|
@@ -0,0 +1,28 @@
|
|
|
+{ Source provided for Free Pascal Bug Report 2220 }
|
|
|
+{ Submitted by "marco" on 2002-11-06 }
|
|
|
+{ e-mail: [email protected] }
|
|
|
+{$H+}
|
|
|
+{$ifdef fpc}{$MODE DELPHI}{$endif}
|
|
|
+// NO OUTPUT, GDB SHOWS SIGSEGV IN DECR_REF
|
|
|
+
|
|
|
+type bla=class
|
|
|
+ freceivebuffer : array[0..4095] of char;
|
|
|
+ flastresponse : String;
|
|
|
+ procedure themethod;
|
|
|
+ end;
|
|
|
+
|
|
|
+procedure bla.themethod;
|
|
|
+ var i : longint;
|
|
|
+ begin
|
|
|
+ i:=10;
|
|
|
+ flastresponse:=copy(freceivebuffer,1,I-1);
|
|
|
+ writeln('point 1');
|
|
|
+ end;
|
|
|
+
|
|
|
+var x : bla;
|
|
|
+
|
|
|
+begin
|
|
|
+ x:=bla.create;
|
|
|
+ x.themethod;
|
|
|
+ writeln('point 2');
|
|
|
+end.
|
peter