badpork/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

oberon07: bugfix

Browse Source 
git-svn-id: svn://kolibrios.org@9895 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Anton Krotov 2023-01-22 12:08:46 +00:00
parent 2160c0e6f7
commit 61fbb36ac3
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
programs/develop/oberon07/Compiler.kex
View File

Binary file not shown.

10
programs/develop/oberon07/source/STATEMENTS.ob07
View File

@ -1,7 +1,7 @@
(*
BSD 2-Clause License
Copyright (c) 2018-2022, Anton Krotov
Copyright (c) 2018-2023, Anton Krotov
All rights reserved.
*)
@ -1137,7 +1137,7 @@ BEGIN
END
|PROG.stORD:
IL.AddCmd(IL.opPRECALL, 0);
cmd1 := IL.getlast();
PExpression(parser, e);
PARS.check(isChar(e) OR isBoolean(e) OR isSet(e) OR isCharW(e) OR isStringW1(e), pos, 66);
IF e.obj = eCONST THEN
@ -1148,6 +1148,12 @@ BEGIN
END
ELSE
IF isBoolean(e) THEN
cmd2 := IL.getlast();
IL.setlast(cmd1);
IL.AddCmd(IL.opPRECALL, 0);
IL.AddCmd0(IL.opRES);
IL.drop;
IL.setlast(cmd2);
IL._ord
END
END;

4
programs/develop/oberon07/source/UTILS.ob07
View File

@ -23,8 +23,8 @@ CONST
max32* = 2147483647;
vMajor* = 1;
vMinor* = 63;
Date* = "21-jan-2023";
vMinor* = 64;
Date* = "22-jan-2023";
FILE_EXT* = ".ob07";
RTL_NAME* = "RTL";