mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 03:39:40 +01:00 
			
		
		
		
	* use %ifdef __FAR_CODE__ instead of %ifdef __MEDIUM__ in the int 0 handler (for
compatibility with future memory models) git-svn-id: trunk@26074 -
This commit is contained in:
		
							parent
							
								
									06c5acf69a
								
							
						
					
					
						commit
						b6c02c651f
					
				@ -199,7 +199,7 @@ FPC_INT00_HANDLER:
 | 
				
			|||||||
        cmp bx, cx
 | 
					        cmp bx, cx
 | 
				
			||||||
        jne .call_previous_handler
 | 
					        jne .call_previous_handler
 | 
				
			||||||
 | 
					
 | 
				
			||||||
%ifndef __MEDIUM__
 | 
					%ifndef __FAR_CODE__
 | 
				
			||||||
        ; check whether we're coming from the same code segment
 | 
					        ; check whether we're coming from the same code segment
 | 
				
			||||||
        mov bx, sp
 | 
					        mov bx, sp
 | 
				
			||||||
        mov cx, [bx + 3*2 + 6]  ; get caller segment
 | 
					        mov cx, [bx + 3*2 + 6]  ; get caller segment
 | 
				
			||||||
@ -211,7 +211,7 @@ FPC_INT00_HANDLER:
 | 
				
			|||||||
        ; runerror 200
 | 
					        ; runerror 200
 | 
				
			||||||
        mov bx, sp
 | 
					        mov bx, sp
 | 
				
			||||||
        mov cx, [bx + 3*2 + 4]  ; get caller offset
 | 
					        mov cx, [bx + 3*2 + 4]  ; get caller offset
 | 
				
			||||||
%ifdef __MEDIUM__
 | 
					%ifdef __FAR_CODE__
 | 
				
			||||||
        mov dx, [bx + 3*2 + 6]  ; get caller segment
 | 
					        mov dx, [bx + 3*2 + 6]  ; get caller segment
 | 
				
			||||||
%endif
 | 
					%endif
 | 
				
			||||||
        add sp, 3*2 + 4 + 6
 | 
					        add sp, 3*2 + 4 + 6
 | 
				
			||||||
@ -219,7 +219,7 @@ FPC_INT00_HANDLER:
 | 
				
			|||||||
        push ax
 | 
					        push ax
 | 
				
			||||||
        mov ax, 200
 | 
					        mov ax, 200
 | 
				
			||||||
        push ax
 | 
					        push ax
 | 
				
			||||||
%ifdef __MEDIUM__
 | 
					%ifdef __FAR_CODE__
 | 
				
			||||||
        push dx
 | 
					        push dx
 | 
				
			||||||
%endif
 | 
					%endif
 | 
				
			||||||
        push cx
 | 
					        push cx
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user