* delphi allows callign convention in implementation

tests/tbs/tb0444.pp

@@ -0,0 +1,13 @@
+{$mode delphi}
+unit tb0444;
+interface
+
+function Trunc(const x : Single) : Integer;
+
+implementation
+
+function Trunc(const x : Single) : Integer;
 register;
+asm
+end;
+
+end.