paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 11:40:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

Keith: Fixed Win32 compilation problems

Browse Source 
git-svn-id: trunk@1678 -
This commit is contained in:
lazarus 2002-05-13 21:21:28 +00:00
parent f65bee54ef
commit b8972ebce8
4 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile.fpc
View File

@ -47,7 +47,6 @@ export RCPP?=$(strip $(wildcard $(addsuffix /cpp$(SRCEXEEXT), $(SEARCHPATH))))
%.res: %.rc
windres -i $< -o $@ --preprocessor $(RCPP)
# $(strip $(wildcard $(addsuffix /cpp$(SRCEXEEXT), $(SEARCHPATH))))
ide:
ifeq ($(OS_TARGET), win32)

2
components/codetools/fileprocs.pas
View File

@ -294,7 +294,7 @@ begin
inc(SrcPos,2);
continue;
end else if (DestPos=3) and (Result[1]=PathDelim)
and (Result[2]=PathDelim) then
and (Result[2]=PathDelim) then begin
// 5. \\.. -> skip .., keep \\
inc(SrcPos,2);
continue;

2
ide/ideprocs.pp
View File

@ -436,7 +436,7 @@ begin
inc(SrcPos,2);
continue;
end else if (DestPos=3) and (Result[1]=PathDelim)
and (Result[2]=PathDelim) then
and (Result[2]=PathDelim) then begin
// 5. \\.. -> skip .., keep \\
inc(SrcPos,2);
continue;

2
lcl/lresources.pp
View File

@ -81,7 +81,7 @@ procedure BinaryToLazarusResourceCode(BinStream,ResStream:TStream;
+#83#187#6#78#83
);
}
const LineEnd:ShortString={$IFDEF win32}#13{$ENDIF}#10;
const LineEnd:ShortString={$IFDEF win32}#13#10{$ELSE}#10{$ENDIF};
var s, Indent: ShortString;
p, x: integer;
c, h: char;