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

[Andrey Cherezov]

Some javascript/style in this post has been disabled (why?)

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

-------- 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

[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

[Andrey Cherezov]

Some javascript/style in this post has been disabled (why?)

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