@@ -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
@@ -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:
@@ -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.