paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 12:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Support compiling most of Lazarus + its components with -Sy option.

Browse Source
This commit is contained in:
Juha 2023-05-20 12:18:52 +03:00
parent 21ea45d415
commit 5c1be9de89
7 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpimgreaderwinpe.pas
View File

@ -470,7 +470,7 @@ begin
FCodeBase := NtHeaders.W32.OptionalHeader.BaseOfCode;
SectionMax := FFileLoader.LoadMemory(
DosHeader.e_lfanew +
(@NtHeaders.Sys.OptionalHeader - @NtHeaders.Sys) +
(Pointer(@NtHeaders.Sys.OptionalHeader) - @NtHeaders.Sys) +
NtHeaders.Sys.FileHeader.SizeOfOptionalHeader,
SizeOf(TImageSectionHeader) * NtHeaders.Sys.FileHeader.NumberOfSections,
SectionHeader

1
components/freetype/ttprofile.pas
View File

@ -1,6 +1,7 @@
unit TTProfile;
{$R-} // TODO: Fix out-of-bounds accesses.
{$T-} // TODO: Fix compilation with -Sy.
{$mode objfpc}{$H+}
interface

1
components/lazutils/masks.pas
View File

@ -15,6 +15,7 @@
}
unit Masks;
{$T-} // TODO: Fix compilation with -Sy.
{$mode objfpc}{$H+}
{.$define debug_maskcompiled}
{.$define debug_anycharornone}

2
components/macroscript/emscriptclasses.pas
View File

@ -390,7 +390,7 @@ begin
Result := PPSVariantPointer(res)^.DataDest;
end
else
Result := @(PPSVariantRecord(res)^.data);
Result := PPoint(@(PPSVariantRecord(res)^.data));
if typerec.BaseType <> btRecord then raise TEMScriptBadParamException.Create('Invalid result type for "point(x,y)"');
if typerec.RealSize <> SizeOf({$IFDEF NeedTPointFix}TPoint2{$ELSE}TPoint{$ENDIF}) then raise TEMScriptBadParamException.Create('Invalid result size for "point(x,y)"');

2
components/multithreadprocs/mtputils.pas
View File

@ -61,7 +61,7 @@ var
Sorter: TParallelSortPointerList;
begin
if List.Count<=1 then exit;
Sorter:=TParallelSortPointerList.Create(@List.List[0],List.Count,Compare,
Sorter:=TParallelSortPointerList.Create(PPointer(@List.List[0]),List.Count,Compare,
MaxThreadCount);
try
Sorter.OnSortPart:=OnSortPart;

4
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -17308,7 +17308,7 @@ begin
GetKeyboardState(KeyState);
// Avoid conversion to control characters. We have captured the control key state already in Shift.
KeyState[VK_CONTROL] := 0;
if ToASCII(Message.CharCode, (Message.KeyData shr 16) and 7, KeyState, @Buffer, 0) > 0 then
if ToASCII(Message.CharCode, (Message.KeyData shr 16) and 7, KeyState, PWord(@Buffer), 0) > 0 then
begin
case Buffer[0] of
'*':
@ -17326,7 +17326,7 @@ begin
// there is a problem with ToASCII when used in conjunction with dead chars.
// The article recommends to call ToASCII twice to restore a deleted flag in the key message
// structure under certain circumstances. It turned out it is best to always call ToASCII twice.
ToASCII(Message.CharCode, (Message.KeyData shr 16) and 7, KeyState, @Buffer, 0);
ToASCII(Message.CharCode, (Message.KeyData shr 16) and 7, KeyState, PWord(@Buffer), 0);
{$endif}
case CharCode of
VK_F2:

2
ide/buildprofilemanager.pas
View File

@ -393,7 +393,7 @@ begin
// FPC on darwin has a bug with -Cr
fOptions.Add('-gw -gl -godwarfsets -gh -gt -Co -Ci -Sa');
{$ELSE}
fOptions.Add('-gw3 -gl -gh -gt -Co -Cr -Ci -Sa');
fOptions.Add('-gw3 -gl -gh -gt -Co -Cr -Ci -Sa -Sy');
{$ENDIF}
end;
Add(Profile);