Linux (x86): исправлено выравнивание REAL в структурах (4 байта вместо 8)

This commit is contained in:
AntKrotov committed 2023-01-09 16:31:38 +03:00
1 parent e5b0dc2f14
commit acc33c31b4
4 files changed
+7 -3

No files matched your search

BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
+5 -1
View File
@@ -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
View File
@@ -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";