Received: (at 48628) by debbugs.gnu.org; 6 Jun 2021 11:01:47 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Sun Jun 06 07:01:47 2021 Received: from localhost ([127.0.0.1]:50784 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1lpqXL-0005mE-BN for submit <at> debbugs.gnu.org; Sun, 06 Jun 2021 07:01:47 -0400 Received: from eggs.gnu.org ([209.51.188.92]:54326) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <eliz@HIDDEN>) id 1lpqXH-0005f8-8w for 48628 <at> debbugs.gnu.org; Sun, 06 Jun 2021 07:01:45 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:48270) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from <eliz@HIDDEN>) id 1lpqXB-0000Gv-QW; Sun, 06 Jun 2021 07:01:37 -0400 Received: from 84.94.185.95.cable.012.net.il ([84.94.185.95]:3025 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from <eliz@HIDDEN>) id 1lpqXB-00059Q-DN; Sun, 06 Jun 2021 07:01:37 -0400 Date: Sun, 06 Jun 2021 14:01:34 +0300 Message-Id: <83eedfi7e9.fsf@HIDDEN> From: Eli Zaretskii <eliz@HIDDEN> To: "Bob Floyd" <bobfloyd@HIDDEN> In-Reply-To: <004501d750b6$42458040$c6d080c0$@net> (bobfloyd@HIDDEN) Subject: Re: bug#48628: tags-search fails to find all occurences and finds one that it shouldn't References: <004501d750b6$42458040$c6d080c0$@net> X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 48628 Cc: 48628 <at> debbugs.gnu.org X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -3.3 (---) > From: "Bob Floyd" <bobfloyd@HIDDEN> > Date: Mon, 24 May 2021 09:02:54 -0700 > > 11. M-, (fileloop-continue) until reaching "All files processed" > > The matches are on lines: > > 7, 25, 85, 102, 115, 121 > > NOTE 115 is wrong, it is this line that does not contain "_cu" With today's master branch, I'm unable to reproduce the problem: I don't get the false match on line 115. Are you still able to reproduce with the latest master branch?
bug-gnu-emacs@HIDDEN:bug#48628; Package emacs.
Full text available.Received: (at 48628) by debbugs.gnu.org; 24 May 2021 16:48:40 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Mon May 24 12:48:39 2021 Received: from localhost ([127.0.0.1]:43796 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1llDkt-00008g-MI for submit <at> debbugs.gnu.org; Mon, 24 May 2021 12:48:39 -0400 Received: from resqmta-po-08v.sys.comcast.net ([96.114.154.167]:37656) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <bobfloyd@HIDDEN>) id 1llDkp-00008R-PE for 48628 <at> debbugs.gnu.org; Mon, 24 May 2021 12:48:38 -0400 Received: from resomta-po-07v.sys.comcast.net ([96.114.154.231]) by resqmta-po-08v.sys.comcast.net with ESMTP id lCfnloT79ArcZlDkjlyMNI; Mon, 24 May 2021 16:48:29 +0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=comcast.net; s=20190202a; t=1621874909; bh=SSX2dPvtrfWv2d6shmoZni2kIW30mIPyLgPr4Cr0rg4=; h=Received:Received:From:To:Subject:Date:Message-ID:MIME-Version: Content-Type; b=aQNGsd4a3wcpsJEcGrQHc/vOBvsYNyNafbn6wDh2ap1rq0ECdW7gUvNrjFtCDCPp4 IxfCg2Jsgo4Ahf29lF0VOaZt2HWSwenryIn8b53hQSNRP0VG9+aL5nki4W5c9aYrMZ P/AB/oxkI2uGWzjyyDPDTiFhZ2EQNRcbXjCcYMbWjGLJeh7aMjNm3A5lMvyhKTmfSZ Qg4Yw3tOMLsvA190Qk3c2RNjxmNk2YMn7F7JDJxbzsVp2o7scpk6/nKiuflPKKdTUP tea2EtT9pXNlLLQ7r2qtRt0QczZ3xhFnUMJWpUPCX5KB02PKKY+nHjvyyVsrUHUOLb uxtRNGBh02gLQ== Received: from Cache ([IPv6:2601:647:6100:3b1c::87]) by resomta-po-07v.sys.comcast.net with ESMTPA id lDkhlP9Qtx2y5lDkilBHNc; Mon, 24 May 2021 16:48:28 +0000 X-Xfinity-VMeta: sc=-100.00;st=legit From: "Bob Floyd" <bobfloyd@HIDDEN> To: "'Eli Zaretskii'" <eliz@HIDDEN> References: <004501d750b6$42458040$c6d080c0$@net> <83y2c4ccrb.fsf@HIDDEN> In-Reply-To: <83y2c4ccrb.fsf@HIDDEN> Subject: RE: bug#48628: tags-search fails to find all occurences and finds one that it shouldn't Date: Mon, 24 May 2021 09:48:27 -0700 Message-ID: <000001d750bc$9f5301d0$ddf90570$@net> MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Mailer: Microsoft Office Outlook 12.0 Thread-Index: AddQupLvtlp9cAeHQBuH7cTPI5xdHQAAPIDA Content-Language: en-us X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 48628 Cc: 48628 <at> debbugs.gnu.org X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -1.0 (-) No, not when using tags-search, tags-query-replace. They use the tags file only to identify what files to search in. However, you are correct when using things like M-. (xref-find-definitions) when the definition has been moved too far from its original location. The failure of tags-search (and the same sort of failure happens with tags-query-replace) is new to the 28 versions as best I can determine. -----Original Message----- From: Eli Zaretskii [mailto:eliz@HIDDEN] Sent: Monday, May 24, 2021 9:34 AM To: Bob Floyd Cc: 48628 <at> debbugs.gnu.org Subject: Re: bug#48628: tags-search fails to find all occurences and finds one that it shouldn't > From: "Bob Floyd" <bobfloyd@HIDDEN> > Date: Mon, 24 May 2021 09:02:54 -0700 > > 1. C-x 2 (split-window-below) > > 2. C-x C-f (find-file) "f1.cpp" in the upper window > > 3. C-x C-f (find-file) "f2.cpp" in the lower window > > 4. left-mouse click in the upper window top left (location of the search start) > > 5. <f3> (tags-search) the string "_cu" using the attached TAGS file > > Tags search (regexp): _cu > > 6. M-, (fileloop-continue) until reaching "All files processed" > > The matches are on lines: > > f1.cpp: 7, 25, 65, 104, 121 > > f2.cpp: 7, 25, 65, 104, 121 > > (both f1 and f2 have identical contents). > > 7. In the upper window, switch to buffer f1.cpp and go to line 53: > > 8. mark line 53 and move down to line 72, then delete the selection: When you change the file, and you want exact results, you need to re-run etags, right?
bug-gnu-emacs@HIDDEN:bug#48628; Package emacs.
Full text available.Received: (at 48628) by debbugs.gnu.org; 24 May 2021 16:33:54 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Mon May 24 12:33:54 2021 Received: from localhost ([127.0.0.1]:43788 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1llDWc-0008EF-66 for submit <at> debbugs.gnu.org; Mon, 24 May 2021 12:33:54 -0400 Received: from eggs.gnu.org ([209.51.188.92]:49646) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <eliz@HIDDEN>) id 1llDWa-0008E2-3T for 48628 <at> debbugs.gnu.org; Mon, 24 May 2021 12:33:52 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:43086) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from <eliz@HIDDEN>) id 1llDWU-0001nw-OW; Mon, 24 May 2021 12:33:46 -0400 Received: from 84.94.185.95.cable.012.net.il ([84.94.185.95]:2576 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from <eliz@HIDDEN>) id 1llDWU-0003B8-2F; Mon, 24 May 2021 12:33:46 -0400 Date: Mon, 24 May 2021 19:33:44 +0300 Message-Id: <83y2c4ccrb.fsf@HIDDEN> From: Eli Zaretskii <eliz@HIDDEN> To: "Bob Floyd" <bobfloyd@HIDDEN> In-Reply-To: <004501d750b6$42458040$c6d080c0$@net> (bobfloyd@HIDDEN) Subject: Re: bug#48628: tags-search fails to find all occurences and finds one that it shouldn't References: <004501d750b6$42458040$c6d080c0$@net> X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 48628 Cc: 48628 <at> debbugs.gnu.org X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -3.3 (---) > From: "Bob Floyd" <bobfloyd@HIDDEN> > Date: Mon, 24 May 2021 09:02:54 -0700 > > 1. C-x 2 (split-window-below) > > 2. C-x C-f (find-file) "f1.cpp" in the upper window > > 3. C-x C-f (find-file) "f2.cpp" in the lower window > > 4. left-mouse click in the upper window top left (location of the search start) > > 5. <f3> (tags-search) the string "_cu" using the attached TAGS file > > Tags search (regexp): _cu > > 6. M-, (fileloop-continue) until reaching "All files processed" > > The matches are on lines: > > f1.cpp: 7, 25, 65, 104, 121 > > f2.cpp: 7, 25, 65, 104, 121 > > (both f1 and f2 have identical contents). > > 7. In the upper window, switch to buffer f1.cpp and go to line 53: > > 8. mark line 53 and move down to line 72, then delete the selection: When you change the file, and you want exact results, you need to re-run etags, right?
bug-gnu-emacs@HIDDEN:bug#48628; Package emacs.
Full text available.
Received: (at submit) by debbugs.gnu.org; 24 May 2021 16:03:07 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Mon May 24 12:03:07 2021
Received: from localhost ([127.0.0.1]:43750 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1llD2o-0007Mw-8U
for submit <at> debbugs.gnu.org; Mon, 24 May 2021 12:03:07 -0400
Received: from lists.gnu.org ([209.51.188.17]:46538)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <bobfloyd@HIDDEN>) id 1llD2l-0007Mk-PW
for submit <at> debbugs.gnu.org; Mon, 24 May 2021 12:03:04 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:36174)
by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.90_1) (envelope-from <bobfloyd@HIDDEN>)
id 1llD2l-0006BJ-HZ
for bug-gnu-emacs@HIDDEN; Mon, 24 May 2021 12:03:03 -0400
Received: from resqmta-po-09v.sys.comcast.net
([2001:558:fe16:19:96:114:154:168]:43368)
by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.90_1) (envelope-from <bobfloyd@HIDDEN>)
id 1llD2h-0006n0-Bb
for bug-gnu-emacs@HIDDEN; Mon, 24 May 2021 12:03:02 -0400
Received: from resomta-po-06v.sys.comcast.net ([96.114.154.230])
by resqmta-po-09v.sys.comcast.net with ESMTP
id lCL7l4oY16cSdlD2dlY9lo; Mon, 24 May 2021 16:02:55 +0000
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=comcast.net;
s=20190202a; t=1621872175;
bh=jmkDIsNwOQ1tEdW+Uwug6ouAgUhlAmd/G2AAhEaFxEc=;
h=Received:Received:From:To:Subject:Date:Message-ID:MIME-Version:
Content-Type;
b=x2/35vHY6IP8AF5tLE2qn+rGYryYL14KJp6YC9Wh8XrIxWWdMPNcKYvK5VUsXVtSD
DMQJNOtBewWWL2viNHiAb8VPra14AnSWDUA9LhsqZgFtjaUPfcGCImaWwLyPJQEVsV
T6DyIKELGz/GQghRYyfGWnND3wJoFT5wEriJc9lnpdzQEGS0r9RlmRdLl6Z0p3x9E+
hI/3Ro9/Na+w9RtPfTOzMJ67wrJEzy/AWDgLMEm3Y+Z25JJF026rOUH8DtY6133nmQ
30w53TUb4KmQNE3fWg3u1SysyBYhZl0mo72bHq0Xdbs04tKfkILUR2fxnbGsXrsVhP
9dxnxSf6MVK1Q==
Received: from Cache ([IPv6:2601:647:6100:3b1c::87])
by resomta-po-06v.sys.comcast.net with ESMTPA
id lD2clsWtVsKGUlD2dltk0j; Mon, 24 May 2021 16:02:55 +0000
X-Xfinity-VMeta: sc=0.00;st=legit
From: "Bob Floyd" <bobfloyd@HIDDEN>
To: <bug-gnu-emacs@HIDDEN>
Subject: tags-search fails to find all occurences and finds one that it
shouldn't
Date: Mon, 24 May 2021 09:02:54 -0700
Message-ID: <004501d750b6$42458040$c6d080c0$@net>
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_0046_01D7507B.95E6A840"
X-Mailer: Microsoft Office Outlook 12.0
Thread-Index: AddQtkHDLqdWlQwuQpqTF3JblRA0pQ==
Content-Language: en-us
Received-SPF: pass client-ip=2001:558:fe16:19:96:114:154:168;
envelope-from=bobfloyd@HIDDEN; helo=resqmta-po-09v.sys.comcast.net
X-Spam_score_int: -27
X-Spam_score: -2.8
X-Spam_bar: --
X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001,
HTML_MESSAGE=0.001, RCVD_IN_DNSWL_LOW=-0.7, SPF_HELO_NONE=0.001,
SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 0.3 (/)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.6 (--)
This is a multi-part message in MIME format.
------=_NextPart_000_0046_01D7507B.95E6A840
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0047_01D7507B.95E6A840"
------=_NextPart_001_0047_01D7507B.95E6A840
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit
Hi,
Attached are 3 files, 'f1.cpp', 'f2.cpp', and 'TAGS'.
I'm using the development 28.0.50 version on Windows.
Start emacs and:
1. C-x 2 (split-window-below)
2. C-x C-f (find-file) "f1.cpp" in the upper window
3. C-x C-f (find-file) "f2.cpp" in the lower window
4. left-mouse click in the upper window top left (location of the search
start)
5. <f3> (tags-search) the string "_cu" using the attached TAGS file
Tags search (regexp): _cu
6. M-, (fileloop-continue) until reaching "All files processed"
The matches are on lines:
f1.cpp: 7, 25, 65, 104, 121
f2.cpp: 7, 25, 65, 104, 121
(both f1 and f2 have identical contents).
7. In the upper window, switch to buffer f1.cpp and go to line 53:
8. mark line 53 and move down to line 72, then delete the selection:
You're deleting this:
case ECall::DPI::_pow_:
{
IT::IAcc _one ( R()->c1.CastTo( _ty ) );
IT::IAcc _zero( R()->c0.CastTo( _ty ) );
IT::IAcc _condBase
( _theFunction.Arg(0) .EqEq( IT::FlagsOfIKind(), _zero ) );
IT::IAcc _condExp
( _theFunction.Arg(1) .LT( IT::FlagsOfIKind(), _zero ) );
// Specialize to capture `0 ** 0` and return 1.
IT::IfHlpr _testSpcl
( _cu, _condBase .AndAnd (IT::FlagsOfIKind(), _condExp),
IT::List() );
_testSpcl.True() << _one.Return();
_body << _testSpcl;
break;
}
9. M-< (beginning-of-buffer) in the upper window ("f1.cpp")
10. <f3> (tags-search) the string "_cu"
Tags search (regexp): _cu
11. M-, (fileloop-continue) until reaching "All files processed"
The matches are on lines:
7, 25, 85, 102, 115, 121
NOTE 115 is wrong, it is this line that does not contain "_cu"
# ifdef C_FILE_GENERATOR
NOTE only 1 of the "_cu"s was deleted so instead of 10 occurrences there
should be 9 BUT it only found 6.
In GNU Emacs 28.0.50 (build 1, x86_64-w64-mingw32)
of 2021-01-15 built on CIRROCUMULUS
Repository revision: f45be48ddbde00610e1e08fca6590dcf24a4e1b5
Repository branch: master
Windowing system distributor 'Microsoft Corp.', version 10.0.19042
System Description: Microsoft Windows 10 Enterprise (v10.0.2009.19042.985)
Configured using:
'configure --without-dbus --without-compress-install -C 'CFLAGS=-O2
-static -g3' PKG_CONFIG_PATH=/mingw64/lib/pkgconfig'
Configured features:
ACL GIF GMP GNUTLS HARFBUZZ JPEG JSON LCMS2 LIBXML2 MODULES NOTIFY
W32NOTIFY PDUMPER PNG RSVG SOUND THREADS TIFF TOOLKIT_SCROLL_BARS XPM
ZLIB
Important settings:
value of $LANG: ENU
locale-coding-system: cp1252
Major mode: Fundamental
Minor modes in effect:
shell-dirtrack-mode: t
show-paren-mode: t
tooltip-mode: t
global-eldoc-mode: t
electric-indent-mode: t
mouse-wheel-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
transient-mark-mode: t
Load-path shadows:
None found.
Features:
(shadow sort mail-extr emacsbug message rmc puny dired dired-loaddefs
rfc822 mml mml-sec epa epg epg-config gnus-util rmail rmail-loaddefs
text-property-search mm-decode mm-bodies mm-encode mail-parse rfc2231
mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums
mm-util mail-prsvr mail-utils misearch multi-isearch two-column
help-mode thingatpt etags fileloop generator xref project time-date
pcmpl-unix web-mode advice derived edmacro kmacro shell pcomplete comint
ansi-color ring printing ps-print ps-print-loaddefs ps-def lpr paren
cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine
cc-vars cc-defs finder-inf tex-site info package easymenu browse-url url
url-proxy url-privacy url-expand url-methods url-history url-cookie
url-domsuf url-util mailcap url-handlers url-parse auth-source cl-seq
eieio eieio-core cl-macs eieio-loaddefs password-cache json subr-x map
url-vars seq byte-opt gv bytecomp byte-compile cconv cl-loaddefs cl-lib
iso-transl tooltip eldoc electric uniquify ediff-hook vc-hooks
lisp-float-type mwheel dos-w32 ls-lisp disp-table term/w32-win w32-win
w32-vars term/common-win tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode elisp-mode lisp-mode
prog-mode register page tab-bar menu-bar rfn-eshadow isearch timer
select scroll-bar mouse jit-lock font-lock syntax facemenu font-core
term/tty-colors frame minibuffer cl-generic cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms
cp51932 hebrew greek romanian slovak czech european ethiopic indian
cyrillic chinese composite charscript charprop case-table epa-hook
jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice button
loaddefs faces cus-face macroexp files window text-properties overlay
sha1 md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote threads w32notify w32 lcms2 multi-tty
make-network-process emacs)
Memory information:
((conses 16 192149 7744)
(symbols 48 14547 1)
(strings 32 50102 1978)
(string-bytes 1 1608447)
(vectors 16 21762)
(vector-slots 8 294115 19624)
(floats 8 263 356)
(intervals 56 3062 0)
(buffers 984 18))
------=_NextPart_001_0047_01D7507B.95E6A840
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" =
xmlns=3D"http://www.w3.org/TR/REC-html40"><head><meta =
http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii"><meta name=3DGenerator content=3D"Microsoft Word 12 =
(filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext=3D"edit" spidmax=3D"1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext=3D"edit">
<o:idmap v:ext=3D"edit" data=3D"1" />
</o:shapelayout></xml><![endif]--></head><body lang=3DEN-US link=3Dblue =
vlink=3Dpurple><div class=3DWordSection1><p =
class=3DMsoNormal>Hi,<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>Attached are =
3 files, ‘f1.cpp’, ‘f2.cpp’, and =
‘TAGS’.<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>I’m =
using the development 28.0.50 version on Windows.<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>Start emacs =
and:<o:p></o:p></p><p class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal>1. C-x 2 (split-window-below)<o:p></o:p></p><p =
class=3DMsoNormal>2. C-x C-f (find-file) "f1.cpp" in the upper =
window<o:p></o:p></p><p class=3DMsoNormal>3. C-x C-f (find-file) =
"f2.cpp" in the lower window<o:p></o:p></p><p =
class=3DMsoNormal>4. left-mouse click in the upper window top left =
(location of the search start)<o:p></o:p></p><p class=3DMsoNormal>5. =
<f3> (tags-search) the string "_cu" using the attached =
TAGS file<o:p></o:p></p><p class=3DMsoNormal> Tags search =
(regexp): _cu<o:p></o:p></p><p class=3DMsoNormal>6. M-, =
(fileloop-continue) until reaching "All files =
processed"<o:p></o:p></p><p class=3DMsoNormal> The =
matches are on lines:<o:p></o:p></p><p class=3DMsoNormal> =
f1.cpp: 7, 25, 65, 104, 121<o:p></o:p></p><p =
class=3DMsoNormal> f2.cpp: 7, 25, 65, 104, =
121<o:p></o:p></p><p class=3DMsoNormal> (both f1 and f2 have =
identical contents).<o:p></o:p></p><p class=3DMsoNormal>7. In the upper =
window, switch to buffer f1.cpp and go to line 53:<o:p></o:p></p><p =
class=3DMsoNormal>8. mark line 53 and move down to line 72, then delete =
the selection:<o:p></o:p></p><p class=3DMsoNormal> You're =
deleting this:<o:p></o:p></p><p class=3DMsoNormal> case =
ECall::DPI::_pow_:<o:p></o:p></p><p =
class=3DMsoNormal> {<o:p></o:p></p><p =
class=3DMsoNormal> &=
nbsp; =
IT::IAcc  =
; _one ( R()->c1.CastTo( _ty ) =
);<o:p></o:p></p><p =
class=3DMsoNormal> &=
nbsp; =
IT::IAcc  =
; _zero( R()->c0.CastTo( _ty ) =
);<o:p></o:p></p><p =
class=3DMsoNormal> &=
nbsp; =
IT::IAcc  =
; _condBase<o:p></o:p></p><p =
class=3DMsoNormal> &=
nbsp; ( _theFunction.Arg(0) .EqEq( =
IT::FlagsOfIKind(), _zero ) );<o:p></o:p></p><p =
class=3DMsoNormal> &=
nbsp; =
IT::IAcc  =
; _condExp<o:p></o:p></p><p =
class=3DMsoNormal> &=
nbsp; ( _theFunction.Arg(1) .LT( =
IT::FlagsOfIKind(), _zero ) );<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal> &=
nbsp; // Specialize to capture `0 ** 0` =
and return 1.<o:p></o:p></p><p class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal> &=
nbsp; =
IT::IfHlpr &nb=
sp; _testSpcl<o:p></o:p></p><p =
class=3DMsoNormal> &=
nbsp; ( _cu, _condBase .AndAnd =
(IT::FlagsOfIKind(), _condExp), IT::List() );<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal> &=
nbsp; _testSpcl.True() << =
_one.Return();<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal> &=
nbsp; _body << =
_testSpcl;<o:p></o:p></p><p class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal> &=
nbsp; break;<o:p></o:p></p><p =
class=3DMsoNormal> }<o:p></o:p></p><p =
class=3DMsoNormal>9. M-< (beginning-of-buffer) in the upper window =
(“f1.cpp”)<o:p></o:p></p><p class=3DMsoNormal>10. <f3> =
(tags-search) the string "_cu" <o:p></o:p></p><p =
class=3DMsoNormal> Tags search (regexp): =
_cu<o:p></o:p></p><p class=3DMsoNormal>11. M-, (fileloop-continue) until =
reaching "All files processed"<o:p></o:p></p><p =
class=3DMsoNormal> The matches are on =
lines:<o:p></o:p></p><p class=3DMsoNormal> 7, 25, 85, 102, =
115, 121<o:p></o:p></p><p class=3DMsoNormal> NOTE 115 is =
wrong, it is this line that does not contain =
"_cu"<o:p></o:p></p><p =
class=3DMsoNormal># ifdef =
C_FILE_GENERATOR<o:p></o:p></p><p class=3DMsoNormal> NOTE =
only 1 of the "_cu"s was deleted so instead of 10 occurrences =
there<o:p></o:p></p><p class=3DMsoNormal> should be 9 BUT it =
only found 6.<o:p></o:p></p><p class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>In GNU Emacs =
28.0.50 (build 1, x86_64-w64-mingw32)<o:p></o:p></p><p =
class=3DMsoNormal> of 2021-01-15 built on CIRROCUMULUS<o:p></o:p></p><p =
class=3DMsoNormal>Repository revision: =
f45be48ddbde00610e1e08fca6590dcf24a4e1b5<o:p></o:p></p><p =
class=3DMsoNormal>Repository branch: master<o:p></o:p></p><p =
class=3DMsoNormal>Windowing system distributor 'Microsoft Corp.', =
version 10.0.19042<o:p></o:p></p><p class=3DMsoNormal>System =
Description: Microsoft Windows 10 Enterprise =
(v10.0.2009.19042.985)<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>Configured =
using:<o:p></o:p></p><p class=3DMsoNormal> 'configure --without-dbus =
--without-compress-install -C 'CFLAGS=3D-O2<o:p></o:p></p><p =
class=3DMsoNormal> -static -g3' =
PKG_CONFIG_PATH=3D/mingw64/lib/pkgconfig'<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>Configured =
features:<o:p></o:p></p><p class=3DMsoNormal>ACL GIF GMP GNUTLS HARFBUZZ =
JPEG JSON LCMS2 LIBXML2 MODULES NOTIFY<o:p></o:p></p><p =
class=3DMsoNormal>W32NOTIFY PDUMPER PNG RSVG SOUND THREADS TIFF =
TOOLKIT_SCROLL_BARS XPM<o:p></o:p></p><p =
class=3DMsoNormal>ZLIB<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>Important =
settings:<o:p></o:p></p><p class=3DMsoNormal> value of $LANG: =
ENU<o:p></o:p></p><p class=3DMsoNormal> locale-coding-system: =
cp1252<o:p></o:p></p><p class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal>Major mode: Fundamental<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>Minor modes =
in effect:<o:p></o:p></p><p class=3DMsoNormal> =
shell-dirtrack-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
show-paren-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
tooltip-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
global-eldoc-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
electric-indent-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
mouse-wheel-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
menu-bar-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
file-name-shadow-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
global-font-lock-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
font-lock-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
blink-cursor-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
auto-composition-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
auto-encryption-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
auto-compression-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
line-number-mode: t<o:p></o:p></p><p class=3DMsoNormal> =
transient-mark-mode: t<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>Load-path =
shadows:<o:p></o:p></p><p class=3DMsoNormal>None found.<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p =
class=3DMsoNormal>Features:<o:p></o:p></p><p class=3DMsoNormal>(shadow =
sort mail-extr emacsbug message rmc puny dired =
dired-loaddefs<o:p></o:p></p><p class=3DMsoNormal>rfc822 mml mml-sec epa =
epg epg-config gnus-util rmail rmail-loaddefs<o:p></o:p></p><p =
class=3DMsoNormal>text-property-search mm-decode mm-bodies mm-encode =
mail-parse rfc2231<o:p></o:p></p><p class=3DMsoNormal>mailabbrev =
gmm-utils mailheader sendmail rfc2047 rfc2045 =
ietf-drums<o:p></o:p></p><p class=3DMsoNormal>mm-util mail-prsvr =
mail-utils misearch multi-isearch two-column<o:p></o:p></p><p =
class=3DMsoNormal>help-mode thingatpt etags fileloop generator xref =
project time-date<o:p></o:p></p><p class=3DMsoNormal>pcmpl-unix web-mode =
advice derived edmacro kmacro shell pcomplete comint<o:p></o:p></p><p =
class=3DMsoNormal>ansi-color ring printing ps-print ps-print-loaddefs =
ps-def lpr paren<o:p></o:p></p><p class=3DMsoNormal>cc-mode cc-fonts =
cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine<o:p></o:p></p><p =
class=3DMsoNormal>cc-vars cc-defs finder-inf tex-site info package =
easymenu browse-url url<o:p></o:p></p><p class=3DMsoNormal>url-proxy =
url-privacy url-expand url-methods url-history =
url-cookie<o:p></o:p></p><p class=3DMsoNormal>url-domsuf url-util =
mailcap url-handlers url-parse auth-source cl-seq<o:p></o:p></p><p =
class=3DMsoNormal>eieio eieio-core cl-macs eieio-loaddefs password-cache =
json subr-x map<o:p></o:p></p><p class=3DMsoNormal>url-vars seq byte-opt =
gv bytecomp byte-compile cconv cl-loaddefs cl-lib<o:p></o:p></p><p =
class=3DMsoNormal>iso-transl tooltip eldoc electric uniquify ediff-hook =
vc-hooks<o:p></o:p></p><p class=3DMsoNormal>lisp-float-type mwheel =
dos-w32 ls-lisp disp-table term/w32-win w32-win<o:p></o:p></p><p =
class=3DMsoNormal>w32-vars term/common-win tool-bar dnd fontset image =
regexp-opt fringe<o:p></o:p></p><p class=3DMsoNormal>tabulated-list =
replace newcomment text-mode elisp-mode lisp-mode<o:p></o:p></p><p =
class=3DMsoNormal>prog-mode register page tab-bar menu-bar rfn-eshadow =
isearch timer<o:p></o:p></p><p class=3DMsoNormal>select scroll-bar mouse =
jit-lock font-lock syntax facemenu font-core<o:p></o:p></p><p =
class=3DMsoNormal>term/tty-colors frame minibuffer cl-generic cham =
georgian utf-8-lang<o:p></o:p></p><p class=3DMsoNormal>misc-lang =
vietnamese tibetan thai tai-viet lao korean japanese =
eucjp-ms<o:p></o:p></p><p class=3DMsoNormal>cp51932 hebrew greek =
romanian slovak czech european ethiopic indian<o:p></o:p></p><p =
class=3DMsoNormal>cyrillic chinese composite charscript charprop =
case-table epa-hook<o:p></o:p></p><p class=3DMsoNormal>jka-cmpr-hook =
help simple abbrev obarray cl-preloaded nadvice button<o:p></o:p></p><p =
class=3DMsoNormal>loaddefs faces cus-face macroexp files window =
text-properties overlay<o:p></o:p></p><p class=3DMsoNormal>sha1 md5 =
base64 format env code-pages mule custom widget<o:p></o:p></p><p =
class=3DMsoNormal>hashtable-print-readable backquote threads w32notify =
w32 lcms2 multi-tty<o:p></o:p></p><p =
class=3DMsoNormal>make-network-process emacs)<o:p></o:p></p><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal>Memory =
information:<o:p></o:p></p><p class=3DMsoNormal>((conses 16 192149 =
7744)<o:p></o:p></p><p class=3DMsoNormal> (symbols 48 14547 =
1)<o:p></o:p></p><p class=3DMsoNormal> (strings 32 50102 =
1978)<o:p></o:p></p><p class=3DMsoNormal> (string-bytes 1 =
1608447)<o:p></o:p></p><p class=3DMsoNormal> (vectors 16 =
21762)<o:p></o:p></p><p class=3DMsoNormal> (vector-slots 8 294115 =
19624)<o:p></o:p></p><p class=3DMsoNormal> (floats 8 263 =
356)<o:p></o:p></p><p class=3DMsoNormal> (intervals 56 3062 =
0)<o:p></o:p></p><p class=3DMsoNormal> (buffers 984 =
18))<o:p></o:p></p></div></body></html>
------=_NextPart_001_0047_01D7507B.95E6A840--
------=_NextPart_000_0046_01D7507B.95E6A840
Content-Type: text/plain;
name="f1.cpp"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="f1.cpp"
namespace PT
{
ConstFP::Fcn
ConstFP::PrecisionsOfOneFcn::
CreateFcn( TyAcc const& _ty ) const
{
CompilationUnit& _cu ( G->CU() );
TpSgmtCntnr _pSC ( new SgmtCntnrSC );
IObj<DHscope> _iDolRootScope ( G->GetHierarchy().DolRootScope() );
ILexObj<LexScope> _iLexDolRootScope( _iDolRootScope->GetLexScope() =
);
typedef TypeList<EFormal>::Result TMods;
std::vector<ITracks> _myArgs( nArgs() );
VariableSymbol _arg( TMods(), _ty );
for ( int _i( 0 ); _i < nArgs(); ++_i )
{
std::stringstream _nmArg;
_nmArg << "_arg" << _i;
ITracks _iArg
( =
_iDolRootScope.TrackFactory<VariableSymbol>(_nmArg.str(),_arg,(*_pSC),_cu=
) );
_myArgs[ _i ] =3D _iArg;
}
std::stringstream _nmFcn;
_nmFcn << "!" << ECall::DPI(myDpiId).Id();
switch ( myDpiId )
{
case ECall::DPI::_pow_:
_nmFcn << "Wrapr";
default:
break;
}
_nmFcn << R()->GetNextDLLid();
IT::FcnDclHlpr _theFunction( (*_pSC), _ty, _nmFcn, =
IT::TFcn::_dllExport_ );
for ( int _i( 0 ); _i < nArgs(); ++_i )
_theFunction << IT::IAcc( Expr( _myArgs[ _i ], NuVloc() ) );
IT::List _body;
switch ( myDpiId )
{
case ECall::DPI::_pow_:
{
IT::IAcc _one ( R()->c1.CastTo( _ty ) );
IT::IAcc _zero( R()->c0.CastTo( _ty ) );
IT::IAcc _condBase
( _theFunction.Arg(0) .EqEq( IT::FlagsOfIKind(), _zero ) );
IT::IAcc _condExp
( _theFunction.Arg(1) .LT( IT::FlagsOfIKind(), _zero ) );
// Specialize to capture `0 ** 0` and return 1.
IT::IfHlpr _testSpcl
( _cu, _condBase .AndAnd (IT::FlagsOfIKind(), _condExp), IT::List() );
_testSpcl.True() << _one.Return();
_body << _testSpcl;
break;
}
default:
break;
}
IT::List _itActualList;
for ( int _i( 0 ); _i < nArgs(); ++_i )
_itActualList << IT::IAcc( Expr( _myArgs[ _i ], NuVloc() ) =
).FcnArg();
IT::IAcc _theLibmCall( _itActualList.Head()
.CallDpi( _ty, DpiProto(), myDpiId, IT::FlagsOfIKind() ) );
_body << _theLibmCall.Return();
_theFunction << _body.Head();
typedef SgmtCntnr::IBrndToSmblsWthLval IBrndToSmblsWthLval;
typedef SgmtCntnr::BtoSwLkey BtoSwLkey;
TpSignature _noSig ( new Signature );
TBranding* _branding ( new TBranding );
TIBranding _iBranding
( _branding->Insert( _iLexDolRootScope,Brands() ).first );
TpBrand _pBrand ( new Brand( _iBranding ) );
RefPtr<Brands>_oneBrand( new Brands( _noSig, _pBrand ) );
IBrands _iBrands =
(IPair<TBrands::TIterator>((*_oneBrand).begin(),true));
IBrndToSmblsWthLval _iBtoWsl( (*_pSC)->Get( BtoSwLkey( _iBrands ) ) =
);
OneGeste _theGeste
( R()->terminusStmt, _iLexDolRootScope, _iDolRootScope, DLLobject() =
);
IT::TpLlVmGenerator _pLlVm
( _cu.LlVmGeneratorFactory( true/*isCommonToAllCUs*/ ) );
_theGeste.SetClosure( _theFunction );
_pSC->AllocLvalToGeste( _iBrands, _theGeste );
_pLlVm->AtFunction( (*_pSC), _iBrands, _iBtoWsl, _theGeste );
switch ( myDpiId )
{
# ifdef C_FILE_GENERATOR
case ECall::DPI::_pow_:
_pSC->AddRef();
_pBrand->AddRef();
_oneBrand->AddRef();
_noSig->AddRef();=09
_cu.GetCfileGenerator()->AtFunction( *_pSC, _iBrands, _theGeste );
break;
# endif C_FILE_GENERATOR
default:
delete _branding;
break;
}
TyFloat const& _tyFloat( *(TyFloat const*)_ty );
Fcn _rslt;
if ( _tyFloat.GetnBits() <=3D TyFloat::_IEEEdouble_
|| ConstFP::LongDoubleIs128Bits() )
{
try {
_rslt =3D Fcn( _ty, _pLlVm->JIT(), _nmFcn.str() );
} catch ( Message& _msg ) {
_rslt =3D LowerPrecision( _tyFloat, _msg );
}
}
return _rslt;
}
}
------=_NextPart_000_0046_01D7507B.95E6A840
Content-Type: text/plain;
name="f2.cpp"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="f2.cpp"
namespace PT
{
ConstFP::Fcn
ConstFP::PrecisionsOfOneFcn::
CreateFcn( TyAcc const& _ty ) const
{
CompilationUnit& _cu ( G->CU() );
TpSgmtCntnr _pSC ( new SgmtCntnrSC );
IObj<DHscope> _iDolRootScope ( G->GetHierarchy().DolRootScope() );
ILexObj<LexScope> _iLexDolRootScope( _iDolRootScope->GetLexScope() =
);
typedef TypeList<EFormal>::Result TMods;
std::vector<ITracks> _myArgs( nArgs() );
VariableSymbol _arg( TMods(), _ty );
for ( int _i( 0 ); _i < nArgs(); ++_i )
{
std::stringstream _nmArg;
_nmArg << "_arg" << _i;
ITracks _iArg
( =
_iDolRootScope.TrackFactory<VariableSymbol>(_nmArg.str(),_arg,(*_pSC),_cu=
) );
_myArgs[ _i ] =3D _iArg;
}
std::stringstream _nmFcn;
_nmFcn << "!" << ECall::DPI(myDpiId).Id();
switch ( myDpiId )
{
case ECall::DPI::_pow_:
_nmFcn << "Wrapr";
default:
break;
}
_nmFcn << R()->GetNextDLLid();
IT::FcnDclHlpr _theFunction( (*_pSC), _ty, _nmFcn, =
IT::TFcn::_dllExport_ );
for ( int _i( 0 ); _i < nArgs(); ++_i )
_theFunction << IT::IAcc( Expr( _myArgs[ _i ], NuVloc() ) );
IT::List _body;
switch ( myDpiId )
{
case ECall::DPI::_pow_:
{
IT::IAcc _one ( R()->c1.CastTo( _ty ) );
IT::IAcc _zero( R()->c0.CastTo( _ty ) );
IT::IAcc _condBase
( _theFunction.Arg(0) .EqEq( IT::FlagsOfIKind(), _zero ) );
IT::IAcc _condExp
( _theFunction.Arg(1) .LT( IT::FlagsOfIKind(), _zero ) );
// Specialize to capture `0 ** 0` and return 1.
IT::IfHlpr _testSpcl
( _cu, _condBase .AndAnd (IT::FlagsOfIKind(), _condExp), IT::List() );
_testSpcl.True() << _one.Return();
_body << _testSpcl;
break;
}
default:
break;
}
IT::List _itActualList;
for ( int _i( 0 ); _i < nArgs(); ++_i )
_itActualList << IT::IAcc( Expr( _myArgs[ _i ], NuVloc() ) =
).FcnArg();
IT::IAcc _theLibmCall( _itActualList.Head()
.CallDpi( _ty, DpiProto(), myDpiId, IT::FlagsOfIKind() ) );
_body << _theLibmCall.Return();
_theFunction << _body.Head();
typedef SgmtCntnr::IBrndToSmblsWthLval IBrndToSmblsWthLval;
typedef SgmtCntnr::BtoSwLkey BtoSwLkey;
TpSignature _noSig ( new Signature );
TBranding* _branding ( new TBranding );
TIBranding _iBranding
( _branding->Insert( _iLexDolRootScope,Brands() ).first );
TpBrand _pBrand ( new Brand( _iBranding ) );
RefPtr<Brands>_oneBrand( new Brands( _noSig, _pBrand ) );
IBrands _iBrands =
(IPair<TBrands::TIterator>((*_oneBrand).begin(),true));
IBrndToSmblsWthLval _iBtoWsl( (*_pSC)->Get( BtoSwLkey( _iBrands ) ) =
);
OneGeste _theGeste
( R()->terminusStmt, _iLexDolRootScope, _iDolRootScope, DLLobject() =
);
IT::TpLlVmGenerator _pLlVm
( _cu.LlVmGeneratorFactory( true/*isCommonToAllCUs*/ ) );
_theGeste.SetClosure( _theFunction );
_pSC->AllocLvalToGeste( _iBrands, _theGeste );
_pLlVm->AtFunction( (*_pSC), _iBrands, _iBtoWsl, _theGeste );
switch ( myDpiId )
{
# ifdef C_FILE_GENERATOR
case ECall::DPI::_pow_:
_pSC->AddRef();
_pBrand->AddRef();
_oneBrand->AddRef();
_noSig->AddRef();=09
_cu.GetCfileGenerator()->AtFunction( *_pSC, _iBrands, _theGeste );
break;
# endif C_FILE_GENERATOR
default:
delete _branding;
break;
}
TyFloat const& _tyFloat( *(TyFloat const*)_ty );
Fcn _rslt;
if ( _tyFloat.GetnBits() <=3D TyFloat::_IEEEdouble_
|| ConstFP::LongDoubleIs128Bits() )
{
try {
_rslt =3D Fcn( _ty, _pLlVm->JIT(), _nmFcn.str() );
} catch ( Message& _msg ) {
_rslt =3D LowerPrecision( _tyFloat, _msg );
}
}
return _rslt;
}
}
------=_NextPart_000_0046_01D7507B.95E6A840
Content-Type: application/octet-stream;
name="TAGS"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="TAGS"
=0C=0A=
f1.cpp,213=0A=
namespace PT=7F1,0=0A=
CreateFcn(=7F5,66=0A=
typedef TypeList<EFormal>::Result =7FResult=0112,369=0A=
typedef SgmtCntnr::IBrndToSmblsWthLval IBrndToSmblsWthLval;=7F89,2190=0A=
typedef SgmtCntnr::BtoSwLkey BtoSwLkey;=7F90,2255=0A=
=0C=0A=
f2.cpp,213=0A=
namespace PT=7F1,0=0A=
CreateFcn(=7F5,66=0A=
typedef TypeList<EFormal>::Result =7FResult=0112,369=0A=
typedef SgmtCntnr::IBrndToSmblsWthLval IBrndToSmblsWthLval;=7F89,2190=0A=
typedef SgmtCntnr::BtoSwLkey BtoSwLkey;=7F90,2255=0A=
------=_NextPart_000_0046_01D7507B.95E6A840--
"Bob Floyd" <bobfloyd@HIDDEN>:bug-gnu-emacs@HIDDEN.
Full text available.bug-gnu-emacs@HIDDEN:bug#48628; Package emacs.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.