Browse Source

+ add log for makefile
+ added test for i:=longint;

pierre 27 years ago
parent
commit
922c46cdef
3 changed files with 18 additions and 3 deletions
  1. 4 1
      tests/README
  2. 6 2
      tests/makefile
  3. 8 0
      tests/tf000002.pp

+ 4 - 1
tests/README

@@ -29,4 +29,7 @@ ts10100.pp        tests for delphi object model
 -
 ts101xx.pp
 
-to000000          shows when uncertain optimizations can cause wrong code
+tf000001.pp       stupid example that creates a GPF sometimes
+tf000002.pp       tests that use of a type as a member of an expression is not possible
+
+to000000.pp       shows when uncertain optimizations can cause wrong code

+ 6 - 2
tests/makefile

@@ -1,4 +1,6 @@
-
+#
+# $Id:
+#
 # make all test
 # and printout errors
 
@@ -99,4 +101,6 @@ alltf : $(patsubst %.pp,%.ref,$(wildcard tf*.pp))
 allto : $(patsubst %.pp,%.res,$(wildcard to*.pp))
 
 clean :
-	-rm *.re* log faillist
+	-rm *.re* *.o *.ppu *.exe log faillist
+
+# $Log:

+ 8 - 0
tests/tf000002.pp

@@ -0,0 +1,8 @@
+
+var
+  i,j : longint;
+begin
+  i:=longint;
+  j:=i*word+j*shortint;
+  j:= 15 +5*i +(i*i)+sqr(word);
+end.