peter преди 27 години
родител
ревизия
f8ab2581ff
променени са 2 файла, в които са добавени 11 реда и са изтрити 0 реда
  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