In article 200111300132.CAA14769@goedel.fjf.gnu.de, Frank Heckenbach frank@g-n-u.de writes
The code looks correct and compiles and executes properly with the previous version. Is this a known problem as it looks as though it should be fairly easy to produce a test case if required.
So why don't you do this? How can I tell if it's a known problem, or a problem at all, if I don't even know when it happens? Maybe there's a bug in your code that previous GPC versions didn't notice, maybe it's a GPC bug, who knows?
Frank
I seem to have hit a raw nerve and I apologise if my posting was inappropriate. I didn't want to waste the bandwidth of everybody on the list by posting a listing about a known problem. Here is the simplest program I can devise that shows the problem. It compiles and executes with version 20010604 but fails to compile with version 20011123 with the error message "label '1' used before containing binding contour". Please note that there is a trivial work around for the real code so this is a very low priority problem for us.
Program TCS_Test1; Label 1;
Var Line:String(255); Fseed:Text;
Begin Line:='ABC'; If Line[1] <>'C' then Goto 1; Reset(FSeed,Line+'seed'); 1: End.
My main problem is that the packing of records appears to have changed.
I've changed a number of things WRT sets. Maybe one of them is responsible for what you observe, maybe not ...
OK. I'm working on a pair of test programs to demonstrate the behaviour I see. My initial efforts work perfectly (i.e. don't show the problem) so I obviously haven't got to grips with the real problem yet.
Please remember that we're doing this for free, and I don't want to waste my time guessing what you did.
I understand this and I have tried in the past to be appreciative of your efforts and the efforts of others who contribute. I was expecting to be told to RTFM but hoped that somebody could point out the appropriate section of the FM.
Alternatively, we can offer you commercial support that allows us to devote more time to solving your particular problem. If you are interested, please contact info@g-n-u.de.
We will certainly consider commercial support in the future.