This website works better with JavaScript
Página Principal
Explorar
Ajuda
Iniciar Sessão
pascal
/
freepascal.compiler
mirror de
https://gitlab.com/freepascal.org/fpc/source.git
Vigiar
2
Colocar Estrela
0
Fork
0
Ficheiros
Problemas
0
Wiki
Ver Fonte
* rte 211 when error at left site
peter
há 22 anos atrás
pai
0795cf556b
commit
732743c991
1 ficheiros alterados
com
10 adições
e
0 exclusões
Visão Dividida
Mostrar Estatísticas Diff
10
0
tests/tbf/tb0156.pp
+ 10
- 0
tests/tbf/tb0156.pp
Ver Ficheiro
@@ -0,0 +1,10 @@
+{ %fail }
+
+var
+ _self : pointer;
+begin
+ ppointer(_self+vmt_pos)^:=0;
+end.
+
+
+