peter 27 years ago
parent
commit
f8ab2581ff
2 changed files with 11 additions and 0 deletions
  1. 10 0
      bugs/bug0155.pp
  2. 1 0
      bugs/readme.txt

+ 10 - 0
bugs/bug0155.pp

@@ -0,0 +1,10 @@
+function asmstr:string;assembler;
+asm
+	movl	__RESULT,%edi
+	movl	$0x4101,%al
+	stosw
+end;
+
+begin
+  writeln(asmstr);
+end;

+ 1 - 0
bugs/readme.txt

@@ -205,4 +205,5 @@ bug0152.pp   End value of loop variable must be calculated before loop
 bug0153.pp   indexing a local/para var should produce an error like tp7 because
 bug0153.pp   indexing a local/para var should produce an error like tp7 because
              it's doomed to crash
              it's doomed to crash
 bug0154.pp   Subrange types give type mismatch when assigning to base type
 bug0154.pp   Subrange types give type mismatch when assigning to base type
+bug0155.pp   Missing string return for asm functions