Fix Linux compilation

danieleteti · Apr 17, 2024 · eba712e · eba712e
1 parent 0816f12
commit eba712e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sources/MVCFramework.RQL.Parser.pas b/sources/MVCFramework.RQL.Parser.pas
@@ -315,7 +315,7 @@ procedure TRQL2SQL.Error(const Message: string);
   end;
   if lMsg.Trim.IsEmpty then
     lMsg := '<EOF>';
-  raise ERQLException.CreateFmt('[Error] %s (column %d - found %s)', [message, fCurIdx, lMsg]) at AddressOfReturnAddress;
+  raise ERQLException.CreateFmt('[Error] %s (column %d - found %s)', [message, fCurIdx, lMsg]){$IF DEFINED(MSWINDOWS)} at AddressOfReturnAddress{$ENDIF};
 end;
 
 procedure TRQL2SQL.Execute(