Browse Source

* wince support was added to lineinfo.

git-svn-id: trunk@969 -
yury 20 years ago
parent
commit
7b03f03eff
1 changed files with 7 additions and 3 deletions
  1. 7 3
      rtl/inc/lineinfo.pp

+ 7 - 3
rtl/inc/lineinfo.pp

@@ -84,6 +84,10 @@ var
   {$endif}
 {$endif}
 
+{$if defined(win32) or defined(wince)}
+  {$define PE32}
+{$endif}
+
 {$ifdef netwlibc}
 {$define netware}
 {$endif}
@@ -294,7 +298,7 @@ end;
 {$endif Go32v2}
 
 
-{$ifdef win32}
+{$ifdef PE32}
 function LoadPeCoff:boolean;
 type
   tdosheader = packed record
@@ -409,7 +413,7 @@ begin
    end;
   LoadPeCoff:=(stabofs<>-1) and (stabstrofs<>-1);
 end;
-{$endif Win32}
+{$endif PE32}
 
 
 {$IFDEF EMX}
@@ -911,7 +915,7 @@ begin
      exit;
    end;
 {$ENDIF EMX}
-{$ifdef win32}
+{$ifdef PE32}
   if LoadPECoff then
    begin
      OpenStabs:=true;