From b80b4ccb063e9ed1aa062a7e426c92db56e5b13c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 7 Apr 1998 14:45:53 +0000
Subject: [PATCH] *** empty log message ***

---
 bugs/bug0126.pp |  5 +++++
 bugs/bug0127.pp | 17 +++++++++++++++++
 bugs/readme.txt |  2 ++
 3 files changed, 24 insertions(+)
 create mode 100644 bugs/bug0126.pp
 create mode 100644 bugs/bug0127.pp

diff --git a/bugs/bug0126.pp b/bugs/bug0126.pp
new file mode 100644
index 0000000000..0aeec2e852
--- /dev/null
+++ b/bugs/bug0126.pp
@@ -0,0 +1,5 @@
+type
+   myarray = packed array[0..10] of longint;
+
+begin
+end.
diff --git a/bugs/bug0127.pp b/bugs/bug0127.pp
new file mode 100644
index 0000000000..7be9170e2b
--- /dev/null
+++ b/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.
diff --git a/bugs/readme.txt b/bugs/readme.txt
index cef3abd7d0..0655cf5ad4 100644
--- a/bugs/readme.txt
+++ b/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