weus at quicknet.nl
Tue Mar 7 13:15:43 EST 2000
At 12:42 07-03-2000 +0100, Michael Van Canneyt wrote:
>I had a look at the code.
>Have a look at the 'uses' clause:
> SysUtils, Windows, Messages, Classes, Controls, mwPasLexTypes, mwPasLex,
> mwSimplePasParTypes, Dialogs;
>To be usable by Free Pascal, this should be reduced to
> SysUtils,Classes, mwPasLexTypes, mwPasLex, mwSimplePasParTypes,
>Windows, messages, controls and dialogs have no place in a parser.
>The same is true for the mwpaslex unit. But I assume you don't need them,
>that they are inserted by Delphi by default.
>Then, Free Pascal gets stuck on mwpaslextypes :
>function ptTokenName(Value: TptTokenKind): string;
> result := GetEnumName(TypeInfo(TptTokenKind), Integer(Value));
>I assume the typinfo call is something of Delphi 5 ? the call doesn't
>exist in Free Pascal.
TypeInfo is also part of Delphi 4 system unit.
>(Florian: Apparently this should become an internal function of
>Free Pascal, since I see no other way of doing this)
In Delphi it is as well
>There are some more errors; the
>construct is not provided. In Free pascal you must write the call again
>explicitly, with it's arguments.
We came accross this with porting the editor, it should be no problem to
include some ifdefs
More information about the Lazarus