Browse Source

* @ operator does not work on labels in current compiler

daniel 21 years ago
parent
commit
f46d787ab6
1 changed files with 35 additions and 0 deletions
  1. 35 0
      tests/tbs/tb0468.pp

+ 35 - 0
tests/tbs/tb0468.pp

@@ -0,0 +1,35 @@
+{ %OPT=-Sg }
+program jumptab;
+
+{$asmmode intel}
+
+procedure x;
+
+label a;
+
+var b:pointer;
+
+begin
+  b:=@a;
+a:
+end;
+
+procedure jumptabproc; assembler;
+
+label a,b,c,d;
+
+const jumptable:array[0..3] of pointer=(@a,@b,@b,@d);
+
+asm
+a:
+ nop
+b:
+ nop
+c:
+ nop
+d:
+ nop
+end;
+
+begin
+end.