From 0ad2150457a100fbef2476378f3ac56a33858fd2 Mon Sep 17 00:00:00 2001
From: Thorsten Otto <admin@tho-otto.de>
Date: Tue, 8 Feb 2022 09:58:07 +0100
Subject: [PATCH] tosunits: simplify some pointer assignments

---
 packages/tosunits/src/aes.pas | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

diff --git a/packages/tosunits/src/aes.pas b/packages/tosunits/src/aes.pas
index 7e22c6f615..52503bfd12 100644
--- a/packages/tosunits/src/aes.pas
+++ b/packages/tosunits/src/aes.pas
@@ -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;