paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 05:10:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

tosunits: simplify some pointer assignments

Browse Source
This commit is contained in:
Thorsten Otto 2022-02-08 09:58:07 +01:00 committed by Charlie Balogh
parent 13ed9a2277
commit 0ad2150457
1 changed files with 3 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/tosunits/src/aes.pas
View File

@ -1494,11 +1494,7 @@ begin
end;
WF_INFO, WF_NAME:
begin
{$PUSH}
{$WARN 4055 OFF} { Conversion between ordinals and pointers is not portable }
_intin[2]:=hi(ptruint(wi_gw1));
_intin[3]:=lo(ptruint(wi_gw1));
{$POP}
PPointer(@_intin[2])^:=wi_gw1;
_contrl.num_intin:=4;
end;
end;
@ -1544,11 +1540,7 @@ begin
end;
WF_INFO, WF_NAME:
begin
{$PUSH}
{$WARN 4055 OFF} { Conversion between ordinals and pointers is not portable }
_intin[2]:=hi(ptruint(@wi_gw1));
_intin[3]:=lo(ptruint(@wi_gw1));
{$POP}
PPointer(@_intin[2])^:=@wi_gw1;
_contrl.num_intin:=4;
end;
end;
@ -1605,11 +1597,7 @@ function wind_set(wi_shandle: smallint; wi_sfield: smallint; ptr: Pointer): smal
begin
_intin[0]:=wi_shandle;
_intin[1]:=wi_sfield;
{$PUSH}
{$WARN 4055 OFF} { Conversion between ordinals and pointers is not portable }
_intin[2]:=hi(ptruint(ptr));
_intin[3]:=hi(ptruint(ptr));
{$POP}
PPointer(@_intin[2])^:=ptr;
_intin[4]:=0;
_intin[5]:=0;