@@ -54,11 +54,11 @@ static const char *const processors[NUMPROCESSORS] = {
54
54
55
55
typedef struct {
56
56
union {
57
- unsigned int dwOemId ;
58
- struct {
59
- int wProcessorArchitecture ;
60
- int wReserved ;
61
- };
57
+ unsigned int dwOemId ;
58
+ struct {
59
+ int wProcessorArchitecture ;
60
+ int wReserved ;
61
+ };
62
62
};
63
63
unsigned int dwPageSize ;
64
64
void * lpMinimumApplicationAddress ;
@@ -860,15 +860,15 @@ TclpSetVariables(
860
860
}
861
861
Tcl_ObjSetVar2 (interp , Tcl_NewStringObj ("tcl_pkgPath" , -1 ), NULL , pkgListObj , TCL_GLOBAL_ONLY );
862
862
{
863
- /* Some platforms build configure scripts expect ~ expansion so do that */
864
- Tcl_Obj * origPaths ;
865
- Tcl_Obj * resolvedPaths ;
866
-
867
- origPaths = Tcl_GetVar2Ex (interp , "tcl_pkgPath" , NULL , TCL_GLOBAL_ONLY );
868
- resolvedPaths = TclResolveTildePathList (origPaths );
869
- if (resolvedPaths != origPaths && resolvedPaths != NULL ) {
870
- Tcl_SetVar2Ex (interp , "tcl_pkgPath" , NULL , resolvedPaths , TCL_GLOBAL_ONLY );
871
- }
863
+ /* Some platforms build configure scripts expect ~ expansion so do that */
864
+ Tcl_Obj * origPaths ;
865
+ Tcl_Obj * resolvedPaths ;
866
+
867
+ origPaths = Tcl_GetVar2Ex (interp , "tcl_pkgPath" , NULL , TCL_GLOBAL_ONLY );
868
+ resolvedPaths = TclResolveTildePathList (origPaths );
869
+ if (resolvedPaths != origPaths && resolvedPaths != NULL ) {
870
+ Tcl_SetVar2Ex (interp , "tcl_pkgPath" , NULL , resolvedPaths , TCL_GLOBAL_ONLY );
871
+ }
872
872
}
873
873
874
874
#ifdef DJGPP
0 commit comments