artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

ARM: Revert to 4 byte types only.

Browse source 
* module/mescc/armv4/info.scm (armv4:type-alist): Use size 4 for long
longs too.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-11-14 15:02:06 +01:00
parent 4492173466
commit bfd6792d07
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
module/mescc/armv4/info.scm
View file

@ -39,8 +39,8 @@
("long" . ,(make-type 'signed 4 #f)) ("long" . ,(make-type 'signed 4 #f))
("default" . ,(make-type 'signed 4 #f)) ("default" . ,(make-type 'signed 4 #f))
("*" . ,(make-type 'unsigned 4 #f)) ("*" . ,(make-type 'unsigned 4 #f))
("long long" . ,(make-type 'signed 8 #f)) ("long long" . ,(make-type 'signed 4 #f))
("long long int" . ,(make-type 'signed 8 #f)) ("long long int" . ,(make-type 'signed 4 #f))
("void" . ,(make-type 'void 1 #f)) ("void" . ,(make-type 'void 1 #f))
("signed char" . ,(make-type 'signed 1 #f)) ("signed char" . ,(make-type 'signed 1 #f))
@ -50,8 +50,8 @@
("unsigned int" . ,(make-type 'unsigned 4 #f)) ("unsigned int" . ,(make-type 'unsigned 4 #f))
("unsigned long" . ,(make-type 'unsigned 4 #f)) ("unsigned long" . ,(make-type 'unsigned 4 #f))
("unsigned long long" . ,(make-type 'unsigned 8 #f)) ("unsigned long long" . ,(make-type 'unsigned 4 #f))
("unsigned long long int" . ,(make-type 'unsigned 8 #f)) ("unsigned long long int" . ,(make-type 'unsigned 4 #f))
("float" . ,(make-type 'float 4 #f)) ("float" . ,(make-type 'float 4 #f))
("double" . ,(make-type 'float 4 #f)) ; FIXME ("double" . ,(make-type 'float 4 #f)) ; FIXME