From f6cf943c86a100b233953e6de8b101bd230c2c50 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 31 Dec 2018 09:56:43 +0000 Subject: [PATCH] codetools: comments git-svn-id: trunk@59944 - --- components/codetools/expreval.pas | 54 +++++++++++++++---------------- 1 file changed, 27 insertions(+), 27 deletions(-) diff --git a/components/codetools/expreval.pas b/components/codetools/expreval.pas index b010d183e9..4a914567ad 100644 --- a/components/codetools/expreval.pas +++ b/components/codetools/expreval.pas @@ -45,33 +45,33 @@ const // compiler switches const CompilerSwitchesNames: array['A'..'Z'] of shortstring=( - 'ALIGN' // A - ,'BOOLEVAL' // B - ,'ASSERTIONS' // C - ,'DEBUGINFO' // D - ,'EXTENSION' // E - ,'' // F - ,'IMPORTEDDATA' // G - ,'LONGSTRINGS' // H - ,'IOCHECKS' // I - ,'WRITEABLECONST' // J - ,'' // K - ,'LOCALSYMBOLS' // L - ,'TYPEINFO' // M - ,'' // N - ,'OPTIMIZATION' // O - ,'OPENSTRINGS' // P - ,'OVERFLOWCHECKS' // Q - ,'RANGECHECKS' // R - ,'' // S - ,'TYPEADDRESS' // T - ,'SAFEDIVIDE' // U - ,'VARSTRINGCHECKS'// V - ,'STACKFRAMES' // W - ,'EXTENDEDSYNTAX' // X - ,'REFERENCEINFO' // Y - ,'' // Z - ); + 'ALIGN' // A align fields + ,'BOOLEVAL' // B complete boolean evaluation + ,'ASSERTIONS' // C generate code for assertions + ,'DEBUGINFO' // D generate debuginfo (debug lines), OR: $description 'text' + ,'EXTENSION' // E output file extension + ,'' // F + ,'IMPORTEDDATA' // G + ,'LONGSTRINGS' // H String=AnsiString + ,'IOCHECKS' // I generate EInOutError + ,'WRITEABLECONST' // J writable typed const + ,'' // K + ,'LOCALSYMBOLS' // L generate local symbol information (debug, requires $D+) + ,'TYPEINFO' // M allow published members OR $M minstacksize,maxstacksize + ,'' // N + ,'OPTIMIZATION' // O enable safe optimizations (-O1) + ,'OPENSTRINGS' // P deprecated Delphi directive + ,'OVERFLOWCHECKS' // Q or $OV + ,'RANGECHECKS' // R + ,'' // S + ,'TYPEADDRESS' // T enabled: @variable gives typed pointer, otherwise untyped pointer + ,'SAFEDIVIDE' // U + ,'VARSTRINGCHECKS'// V strict shortstring checking, e.g. cannot pass shortstring[3] to shortstring + ,'STACKFRAMES' // W always generate stackframes (debugging) + ,'EXTENDEDSYNTAX' // X deprecated Delphi directive + ,'REFERENCEINFO' // Y store for each identifier the declaration location + ,'' // Z + ); type TOnValuesChanged = procedure of object;