* change \ to / for pwd, since the win32 pwd returns paths with \

compiler/Makefile

@@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/03]
+# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/28]
 #
 default: all
 override PATH:=$(subst \,/,$(PATH))
@@ -53,7 +53,7 @@ else
 PATHSEP:=$(subst /,\,/)
 endif
 ifdef PWD
-BASEDIR:=$(shell $(PWD))
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
 else
 BASEDIR=.
 endif

compiler/utils/Makefile

@@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/03]
+# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/28]
 #
 default: all
 override PATH:=$(subst \,/,$(PATH))
@@ -53,7 +53,7 @@ else
 PATHSEP:=$(subst /,\,/)
 endif
 ifdef PWD
-BASEDIR:=$(shell $(PWD))
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
 else
 BASEDIR=.
 endif

rtl/Makefile

@@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/03]
+# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/28]
 #
 default: all
 override PATH:=$(subst \,/,$(PATH))
@@ -53,7 +53,7 @@ else
 PATHSEP:=$(subst /,\,/)
 endif
 ifdef PWD
-BASEDIR:=$(shell $(PWD))
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
 else
 BASEDIR=.
 endif

rtl/go32v2/Makefile

@@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/03]
+# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/28]
 #
 default: all
 override PATH:=$(subst \,/,$(PATH))
@@ -53,7 +53,7 @@ else
 PATHSEP:=$(subst /,\,/)
 endif
 ifdef PWD
-BASEDIR:=$(shell $(PWD))
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
 else
 BASEDIR=.
 endif

rtl/win32/Makefile

@@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/03]
+# Don't edit, this file is generated by fpcmake v1.99.0 [2001/05/28]
 #
 default: all
 override PATH:=$(subst \,/,$(PATH))
@@ -53,7 +53,7 @@ else
 PATHSEP:=$(subst /,\,/)
 endif
 ifdef PWD
-BASEDIR:=$(shell $(PWD))
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
 else
 BASEDIR=.
 endif

tests/webtbs/tw1501.pp

@@ -12,7 +12,16 @@ begin
 end;
 
 begin
-        writeln('test', Uper1('test'));
-        writeln('test', Uper2('test'));
-
+  writeln('test', Uper1('test'));
+  writeln('test', Uper2('test'));
+  if Uper1('test')<>'TEST' then
+   begin
+     writeln('ERROR in Uper1!');
+     halt(1);
+   end;
+  if Uper2('test')<>'TEST' then
+   begin
+     writeln('ERROR in Uper2!');
+     halt(1);
+   end;
 end.

utils/fpcm/fpcmake.ini

@@ -79,7 +79,7 @@ endif
 
 # Base dir
 ifdef PWD
-BASEDIR:=$(shell $(PWD))
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
 else
 BASEDIR=.
 endif