From 429cc557116ed886f73638afba2c3ddeacdf6115 Mon Sep 17 00:00:00 2001 From: peter Date: Sat, 28 Aug 1999 16:41:02 +0000 Subject: [PATCH] + 285,286 --- bugs/bug0285.pp | 13 +++++++++++++ bugs/bug0286.pp | 5 +++++ bugs/readme.txt | 3 ++- 3 files changed, 20 insertions(+), 1 deletion(-) create mode 100644 bugs/bug0285.pp create mode 100644 bugs/bug0286.pp diff --git a/bugs/bug0285.pp b/bugs/bug0285.pp new file mode 100644 index 0000000000..108bcd7c0b --- /dev/null +++ b/bugs/bug0285.pp @@ -0,0 +1,13 @@ +{$asmmode intel} + +TYPE something = RECORD big:LONGINT; small:BYTE; END; + +FUNCTION typesize:INTEGER; ASSEMBLER; +ASM + MOV EAX, TYPE something +END; + +BEGIN + writeln(typesize); +END. + diff --git a/bugs/bug0286.pp b/bugs/bug0286.pp new file mode 100644 index 0000000000..19f6b3651f --- /dev/null +++ b/bugs/bug0286.pp @@ -0,0 +1,5 @@ +var + c : char; +begin + c:=#$08d; +end. diff --git a/bugs/readme.txt b/bugs/readme.txt index 5729c80503..284a21f9ac 100644 --- a/bugs/readme.txt +++ b/bugs/readme.txt @@ -371,6 +371,7 @@ bug0275.pp too many warnings bug0277.pp typecasting with const not possible bug0279.pp crash with ansistring and new(^ansistring) bug0281.pp dup id checking with property is wrong -bug0282.pp long mangledname problem with -Aas bug0283.pp wrong file position with dup id in other unit bug0284.pp bug in constant char comparison evaluation +bug0285.pp Asm, TYPE not support in intel mode +bug0286.pp #$08d not allowed as Char constant \ No newline at end of file