0f87473105
* module/language/c99/compiler.mes (struct->fields): Support bit-fields. (ast->type): (field-field): (field-offset): (expr->accu*): (expr->accu): (struct-field): (->size): * module/language/c99/info.scm (<bit-field>): New type. * stage0/x86.M1 (and____$i32,%eax, and____(%edx),%eax, mov____(%edx),%eax, or____(%edx),%eax): New macro. * module/mes/as-i386.mes (i386:base-mem->accu): Use it. (i386:accu-and, i386:accu-and-base-mem, i386:accu-or-base-mem): New function. * module/mes/as-i386.scm: Export them. * scaffold/tests/7q-bit-field.c: Test it. * build-aux/check-mescc.sh (tests): Run it.
68 lines
1.3 KiB
C
68 lines
1.3 KiB
C
/* -*-comment-start: "//";comment-end:""-*-
|
|
* Mes --- Maxwell Equations of Software
|
|
* Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
|
*
|
|
* This file is part of Mes.
|
|
*
|
|
* Mes is free software; you can redistribute it and/or modify it
|
|
* under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or (at
|
|
* your option) any later version.
|
|
*
|
|
* Mes is distributed in the hope that it will be useful, but
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with Mes. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
struct bits
|
|
{
|
|
int
|
|
one: 1,
|
|
two : 1,
|
|
four: 1,
|
|
eightsixteen: 2;
|
|
};
|
|
|
|
union foo
|
|
{
|
|
struct bits b;
|
|
int i;
|
|
};
|
|
|
|
int
|
|
main ()
|
|
{
|
|
union foo f;
|
|
f.b.one = 1;
|
|
if (f.i != 1)
|
|
return 1;
|
|
f.b.two = 1;
|
|
if (f.i != 3)
|
|
return 2;
|
|
f.b.four = 1;
|
|
if (f.i != 7)
|
|
return 3;
|
|
f.b.eightsixteen = 3;
|
|
if (f.i != 31)
|
|
return 4;
|
|
|
|
f.i = 1;
|
|
f.b.one = 0;
|
|
if (f.i)
|
|
return 5;
|
|
f.i = 24;
|
|
f.b.eightsixteen = 0;
|
|
if (f.i)
|
|
return 6;
|
|
f.i = 8;
|
|
f.b.eightsixteen = 2;
|
|
if (f.i != 16)
|
|
return 7;
|
|
|
|
return 0;
|
|
}
|