mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 14:12:32 +01:00
bd19a16be9
in code and not in constants. In the case of primitive types constant nodes are used while complex types like arrays, records and objects use a local variable which is initialized to zero once at the entry of the method (the variable is reused if Default() is used for the same type multiple times in the same method). For this a new compilerproc was added which uses FillChar to initialize the given memory area to zero. This fixes Mantis #9420. + psystem.pas: Added Default symbol to system unit + htypechk.pas: Added function "is_valid_for_default" which checks recursively whether the given type can be used with Default at all. Forbidden types are files, helpers, ObjC and C++ types. This check is used for records, arrays and objects only if the mode is a non-Delphi one, as Delphi ignores these types on lower levels. + msg/errore.msg: Added error message for unsupported types for Default() + symconst.pas: Added a new enum value vo_is_default_var which is used for the local variables utilized by Default() so their initalization and finalization can be avoided. + pexpr.pas: Add handling of Default() intrinsic to "statement_syssym" + ninl.pas: Extended tinlinenode by a method which returns the correct node for a Default() and used that method in handle_typecheck. * ncgutil.pas: Check for new flag "vo_is_default_var" when initializing and finalizing local variables. * ppu.pas: increase PPU version + psub.pas: * Added a new routine which zeros defaultvars of a symtable. * Use this routine inside "initializevars". * Also use this routine to initialize the staticsymtable of the unit/program. * Adjusted ppudump, because of the new enum value. + Added implementation of fpc_zeromem to system unit. + Added tests for Default() git-svn-id: trunk@20629 -
130 lines
3.6 KiB
PHP
130 lines
3.6 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library and compiler.
|
|
Copyright (c) 1998-2002 by the Free Pascal development team
|
|
|
|
Internal Function/Constant Evaluator numbers
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
const
|
|
{ Internal functions }
|
|
in_lo_word = 1;
|
|
in_hi_word = 2;
|
|
in_lo_long = 3;
|
|
in_hi_long = 4;
|
|
in_ord_x = 5;
|
|
in_length_x = 6;
|
|
in_chr_byte = 7;
|
|
in_write_x = 14;
|
|
in_writeln_x = 15;
|
|
in_read_x = 16;
|
|
in_readln_x = 17;
|
|
in_concat_x = 18;
|
|
in_assigned_x = 19;
|
|
in_str_x_string = 20;
|
|
in_ofs_x = 21;
|
|
in_sizeof_x = 22;
|
|
in_typeof_x = 23;
|
|
in_val_x = 24;
|
|
in_reset_x = 25;
|
|
in_rewrite_x = 26;
|
|
in_low_x = 27;
|
|
in_high_x = 28;
|
|
in_seg_x = 29;
|
|
in_pred_x = 30;
|
|
in_succ_x = 31;
|
|
in_reset_typedfile = 32;
|
|
in_rewrite_typedfile = 33;
|
|
in_settextbuf_file_x = 34;
|
|
in_inc_x = 35;
|
|
in_dec_x = 36;
|
|
in_include_x_y = 37;
|
|
in_exclude_x_y = 38;
|
|
in_break = 39;
|
|
in_continue = 40;
|
|
in_assert_x_y = 41;
|
|
in_addr_x = 42;
|
|
in_typeinfo_x = 43;
|
|
in_setlength_x = 44;
|
|
in_finalize_x = 45;
|
|
in_new_x = 46;
|
|
in_dispose_x = 47;
|
|
in_exit = 48;
|
|
in_copy_x = 49;
|
|
in_initialize_x = 50;
|
|
in_leave = 51; {macpas}
|
|
in_cycle = 52; {macpas}
|
|
in_slice_x = 53;
|
|
in_unaligned_x = 54;
|
|
in_get_frame = 56;
|
|
in_get_caller_addr = 57;
|
|
in_get_caller_frame = 58;
|
|
in_pack_x_y_z = 59;
|
|
in_unpack_x_y_z = 60;
|
|
in_bitsizeof_x = 61;
|
|
in_writestr_x = 62;
|
|
in_readstr_x = 63;
|
|
in_abs_long = 64;
|
|
in_ror_x = 65;
|
|
in_ror_x_y = 66;
|
|
in_rol_x = 67;
|
|
in_rol_x_y = 68;
|
|
in_objc_selector_x = 69;
|
|
in_objc_protocol_x = 70;
|
|
in_objc_encode_x = 71;
|
|
in_sar_x_y = 72;
|
|
in_sar_x = 73;
|
|
in_bsf_x = 74;
|
|
in_bsr_x = 75;
|
|
in_default_x = 76;
|
|
|
|
{ Internal constant functions }
|
|
in_const_sqr = 100;
|
|
in_const_abs = 101;
|
|
in_const_odd = 102;
|
|
in_const_ptr = 103;
|
|
in_const_swap_word = 104;
|
|
in_const_swap_long = 105;
|
|
in_lo_qword = 106;
|
|
in_hi_qword = 107;
|
|
in_const_swap_qword = 108;
|
|
in_prefetch_var = 109;
|
|
|
|
{ FPU functions }
|
|
in_trunc_real = 120;
|
|
in_round_real = 121;
|
|
in_frac_real = 122;
|
|
in_int_real = 123;
|
|
in_exp_real = 124;
|
|
in_cos_real = 125;
|
|
in_pi_real = 126;
|
|
in_abs_real = 127;
|
|
in_sqr_real = 128;
|
|
in_sqrt_real = 129;
|
|
in_arctan_real = 130;
|
|
in_ln_real = 131;
|
|
in_sin_real = 132;
|
|
|
|
{ MMX functions }
|
|
{ these contants are used by the mmx unit }
|
|
|
|
{ MMX }
|
|
in_mmx_pcmpeqb = 200;
|
|
in_mmx_pcmpeqw = 201;
|
|
in_mmx_pcmpeqd = 202;
|
|
in_mmx_pcmpgtb = 203;
|
|
in_mmx_pcmpgtw = 204;
|
|
in_mmx_pcmpgtd = 205;
|
|
|
|
{ 3DNow }
|
|
|
|
{ SSE }
|
|
|