equal
deleted
inserted
replaced
389 (dllSourceDir / alternativeObjDirSource / (libraryName, '.dll')) exists ifTrue:[ |
389 (dllSourceDir / alternativeObjDirSource / (libraryName, '.dll')) exists ifTrue:[ |
390 objDirSource := alternativeObjDirSource. |
390 objDirSource := alternativeObjDirSource. |
391 stdErr nextPutLine:(('Warning: using alternative %1 from %2 (%3 version)...' |
391 stdErr nextPutLine:(('Warning: using alternative %1 from %2 (%3 version)...' |
392 bindWith:libraryName |
392 bindWith:libraryName |
393 with:alternativeObjDirSource |
393 with:alternativeObjDirSource |
394 with:(self class suiteNameOfCompiler:'vc')) |
394 with:(self class suiteNameOfCompiler:'vc') |
395 emphasizeAllWith:(#color -> Color darkRed)). |
395 ) withColor:Color darkRed). |
396 ] ifFalse:[ |
396 ] ifFalse:[ |
397 alternativeObjDirSource := self objDirForUsedCompiler:'bcc'. |
397 alternativeObjDirSource := self objDirForUsedCompiler:'bcc'. |
398 (dllSourceDir / alternativeObjDirSource / (libraryName, '.dll')) exists ifTrue:[ |
398 (dllSourceDir / alternativeObjDirSource / (libraryName, '.dll')) exists ifTrue:[ |
399 objDirSource := alternativeObjDirSource. |
399 objDirSource := alternativeObjDirSource. |
400 stdErr nextPutLine:('Warning: using alternative %1 from %2 (%3 version)...' |
400 stdErr nextPutLine:('Warning: using alternative %1 from %2 (%3 version)...' |
442 ] |
442 ] |
443 ]. |
443 ]. |
444 ]. |
444 ]. |
445 |
445 |
446 "Modified: / 06-09-2012 / 16:19:29 / cg" |
446 "Modified: / 06-09-2012 / 16:19:29 / cg" |
447 "Modified: / 13-03-2019 / 21:19:01 / Claus Gittinger" |
447 "Modified: / 13-03-2019 / 22:15:40 / Claus Gittinger" |
448 ! |
448 ! |
449 |
449 |
450 copyDirectory:relativepath |
450 copyDirectory:relativepath |
451 "/ need rules in stx |
451 "/ need rules in stx |
452 ((Smalltalk projectDirectoryForPackage:'stx') asFilename construct:relativepath) |
452 ((Smalltalk projectDirectoryForPackage:'stx') asFilename construct:relativepath) |