Invalid code folding in asm-coded procedure
lazarus / 9-Editor

----------------------------------------------------------------------
BorisZanin · 2011-07-25 08:07

It looks like Lazarus code folding engine does not understand that
procedure can begin with asm  keyword. In the following example try to
compact vars defined in the procedure p1. For some reason Lazarus
editor will compact all the code till the end of file. Same thing with
const, if you exchange var and const blocks of p1.
Code: [Select]unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure p0;
begin
end;

procedure p1 (var argKey, argDataBlock); assembler;
const
  c0  = 0;
  c1  = 1;
var
  a: integer;
  b: integer;
asm
      ret
end;


end.

----------------------------------------------------------------------
Martin_fr · 2011-07-25 08:18

fixed in SVN

----------------------------------------------------------------------
BorisZanin · 2011-07-25 08:34

Thanks.