mORMot Open Source

Hi,

using Lazarus 1.8.0 with fpc 3.0.4 under Windows 10, target x86_64, mode Delphi.

RESTserver example compiles and runs. On termination, after Enter key is pressed, a Segmentation fault occurs.

With the aid of the debugger, I could track down the issue to the inherited call in the destructor of TSQLRestServerFullMemory in mORMot.pas.

destructor TSQLRestServerFullMemory.Destroy;
begin
  UpdateToFile;
  inherited;
end;

Exception occurs at SYSTEM_$$_REMOVE_FREED_FIXED_CHUNKS$POSCHUNK

No such issues under Delphi 10.2.2 (Tokyo).

What I can do to fix the issue?

Best regards
Boris

Hi,

I would like to transform a RawUTF8 string character-wise, in particular remove underscores and move all initial lowercase characters to the end (de_la_Rue -> Rue!dela). To do so I run over the characters in the RawUTF8 string N and its LoweCaseUnicode() copy L as

while (i <= len) and (N[i] = L[i]) do ...

This does not work for non-7-bit characters like é and ä. This is probably due to the UTF-8 encoding and N[] returning a single byte instead of a single char.

What is the correct way of accessing the ith character in a RawUTF8 string?

Best regards
Boris

Hi,

I made a trimmed-down version of the 26 - RESTful ORM example with Lazarus 1.8.0/Free Pascal Compiler 3.0.4 under Windows 10 64bit (target windows x86_64).

The server component runs fine. The client component creates a SIGSEV when doing Client.Add(). It looks like the pointer magic

Props := PPointer(PtrInt(aTable)+vmtAutoTable)^;

in mORMot.TSQLModel.GetTableIndex() returns a pointer into Nirvana: Props is filled with random content.

Delphi 10.1 creates a working executable, though.

SynCommons.VarRecToTempUTF8() seems to produce a similar issue in the vtClass branch of the case statement.

Is there a compiler switch to make the pointer magic work with Free Pascal or any other solution for this issue?

Best regards,
Boris

Hi,

making first steps with mORMot. Could compile and run self-test yesterday evening with Delphi 10.1. Current version from master breaks SynSelfTests.pas at line 16941:

SynSelfTests.pas(16941,17) Error: Incompatible types: got "TWebSocketProtocol.Clone(const RawUTF8):TWebSocketProtocol;" expected "TWebSocketProtocol"

Identical behavior in Lazarus 1.8.0/FPC 3.0.4 on Linux (amd64) and Windows (64bit).

What should I use as argument in Clone() for a quick fix?

Best regards,
Boris

Hi,

since 1990 I develop a specialized application based on a self-designed flat-file database in my spare time. With hundreds of databases being around and limited development time, a big bang migration to a modern backend (RMDBS) is not feasible. I therefore would like to use the mORMot framework and a custom backend to encapsulate access to the legacy database. Is this possible/advisable, and if so, could I please have some hints how to start?

The legacy flat-file database is a set of files in a folder with one file per entity and the position of the record in the file as ID. BTrees persistent in files are used to determine the sort order. The largest database is 120 MB, i.e. would nicely fit into memory/cache for queries. Delphi code already exists to read, modify, append, delete records and update the BTrees accordingly.

Kind regards
Boris