Quantcast

[Fwd: [Spf-commits] devel/~ac/lib/ns ns.f,1.20,1.21]

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[Fwd: [Spf-commits] devel/~ac/lib/ns ns.f,1.20,1.21]

Andrey Cherezov
Вроде ничего не напутал.
Но компилируется с (визуально) прежней скоростью. И даже работает :)

-------- Original Message --------
Subject: [Spf-commits] devel/~ac/lib/ns ns.f,1.20,1.21
Date: Fri, 15 May 2009 15:36:10 +0000
From: Andrey Cherezov [hidden email]
To: [hidden email]

Update of /cvsroot/spf/devel/~ac/lib/ns

Modified Files:
	ns.f 
Log Message:
Микрооптимизация для устранения страхов. Закрываем тему?

Index: ns.f
===================================================================
RCS file: /cvsroot/spf/devel/~ac/lib/ns/ns.f,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- ns.f	9 Nov 2007 17:42:32 -0000	1.20
+++ ns.f	15 May 2009 15:36:07 -0000	1.21
@@ -213,12 +213,20 @@
 ;
 : SEARCH-WORDLIST ( c-addr u oid -- 0 | xt 1 | xt -1 )
   DUP OBJ-DATA@ ?DUP
-  IF NIP ROT ROT HEAP-COPY-U OVER >R ROT DLSYM R> FREE THROW
-     DUP IF 1 THEN
+  IF DUP -1 =
+     IF \ по результатам прошлых DLOPEN-попыток DLL признана отсутствующей, больше не ворошим
+        2DROP 2DROP 0 EXIT
+     ELSE
+       NIP ROT ROT HEAP-COPY-U OVER >R ROT DLSYM R> FREE THROW
+       DUP IF 1 THEN
+     THEN
   ELSE
      DUP OBJ-NAME@ HEAP-COPY-U OVER >R vDLOPEN R> FREE THROW
      ?DUP IF ( addr u oid h ) OVER OBJ-DATA! RECURSE
-          ELSE DROP 2DROP 0 THEN \ не удалось загрузить DLL/SO
+          ELSE
+             -1 SWAP OBJ-DATA! \ не удалось загрузить DLL/SO, пометим на будущее, чтоб больше не ворошить
+             2DROP 0
+          THEN
   THEN
 ;
 :>>



------------------------------------------------------------------------------
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensing option that enables
unlimited royalty-free distribution of the report engine
for externally facing server and web deployment.
http://p.sf.net/sfu/businessobjects
_______________________________________________
Spf-dev mailing list
[hidden email]
https://lists.sourceforge.net/lists/listinfo/spf-dev
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [Fwd: [Spf-commits] devel/~ac/lib/ns ns.f,1.20,1.21]

ygrek-3
On Fri, 15 May 2009 18:38:59 +0300
Andrey Cherezov <[hidden email]> wrote:

> Вроде ничего не напутал.
> Но компилируется с (визуально) прежней скоростью. И даже работает :)

Протестирую когда доберусь до винды. Проблема-то не надуманная - "полевая".

--
 ~ygrek

------------------------------------------------------------------------------
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensing option that enables
unlimited royalty-free distribution of the report engine
for externally facing server and web deployment.
http://p.sf.net/sfu/businessobjects
_______________________________________________
Spf-dev mailing list
[hidden email]
https://lists.sourceforge.net/lists/listinfo/spf-dev

attachment0 (204 bytes) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [Fwd: [Spf-commits] devel/~ac/lib/ns ns.f,1.20,1.21]

Andrey Cherezov
05/16/09 16:58, ygrek пишет:
On Fri, 15 May 2009 18:38:59 +0300
Andrey Cherezov [hidden email] wrote:

  
Вроде ничего не напутал.
Но компилируется с (визуально) прежней скоростью. И даже работает :)
    
Протестирую когда доберусь до винды. Проблема-то не надуманная - "полевая".
  
Так этот фикс ns.f, исключающий повторный поиск
не найденной dll (способом, который я ранее предлагал),
и линукса касается.

------------------------------------------------------------------------------
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensing option that enables
unlimited royalty-free distribution of the report engine
for externally facing server and web deployment.
http://p.sf.net/sfu/businessobjects
_______________________________________________
Spf-dev mailing list
[hidden email]
https://lists.sourceforge.net/lists/listinfo/spf-dev
Loading...