Răsfoiți Sursa

+ added (works now)

git-svn-id: trunk@8279 -
Jonas Maebe 18 ani în urmă
părinte
comite
32120569be
2 a modificat fișierele cu 14 adăugiri și 0 ștergeri
  1. 1 0
      .gitattributes
  2. 13 0
      tests/webtbs/tw7733.pp

+ 1 - 0
.gitattributes

@@ -8252,6 +8252,7 @@ tests/webtbs/tw7637.pp svneol=native#text/plain
 tests/webtbs/tw7643.pp svneol=native#text/plain
 tests/webtbs/tw7679.pp svneol=native#text/plain
 tests/webtbs/tw7719.pp svneol=native#text/plain
+tests/webtbs/tw7733.pp svneol=native#text/plain
 tests/webtbs/tw7756.pp svneol=native#text/plain
 tests/webtbs/tw7758.pp svneol=native#text/plain
 tests/webtbs/tw7758a.pp svneol=native#text/plain

+ 13 - 0
tests/webtbs/tw7733.pp

@@ -0,0 +1,13 @@
+{ %cpu=i386 }
+
+function A: pointer; assembler; nostackframe;
+asm
+  pushl $A
+  popl %eax
+end;
+
+begin
+  if A <> pointer(@A) then
+    halt(1);
+end.
+