Re: Building in mingw (3.0.2)

Attached the compile log (obtained using: make | tee -a compile.log)
and the config.log which may be useful for finding any specifics.

My environment is Windows XP SP2, mingw + MSYS installation.

These results are on pristine sources ungzipped and untarred from the
source package. If I peek and poke some items (like copying
liggst-7.dll from libgst/.libs to .libs) build process advances a
little more.

_______________________________________________
help-smalltalk mailing list
[hidden email]
http://lists.gnu.org/mailman/listinfo/help-smalltalk

>>  No, but unfortunately bitrot happens fast for mingw, faster than you can
>>  say the word (I don't have access to Windows machine to keep the port up
>>  to date).  Can you send a build log?
>
> Attached the compile log (obtained using: make | tee -a compile.log)
> and the config.log which may be useful for finding any specifics.

Thanks, can you add a

   printf ("SRC> %s\nDST> %s\n", old_path, new_path);

to lib-src/symlink.c and send again the end of the compile log (just the
final 30-40 lines will do)?

Paolo


_______________________________________________
help-smalltalk mailing list
[hidden email]
http://lists.gnu.org/mailman/listinfo/help-smalltalk

Here it goes Paolo:

creating gst.exe
.libs/lt-gst.c: In function `main':
.libs/lt-gst.c:113: warning: passing arg 2 of `execv' from
incompatible pointer type
/bin/sh ./libtool --tag=CC --mode=link gcc  -g -O2 -Wall
-fstrict-aliasing -fno-gcse -Wno-strict-aliasing -Wno-switch
-Wno-format -Wpointer-arith -Wwrite-strings    -o gst-tool.exe
-export-dynamic gst-tool.o libgst/libgst.la lib-src/library.la
-lws2_32 -lm
gcc -g -O2 -Wall -fstrict-aliasing -fno-gcse -Wno-strict-aliasing
-Wno-switch -Wno-format -Wpointer-arith -Wwrite-strings -o
.libs/gst-tool.exe gst-tool.o -Wl,--export-dynamic
libgst/.libs/libgst.dll.a lib-src/.libs/library.a -lws2_32
-Wl,--rpath -Wl,/mingw//lib
creating gst-tool.exe
.libs/lt-gst-tool.c: In function `main':
.libs/lt-gst-tool.c:113: warning: passing arg 2 of `execv' from
incompatible pointer type
./gst --no-user-files
--kernel-dir="/e/Programacao/Linguagens/Smalltalk/GNU/smalltalk-3.0.2/kernel"
--image="/e/Programacao/Linguagens/Smalltalk/GNU/smalltalk-3.0.2/gst.im"
-iQ /dev/null
./gst-tool gst-package
--kernel-dir="/e/Programacao/Linguagens/Smalltalk/GNU/smalltalk-3.0.2/kernel"
--image="/e/Programacao/Linguagens/Smalltalk/GNU/smalltalk-3.0.2/gst.im"
--srcdir=. --target-directory=. packages/browser/package.xml
mkdir "C:\DOCUME~1\CESARS~1.RAB\CONFIG~1\Temp\gstar-DOSSV0"
mkdir "C:\DOCUME~1\CESARS~1.RAB\CONFIG~1\Temp\gstar-DOSSV0\Browser"
gst-package: Operation not permitted
cp -p -f "e:\Programacao\Linguagens\Smalltalk\GNU\smalltalk-3.0.2\packages\browser\BrowShell.st"
C:\DOCUME~1\CESARS~1.RAB\CONFIG~1\Temp\gstar-DOSSV0\Browser\BrowShell.st.stmake[2]:
*** [Browser.star] Error 1
SRC> \e:\Programacao\Linguagens\Smalltalk\GNU\smalltalk-3.0.2\packages\browser\BrowShell.st
DST> C:\DOCUME~1\CESARS~1.RAB\CONFIG~1\Temp\gstar-DOSSV0\Browser\BrowShell.st
make[2]: Leaving directory
`/e/Programacao/Linguagens/Smalltalk/GNU/smalltalk-3.0.2'
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory
`/e/Programacao/Linguagens/Smalltalk/GNU/smalltalk-3.0.2'
*** [all] Error 2


_______________________________________________
help-smalltalk mailing list
[hidden email]
http://lists.gnu.org/mailman/listinfo/help-smalltalk

The bug occurs because your installation drive is different from the
compilation drive.  The attached patch will fix it.

Paolo

2008-04-15  Paolo Bonzini  <[hidden email]>

        * kernel/File.st: Don't prepend a \ if an absolute path is
        created by #computePathFrom:to: and the destination path has a
        disk letter in it.

diff --git a/kernel/File.st b/kernel/File.st
index 9170a3d..063e916 100644
--- a/kernel/File.st
+++ b/kernel/File.st
@@ -192,13 +192,14 @@ size and timestamps.'>
 
     File class >> computePathFrom: srcName to: destName [
  <category: 'private'>
- | src dest srcCanon destCanon path |
+ | src dest srcCanon destCanon path isUnix |
  "A Windows path may contain both / and \ separators. Clean it up
  to allow easy parsing"
- srcCanon := Directory pathSeparator = $/
+ isUnix := Directory pathSeparator = $/.
+ srcCanon := isUnix
     ifTrue: [srcName]
     ifFalse: [srcName copyReplacing: $/ withObject: Directory pathSeparator].
- destCanon := Directory pathSeparator = $/
+ destCanon := isUnix
     ifTrue: [destName]
     ifFalse: [destName copyReplacing: $/ withObject: Directory pathSeparator].
 
@@ -208,14 +209,19 @@ size and timestamps.'>
  src removeLast.
  dest := dest asOrderedCollection.
  dest isEmpty ifTrue: [dest addLast: ''].
- path := (src notEmpty and: [src first ~= dest first])
+ path := (src notEmpty and: [src first ~= dest first])
+    ifTrue: [
+ "Don't prepend a \ if the destination path has a disk letter."
+ (isUnix or: [ (dest first at: 2 ifAbsent: [ nil ]) ~= $: ])
     ifTrue: [OrderedCollection with: '']
-    ifFalse:
- [[src isEmpty or: [dest size = 1 or: [src first ~= dest first]]]
-    whileFalse:
- [src removeFirst.
- dest removeFirst].
- src collect: [:each | '..']].
+    ifFalse: [OrderedCollection new]]
+    ifFalse:
+ [[src isEmpty or: [dest size = 1 or: [src first ~= dest first]]]
+    whileFalse:
+ [src removeFirst.
+ dest removeFirst].
+ src collect: [:each | '..']].
+
  path addAllLast: dest.
  ^path fold: [:a :b | a , Directory pathSeparatorString , b]
     ]

_______________________________________________
help-smalltalk mailing list
[hidden email]
http://lists.gnu.org/mailman/listinfo/help-smalltalk