Browse Source

+ add inline on directive

pierre 23 years ago
parent
commit
6c6949e1d3
1 changed files with 2 additions and 0 deletions
  1. 2 0
      tests/webtbs/tw1938.pp

+ 2 - 0
tests/webtbs/tw1938.pp

@@ -1,4 +1,6 @@
 
 
+{$inline on }
+
 var A: array [0..1] of Integer;
 var A: array [0..1] of Integer;
 
 
 function F: Integer; inline;
 function F: Integer; inline;