+ Added a test for the TP-style INLINE() statement.

tests/test/ttpinl.pp

@@ -0,0 +1,43 @@
+{ %cpu=i8086,i386 }
+
+{$ifdef fpc}
+{$mode tp}
+{$endif}
+
+procedure FillWord(var Dest; Count: Word; Data: Word);
+begin
+{$ifdef CPU386}
+  inline(
+    $8b/$7d/<Dest/        (* MOV   EDI,Dest  *)
+    $0f/$b7/$4d/<Count/   (* MOVZX ECX,Count *)
+    $66/$8b/$45/<Data/    (* MOV   AX,Data   *)
+    $fc/                  (* CLD             *)
+    $f3/$66/$ab);         (* REP   STOSW     *)
+{$else}
+  inline(
+    $C4/$7E/<Dest/        (* LES   DI,Dest[BP] *)
+    $8B/$4E/<Count/       (* MOV   CX,Count[BP]*)
+    $8B/$46/<Data/        (* MOV   AX,Data[BP] *)
+    $FC/                  (* CLD               *)
+    $F3/$AB);             (* REP   STOSW       *)
+{$endif}
+end;
+
+var
+  arr: array[1..10] of word;
+  i: integer;
+begin
+{$if sizeof(pointer)<4}
+  writeln('Skipping.');
+  Halt(0);
+{$endif}
+  FillChar(arr,sizeof(arr),$aa);
+  FillWord(arr,sizeof(arr) div 2,$55);
+  for i:=1 to 10 do
+    if arr[i]<>$55 then
+      begin
+        writeln('Wrong value: ', arr[i]);
+        Halt(1);
+      end;
+  writeln('OK.');
+end.