new

tests/webtbs/tbug932.pp

@@ -0,0 +1,16 @@
+program test;
+
+{$ASMMODE Intel }
+
+procedure TestProc;
+const
+  TestConst: String = 'Test';
+begin
+  asm
+    mov edi, offset TestConst
+  end;
+end;
+
+begin
+  TestProc;
+end.