paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 22:16:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Support compiling some Lazarus code with -Sy option. Issue #40263, patch by Arioch The.

Browse Source
This commit is contained in:
Juha 2023-05-20 11:45:11 +03:00
parent 10da471513
commit 21ea45d415
5 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/freetype/ttgload.pas
View File

@ -204,11 +204,11 @@ const
np := source.n_points;
nc := source.n_contours;
target.org := @source.org^[np];
target.cur := @source.cur^[np];
target.flags := @source.flags^[np];
target.org := pointer(@source.org^[np]);
target.cur := pointer(@source.cur^[np]);
target.flags := pointer(@source.flags^[np]);
target.conEnds := @source.conEnds^[nc];
target.conEnds := pointer(@source.conEnds^[nc]);
target.n_points := 0;
target.n_contours := 0;

8
components/lazcontrols/extendednotebook.pas
View File

@ -362,7 +362,7 @@ var
Points[2].X := ARect.Left + 2;
Points[2].y := y;
Points[3] := Points[0];
Polygon(DC, @Points, 4, False);
Polygon(DC, @Points[Low(Points)], 4, False);
end;
procedure DrawRightArrow(ARect: TRect);
var y, h: Integer;
@ -377,7 +377,7 @@ var
Points[2].X := ARect.Right - 2;
Points[2].y := y;
Points[3] := Points[0];
Polygon(DC, @Points, 4, False);
Polygon(DC, @Points[Low(Points)], 4, False);
end;
procedure DrawTopArrow(ARect: TRect);
var x, h: Integer;
@ -392,7 +392,7 @@ var
Points[2].Y := ARect.Top + 2;
Points[2].X := x;
Points[3] := Points[0];
Polygon(DC, @Points, 4, False);
Polygon(DC, @Points[Low(Points)], 4, False);
end;
procedure DrawBottomArrow(ARect: TRect);
var x, h: Integer;
@ -407,7 +407,7 @@ var
Points[2].Y := ARect.Bottom - 2;
Points[2].X := X;
Points[3] := Points[0];
Polygon(DC, @Points, 4, False);
Polygon(DC, @Points[Low(Points)], 4, False);
end;
begin

8
components/lazutils/laz2_xmlutils.pas
View File

@ -218,7 +218,7 @@ begin
if Xml11 then
Pages := Xml11NamePages
else
Pages := @NamePages;
Pages := pointer(@NamePages);
I := 0;
if (Len = 0) or not ((Byte(Value[I]) in NamingBitmap[Pages^[hi(Word(Value[I]))]]) or
@ -246,7 +246,7 @@ begin
if Xml11 then
Pages := Xml11NamePages
else
Pages := @NamePages;
Pages := pointer(@NamePages);
Result := False;
if Value = '' then
Exit;
@ -278,7 +278,7 @@ begin
if Xml11 then
Pages := Xml11NamePages
else
Pages := @NamePages;
Pages := pointer(@NamePages);
Result := False;
if Value = '' then
Exit;
@ -302,7 +302,7 @@ begin
if Xml11 then
Pages := Xml11NamePages
else
Pages := @NamePages;
Pages := pointer(@NamePages);
I := 1;
Result := False;
if Value = '' then

2
lcl/include/imglist.inc
View File

@ -599,7 +599,7 @@ begin
if Index >= 0 then
begin
Image.DataSize := FWidth * FHeight * SizeOf(FData[0]);
Image.Data := @FData[Index * FWidth * FHeight];
Image.Data := pointer(@FData[Index * FWidth * FHeight]);
end;
end;

6
lcl/interfaces/win32/win32proc.pp
View File

@ -1384,7 +1384,7 @@ begin
tmp := nil;
r := Windows.FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ARGUMENT_ARRAY,
nil, AErrorCode, LANG_NEUTRAL, @tmp, 0, nil);
nil, AErrorCode, LANG_NEUTRAL, pointer(@tmp), 0, nil);
if r = 0 then Exit('');
@ -1610,7 +1610,7 @@ function WndClassName(Wnd: HWND): String; inline;
var
winClassName: array[0..19] of char;
begin
GetClassName(Wnd, @winClassName, 20);
GetClassName(Wnd, @winClassName[low(winClassName)], Length(winClassName));
Result := winClassName;
end;
@ -1618,7 +1618,7 @@ function WndText(Wnd: HWND): String; inline;
var
winText: array[0..255] of char;
begin
GetWindowText(Wnd, @winText, 256);
GetWindowText(Wnd, @winText[low(winText)], Length(winText));
Result := winText;
end;