El 15/7/20 a les 17:31, Luca Olivetti via lazarus ha escrit:
El 15/7/20 a les 17:20, Luca Olivetti via lazarus ha escrit:Hello,something broke in sdfdataset with fpc 3.2.0 (a segfault that doesn't occur if I compile the same program with fpc 3.0.4) and I'm trying to debug it.First I tried to compile just the fcl with debug information cd fpc-3.2.0/packages OPT=-gl make sudo make install
[...]
Any hint?
The optimization! I had to use "-g -gl -O-" to get the full call stack.
For the record, the segfault happens here #0 SYSGETMEM_FIXED(544) at ../inc/heap.inc:963
The memory is hosed, I still don't know why.I managed to reproduce the problem with a simple lazarus program, however a plain pascal program that does the same doesn't trigger the it.
I'm attaching the lazarus project as well as the simple pascal program if somebody could look into it...
Bye -- Luca Olivetti Wetron Automation Technology http://www.wetron.es/ Tel. +34 93 5883004 (Ext.3010) Fax +34 93 5883007
program sdfsegfault; {$R *.res} uses Classes, sysutils,sdfdata; procedure ClearData(dataset:TSdfDataset); var st:TStringStream; begin st:=TStringStream.Create(''); dataset.LoadFromStream(st); st.free; end; procedure LoadData(dataset:TSdfDataset); var x, f: Integer; begin for x:=1 to 10 do begin dataset.append; for f:=0 to Dataset.Fields.Count-1 do DataSet.Fields[f].AsString:='ABC'; DataSet.Post; end; end; var ds:TSdfDataSet; begin ds:=TSdfDataSet.Create(nil); with ds do begin FileMustExist:=true; ReadOnly:=false; Filename:='dummy'; Schema.Add('TMA'); Schema.Add('VISUALIZAR'); AllowMultiLine:=false; Delimiter:=','; FirstLineAsSchema:=False; StripTrailingDelimiters:=False; end; ClearData(ds); LoadData(ds); ds.Free; end.
<<attachment: project1.zip>>
-- _______________________________________________ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus