소스 검색

* rte 211 when error at left site

peter 22 년 전
부모
커밋
732743c991
1개의 변경된 파일10개의 추가작업 그리고 0개의 파일을 삭제
  1. 10 0
      tests/tbf/tb0156.pp

+ 10 - 0
tests/tbf/tb0156.pp

@@ -0,0 +1,10 @@
+{ %fail }
+
+var
+  _self : pointer;
+begin
+  ppointer(_self+vmt_pos)^:=0;
+end.
+
+ 
+