Browse Source

*** empty log message ***

florian 27 years ago
parent
commit
b80b4ccb06
3 changed files with 24 additions and 0 deletions
  1. 5 0
      bugs/bug0126.pp
  2. 17 0
      bugs/bug0127.pp
  3. 2 0
      bugs/readme.txt

+ 5 - 0
bugs/bug0126.pp

@@ -0,0 +1,5 @@
+type
+   myarray = packed array[0..10] of longint;
+
+begin
+end.

+ 17 - 0
bugs/bug0127.pp

@@ -0,0 +1,17 @@
+unit test;
+
+  interface
+
+    procedure x;
+
+  implementation
+
+    procedure crash;
+
+      begin
+         x; { called with pascal calling conventions }
+      end;
+
+   procedure x;external;cdecl;
+
+end.

+ 2 - 0
bugs/readme.txt

@@ -171,3 +171,5 @@ bug0122.pp   exit() gives a warning that the result is not set
 bug0123.pp   problem with intel assembler (shrd)
 bug0124.pp   problem with -Rintel switch and indexing (whatever the order)
 bug0125.pp   wrong colors with DOS CRT unit
+bug0126.pp   packed array isn't allowed
+bug0127.pp   problem with cdecl in implementation part