mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-01 07:59:22 +02:00
The sources of the Free Pascal compiler, RTL, packages and utilities.
See https://www.freepascal.org/ for more info.
![]() The result type of the intrinsic is determined by the Then-expression to provide a bit of control. There might however be some situations in which this fails, for this exceptions need to be added (e.g. a constant string needs to be converted to a normal string). compinnr.inc: + add new constant in_ifthen_x_y_z for the IfThen() intrinsic psystem.pas: + create_intern_symbols: add symbol for IfThen() intrinsic pexpr.pas: * statement_syssym: parse parameters of IfThen() intrinsic and return corresponding inline node ninl.pas, tinlinenode: + new method handle_ifthen() which converts the inline node to an if-node which assigns the expressions to a temp node that is returned * pass_typecheck: handle in_ifthen_x_y_z using handle_ifthen() * pass_1: in_ifthen_x_y_z does not need a first pass as it's already converted after the typecheck pass + added tests git-svn-id: trunk@33036 - |
||
---|---|---|
compiler | ||
ide | ||
installer | ||
packages | ||
rtl | ||
tests | ||
utils | ||
.gitattributes | ||
.gitignore | ||
fpmake_add1.inc | ||
fpmake_proc1.inc | ||
fpmake.pp | ||
Makefile | ||
Makefile.fpc |