mirror of
https://github.com/AntKrotov/oberon-07-compiler.git
synced 2026-10-05 09:45:47 +00:00
Linux (x86): исправлено выравнивание REAL в структурах (4 байта вместо 8)
This commit is contained in:
1 parent
e5b0dc2f14
commit
acc33c31b4
4 files changed
+7
-3
No files matched your search
Binary file not shown.
+5
-1
@@ -1263,7 +1263,11 @@ BEGIN
|
||||
|
||||
IF TARGETS.RealSize # 0 THEN
|
||||
program.stTypes.tREAL := enterType(tREAL, TARGETS.RealSize, 0, NIL);
|
||||
program.stTypes.tREAL.align := TARGETS.RealSize
|
||||
IF TARGETS.OS = TARGETS.osLINUX32 THEN
|
||||
program.stTypes.tREAL.align := 4
|
||||
ELSE
|
||||
program.stTypes.tREAL.align := TARGETS.RealSize
|
||||
END
|
||||
END;
|
||||
|
||||
program.stTypes.tSTRING := enterType(tSTRING, TARGETS.WordSize, 0, NIL);
|
||||
|
||||
+2
-2
@@ -23,8 +23,8 @@ CONST
|
||||
max32* = 2147483647;
|
||||
|
||||
vMajor* = 1;
|
||||
vMinor* = 61;
|
||||
Date* = "08-jan-2023";
|
||||
vMinor* = 62;
|
||||
Date* = "09-jan-2023";
|
||||
|
||||
FILE_EXT* = ".ob07";
|
||||
RTL_NAME* = "RTL";
|
||||
|
||||
Reference in new issue
Block a user