Merge branch 'feature/fpc-3.2.2' into feature/lvgl

# Conflicts:
#	.drone.yml
#	virtualbox-wrapper.ps1

src/include/util.pas

@@ -150,10 +150,13 @@ begin
 end;
 
 function getESP : uint32;
+var
+    tmp: uint32;
 begin
     asm
-        MOV getESP, ESP
+        MOV tmp, ESP
     end;
+    getESP := tmp;
 end;
 
 function HexCharToDecimal(hex : char) : uint8;
@@ -382,6 +385,8 @@ begin
 end;
 
 function inl(port : uint16) : uint32; [public, alias: 'util_inl'];
+var
+     tmp : uint32;
 begin
      //serial.sendString('[inl]');
      //serial.sendHex(port);
@@ -390,14 +395,17 @@ begin
           PUSH EDX
           MOV DX, port
           IN EAX, DX
-          MOV inl, EAX
+          MOV tmp, EAX
           POP EDX
           POP EAX
      end;
+     inl := tmp;
      io_wait;
 end;
 
 function inw(port : uint16) : uint16; [public, alias: 'util_inw'];
+var
+     tmp : uint16;
 begin
      //serial.sendString('[inw]');
      //serial.sendHex(port);
@@ -406,14 +414,17 @@ begin
           PUSH EDX
           MOV DX, port
           IN AX, DX
-          MOV inw, AX
+          MOV tmp, AX
           POP EDX
           POP EAX
      end;
+     inw := tmp;
      io_wait;
 end;
 
 function inb(port : uint16) : uint8; [public, alias: 'util_inb'];
+var
+     tmp : uint8;
 begin
      //serial.sendString('[inb]');
      //serial.sendHex(port);
@@ -422,10 +433,11 @@ begin
           PUSH EDX
           MOV DX, port
           IN AL, DX
-          MOV inb, AL
+          MOV tmp, AL
           POP EDX
           POP EAX
      end;
+     inb := tmp;
      io_wait;
 end;