See changelog 2001-07-19 21:30 GMT -3

This commit is contained in:
Luiz Rafael Culik
2001-07-20 00:24:26 +00:00
parent 59e84f3aa6
commit 7695f4265c
2 changed files with 23 additions and 4 deletions

View File

@@ -1,3 +1,7 @@
2001-07-19 21:30 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
*utils/hbmake/hbmake.prg
*Small changes needed to be more compatible with Gcc under OS/2
2001-07-19 12:00 UTC-0800 Ron Pinkas <ron@profit-master.com>
* source/compiler/harbour.sly
* source/compiler/harbour.y

View File

@@ -102,6 +102,7 @@ Function main( cFile, p1, p2, p3, p4, p5, p6 )
Local nPos
Local aDef := {}
Local cOs:=OS()
Local allParam
Default p1 To ""
Default p2 To ""
@@ -109,6 +110,11 @@ Default p3 To ""
Default p4 To ""
Default p5 To ""
Default p6 To ""
if at("OS/2",cOs)>0
lGcc:=.t.
lBcc:=.f.
endif
allParam:=p1 + p2 +p3+p4 + p5 +p6
allparam:=strtran(allparam,"/","-")
@@ -130,8 +136,13 @@ If Pcount() == 0
? " used it, creates an new make file to build an library"
? " /D Define an macro"
? " /p Print all command and depencies"
if at("OS/2",cOs)>0
? " /b Use BCC as C compiler"
? " /g+ Use GCC as C compiler"
else
? " /b+ Use BCC as C compiler"
? " /g Use GCC as C compiler"
endif
? " /v Use MSVC as C compiler"
? " /f Force Recompiltion of all files"
? " /i Ignore errors returned by Commamnd"
@@ -449,6 +460,7 @@ Enddo
If Len( aCs ) > 0
For nPos := 1 To Len( aCs )
If !Empty( acs[ nPos ] )
ctemp1:=Strtran(substr(acs[nPos],at('\',acs[npos])+1), ".c", ".prg" )
cTemp := Strtran( acs[ nPos ], ".c", ".prg" )
If File( cTemp )
Aadd( aPrgs, Strtran( acs[ nPos ], ".c", ".prg" ) )
@@ -456,6 +468,9 @@ If Len( aCs ) > 0
cTemp := Strtran( acs[ nPos ], ".C", ".PRG" )
If File( cTemp )
Aadd( aPrgs, Strtran( acs[ nPos ], ".C", ".PRG" ) )
elseif file(ctemp1)
Aadd( aPrgs, strtran( ctemp1, ".c", ".prg" ) )
endif
Endif
Endif
@@ -794,7 +809,7 @@ For nPos := 1 To 7
If At( "$", amacro[ nCount ] ) > 0
findmacro( amacro[ nCount ], @cRead )
If At( ".exe", cRead ) > 0 .and. lGcc
Fwrite( nLinkhandle, "-o" + cRead + CRLF )
Fwrite( nLinkhandle, "-o " + cRead + CRLF )
Else
Fwrite( nLinkhandle, cRead + CRLF )
Endif
@@ -1217,7 +1232,7 @@ endif
cExt:=substr(cExt,2)
//Fwrite( nLinkHandle, "OBJFILES = " + if(isupper(cTopfile),Strtran( cTopfile, ".PRG", ".OBJ" ),Strtran( cTopfile, ".prg", ".obj" )) )
// Fwrite( nLinkHandle, "OBJFILES = " + if(isupper(cExt),cTest+"."+Strtran( cExt, "PRG", "OBJ" ),cTest+"."+Strtran( cExt, "prg", "obj" )) )
Fwrite( nLinkHandle, "OBJFILES = " + cTest+'.'+exte(cExt,2) )
Fwrite( nLinkHandle, "OBJFILES = " + cTest+'.'+if(lgcc,exte(cExt,3),exte(cExt,2)) )
if len(aObjs)<1
Fwrite( nLinkHandle, +" $(OB) "+ CRLF )
@@ -1297,7 +1312,7 @@ elseif lVcc
elseif lGcc
Fwrite( nLinkHandle, "CFLAG1 = "+if(at("linux",Getenv("HB_ARCHITECTURE"))>0 ,"-I$(HB_INC_INSTALL)"," -I$(BHC)/../include")+ " -c -Wall"+CRLF)
Fwrite( nLinkHandle, "CFLAG2 = "+if(at("linux",Getenv("HB_ARCHITECTURE"))>0 ,"-L$(HB_LIB_INSTALL)"," -L$(BHC)/../lib")+CRLF)
Fwrite( nLinkHandle, "CFLAG2 = "+if(at("linux",Getenv("HB_ARCHITECTURE"))>0 ,"-L $(HB_LIB_INSTALL)"," -L $(BHC)/../lib")+CRLF)
Fwrite( nLinkHandle, "RFLAGS = "+CRLF)
Fwrite( nLinkHandle, "LFLAGS = $(CFLAG2)"+CRLF)
Fwrite( nLinkHandle, "IFLAGS = "+CRLF)
@@ -1862,7 +1877,7 @@ elseif lVcc
elseif lGcc
Fwrite( nLinkHandle, "CFLAG1 = "+if(at("linux",Getenv("HB_ARCHITECTURE"))>0 ,"-I$(HB_INC_INSTALL)"," -I$(BHC)/../include")+ " -c -Wall"+CRLF)
Fwrite( nLinkHandle, "CFLAG2 = "+if(at("linux",Getenv("HB_ARCHITECTURE"))>0 ,"-L$(HB_LIB_INSTALL)"," -L$(BHC)/../lib")+CRLF)
Fwrite( nLinkHandle, "CFLAG2 = "+if(at("linux",Getenv("HB_ARCHITECTURE"))>0 ,"-L $(HB_LIB_INSTALL)"," -L $(BHC)/../lib")+CRLF)
Fwrite( nLinkHandle, "RFLAGS = "+CRLF)
Fwrite( nLinkHandle, "LFLAGS = "+CRLF)
Fwrite( nLinkHandle, "IFLAGS = "+CRLF)