weird error message

[fcu]

Code: Pascal  [Select][+][-]

1. program test;
2. {$mode objfpc}
3. {$modeswitch advancedrecords}
4.  
5. type
6.  trec = record
7.   procedure proc; virtual;
8.  end;
9. begin
10. end.
11.  

when compiling this code you got a weird error message
main.pas(7,19) Error: Fields cannot appear after a method or property defini
tion, start a new visibility section first
main.pas(7,26) Fatal: Syntax error, ":" expected but ";" found
Fatal: Compilation aborted


we know virtual kayword is not allowed inside advanced records , why not just say : error : virtual is not allowed inside  advanced records

[jamie]

I guess you picked the wrong data type, and yes, that is a oversight on error reporting.

This isn't C++ you know!

Jamie

[Thaddy]

You do not implement Trec.proc so the compile will fail anyway.
I would expect a "forward delaration not solved."
Also, virtual methods are not allowed in records.
It should be something like this, that I tested in Delphi. (no fpc compiler available today, yet)

Code: Pascal  [Select][+][-]

1. {$APPTYPE CONSOLE}
2. {$ifdef fpc}{$mode delphi}{$endif}
3. type
4.  tmyrec = record
5.   procedure myproc; //<-- no virtual. makes no sense in records.
6.  end;
7.  
8.  procedure tmyrec.myproc; //<-- must implement
9.  begin
10.  end;
11. begin
12. end.

If that still fails it is a real bug.

BTW:
If you really want something like virtual in a record you must use a procedure variable of type myproc.
You can not override records, but you can change values from record fields.

[Martin_fr]

we know virtual kayword is not allowed inside advanced records , why not just say : error : virtual is not allowed inside  advanced records

virtual isn't a keyword. It's a modifier. Meaning: virtual is not reserved/protected. You can have variables/fields/functions called "virtual".

[Thaddy]

I tested my corrected example on trunk and it fails. It is a bug apart from the two issues mentioned.
It compiles in Delphi 12.

Btw here's my suggestion:

Code: Pascal  [Select][+][-]

1. {$ifdef fpc}{$mode objfpc}{$endif}
2. {$apptype console}
3. type
4.  TMyproc = procedure;
5.  
6.  tmyrec = record
7.   a:Tmyproc;
8.  end;
9.  
10.  procedure myproc;
11.  begin
12.    writeln('myproc');
13.  end;
14.  
15. var r:TMyrec;
16. begin
17.   r.a :=@myproc;
18.   r.a;
19.   readln;
20. end.

Does not need advanced records too

[Thaddy]

If the original layout is essential change record to object.

Code: Pascal  [Select][+][-]

1. {$mode objfpc}
2. type
3.  tmyobj = object
4.   procedure myproc; virtual;
5.  end;
6.  
7.  procedure TmyObj.myproc;
8.  begin
9.    writeln('myproc');
10.  end;
11.  
12. var r:TMyObj;
13. begin
14.   r.myproc;
15.   readln;
16. end.

Objects semantics without using pointer types are otherwise almost  the same as records.

[cdbc]

Hi
@Thaddy: +1
Regards Benny